Visual Basic

Private Sub btnDelete_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDelete.ItemClick
	If Me.NoteSetBindingSource.Current Is Nothing Then
		Return
	End If

	Dim Id As Guid = DirectCast(DirectCast(NoteSetBindingSource.Current, DataRowView)("IdNoteSet"), Guid)

	If MessageBox.Show("Delete selected data?", "Message", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
		Me.NoteSetAdapter.Delete(DirectCast(DirectCast(Me.NoteSetBindingSource.Current, DataRowView)("IdNoteSet"), Guid))
	End If

	Me.LoadData(Id)
End Sub

Private Sub btnRefresh_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnRefresh.ItemClick
	Me.LoadData()
End Sub

Public Sub LoadData()
	Me.LoadData(Nothing)
End Sub

Public Sub LoadData(ByVal Id As System.Nullable(Of Guid))
	Me.Dataset.NoteSet.Rows.Clear()
	Me.NoteSetAdapter.Fill(Me.Dataset.NoteSet)

	If Id.HasValue Then
		Me.NoteSetBindingSource.Position = Me.NoteSetBindingSource.Find("IdNoteSet", Id.Value)
	End If
End Sub

Private Sub frmSetAwards_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
     'TODO: This line of code loads data into the 'YingexpoDataSet.JR' table. You can move, or remove it, as needed.
     Me.JRTableAdapter.Fill(Me.YingexpoDataSet.JR)
end sub

SpareRoom (VBPmanan15)

Find a flatshare or flatmate fast! 1000s of rooms
for rent in flatshares across London, Manchester,
Birmingham, Bristol, Leeds, Edinburgh, Glasgow
and the rest. www.spareroom.co.uk

Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.ArgumentException
Imports Microsoft.Office.Interop

Public Class Installer1

    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Install(stateSaver)

        Dim targetDir = Me.Context.Parameters.Item("targetdir")
        targetDir = targetDir.Substring(0, targetDir.Length - 1)
        MsgBox(targetDir)

        Dim myScript = targetDir + "MySuperAddin.xll"
        MsgBox(myScript)

        Dim objAddin As Object
        Dim objEXL As Excel.Application = DirectCast(CreateObject("Excel.Application"), Excel.Application)

        objEXL.Workbooks.Add()
        Try

            objAddin = objEXL.AddIns.Add(myScript, True)
            objAddin(myScript).Installed = True

        Catch ex As Exception
            MsgBox("cannot open addin. /n Error: " + ex.Message)
Err_Handler:
            MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
        End Try
        objAddin = Nothing
        objEXL.Quit()
        objEXL = Nothing
    End Sub
End Class