Private Sub frmSimple_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed Dim result = MsgBox(Are you sure you want to Exit ?, vbYesNo) If result = DialogResult.Yes Then me.Close() End If End Sub, Private Sub Addnewimage_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed dbcon.stopconnection() ‘Requery listview to display the new added image Form1.displaydata() End Sub Private Sub Addnewimage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dbcon.startconnection() End Sub, Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed ‘Saves the current program position for the next LazyRenamer session: FileOpen(1, IniFile, OpenMode.Output) PrintLine(1, [StartupPosition]) PrintLine(1, startposX = & Me.Left) PrintLine(1, startposY = & Me.Top) FileClose(1) End Sub: End Class, Private Sub MainForm_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed : End Sub: Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load: If File.Exists(filePath) Then ‘File exists open file and set the settings: MessageBox.Show(File.ReadAllText(filePath)) End If: End Sub, Handle the .Disposed event of the enclosing form/control and dispose ‘ the data object manually (not recommended): Private Sub MyForm_OnDisposed(pSender As Object, pArgs As EventArgs) Handles Me.Disposed If gDataObj IsNot Nothing Then gDataObj.Dispose() End If End Sub ‘ If the instance is only used within the scope of a single function …
Handle the .Disposed event of the enclosing form/control and dispose ‘ the data object manually (not recommended): Private Sub MyForm_OnDisposed(pSender As Object, pArgs As EventArgs) Handles Me.Disposed If gDataObj IsNot Nothing Then gDataObj.Dispose() End If End Sub ‘ If the instance is only used within the scope of a single function, ‘ always enclose it in a Using block like the following: Using.
Start() End Sub Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed wodSSHd1 = Nothing End Sub Private Sub wodSSHd1_LoginPassword(ByVal User As wodSSHDComLIB.SSHUser, ByVal Login As String, ByVal Password As String, ByRef Action As wodSSHDComLIB.SSHActions) Handles wodSSHd1.
Private Sub SplashScreen_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed ‘ Simulate InvalidOperationException Throw New InvalidOperationException, Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load. Try ‘GetSerialPortNames() SerialP = New System.IO.Ports.SerialPort SerialP.BaudRate = 9600 SerialP.PortName = “COM15” SerialP.DataBits = 8 SerialP.ReadTimeout = 5000 SerialP.WriteTimeout = 5000 SerialP.Parity = IO.Ports.Parity.None
