版权属于原作者

* DoEvents

VB6
DoEvents

VB.Net
System.Windows.Forms.Application.DoEvents

* App Object

Get the full application filepath

VB6
App.Path & App.EXEName

VB.Net
System.Reflection.Assembly.GetExecutingAssembly.Location.ToString

Get the app's instance

VB6
App.hInstance

VB.Net
System.Runtime.InteropServices.Marshal.GetHINSTANCE _( _
System.Reflection.Assembly.GetExecutingAssembly.GetModules() (0)).ToInt32()

Check for a previous instance

VB6
App.PrevInstance

VB.Net
Function PrevInstance() As Boolean
If Ubound(Diagnostics.Process.GetProcessesByName( _
Diagnostics.Process.GetCurrentProcess).ProcessName)) > 0 Then
Return True
Else
Return False
End If

End Sub

* Graphics

Load a picture

VB6
Picture1.Picture = LoadPicture(path)

VB.Net
Dim img As Image = Image.FromFile(path)
Picture1.Image = img

Load a icon

VB6
Me.Icon = LoadPicture(path)

VB.Net
Dim ico As New Icon(path)
Me.Icon = ico


* File I/0

Read from a file

VB6
Open path For Input As #1
Line Input #1, buffer
Close #1

VB.Net
Dim fs As FileStream = File.Open(path, FileMode.OpenOrCreate, _
FileAccess.Read)
Dim sr As New StreamReader(fs)
Buffer = sr.ReadLine
sr.Close

Write to a file

VB6
Open path For Output As #1
Write #1, buffer
Close #1

VB.Net
Dim fs As FileStream = File.Open(path, FileMode.OpenOrCreate, _
FileAccess.Write)
Dim sr As New StreamWriter(fs)
sr.Write(buffer)
sr.Close


* Errors

Check for an error

VB6
On Error Goto errhandler
...
errhandler:
MsgBox(err.Description)

VB.Net
Try
...
Throw New Exception("error description goes here")
...
Catch e as Exception
MsgBox(e.Description)
End Try


* Events

Handling an event

In VB.Net, there is a new keyword called AddHandler. AddHandler makes handling events a snap.

AddHandler object.event, AddressOf procedure