事件
VB6: DoEvents
VB.NET: System.Windows.Forms.Application.DoEvents()
颜色
VB6: Command1.BackColor = vbRed
VB.NET:
Command1.BackColor = System.Drawing.Color.Red
Command1.BackColor = System.Drawing.Color.FromARGB(&H80C0FF)
组合框中的列表:
VB6: ComboBox1.AddItem "one"
VB.NET: ComboBox1.Items.Add("one")
颜色：
VB6: Command1.BackColor = &H80C0FF
VB.NET: Command1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&)
窗体：
VB6:Form1.Caption = "Sample"
VB.NET: Form1.DefInstance.Text = "Sample"
VB6: Form1.Top
VB.NET: Form1.DefInstance.Top
消息框：
VB: MsgBox "message", vbInformation, "title"
VB.NET: MsgBox("message", MsgBoxStyle.Information, "title")
窗体高度：
VB6: Form1.Height = 3500
VB.NET: Form1.DefInstance.Height = VB6.TwipsToPixelsY(3500)
对象赋值：
VB6: Set MyObject = Command1
VB.NET: MyObject = Command1
控件焦点：
VB6: Text1.SetFocus
VB.NET: Text1.Focus()
提示：
VB6: Command1.ToolTipText = "click me"
VB.NET: ToolTip1.SetToolTip(Command1, "click me")
窗体声明：
VB6:Dim objAbout As AboutForm
VB.NET: Dim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm
取程序路径
VB6: sPath = App.Path
VB.NTE: sPath = Application.StartupPath
VB6: Private Sub Form_Unload(Cancel As Integer)
VB.NET: Private Sub Form1_Closed(....) Handles MyBase.Closed
VB6: List1.RemoveItem (0)
VB.NET： ListBox1.Items.Remove(0)
VB.NET: Dim arOne(10) As String
VB6: Dim arOne As New ArrayList(10)
VB6: Print #1, "sample text"
VB.NET: PrintLine(1, "sample text")
VB6: Open "c:\myfile.txt" For Input As #1
VB.NET： FileOpen(1, "c:\myfile.txt", OpenMode.Input)
VB6: Line Input #1, sTemp
VB.NET: sTemp = LineInput(1)
VB6:
s=App.Comments
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).Comments
VB6:
s=App.CompanyName
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).CompanyName)
VB6:
s=App.EXEName
VB.Net:
Imports System.Reflection
With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location)
s=.Name.Substring(0, .Name.Length - .Extension.Length)
End With
or
s=System.AppDomain.CurrentDomain.FriendlyName
Note: this includes the extension which would need to be parsed.
VB6:
s=App.FileDescription
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileDescription)
VB6:
App.HelpFile
VB.Net:
No direct replacement
VB6:
i=App.hInstance
VB.Net:
Imports System.Runtime.InteropServices
i=Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32
VB6:
s=App.LegalCopyright
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalCopyright)
VB6:
s=App.LegalTrademarks
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalTrademarks)
VB6:
App.LogMode
App.LogPath
VB.Net:
No direct replacement; see the EventLog object
VB6:
i=App.Major
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMajorPart)
VB6:
i=App.Minor
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMinorPart)
VB6:
App.NonModalAllowed
VB.Net:
No replacement
VB6:
App.OleRequestPendingMsgText
App.OleRequestPendingMsgTitle
App.OleRequestPendingTimeout
App.OleServerBusyMsgText
App.OleServerBusyMsgTitle
App.OleServerBusyRaiseError
App.OleServerBusyTimeout
VB.Net:
No replacement; OLE automation not supported
VB6:
s=App.Path
VB.Net:
s=System.Windows.Forms.Application.StartupPath
or
Imports System.Reflection
With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location)
s = .FullName.Substring(0, .FullName.Length - .Name.Length - 1)
End With
Note: this will return the path with no trailing backslash even if the application is in the root directory. The VB 6.0 App.Path method return included the trailing backslash when the executable was in a root directory.
VB6:
b=App.PrevInstance
VB.Net:
Imports System.Diagnostics
b=(UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) > 0)
VB6:
s=App.ProductName
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
s=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).ProductName)
VB6:
App.RetainedProject
VB.Net:
No replacement; state not supported
VB6:
i=App.Revision
VB.Net:
Imports System.Diagnostics
Imports System.Reflection
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileBuildPart)
and/or:
i=FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FilePrivatePart)
VB6:
App.StartMode
VB.Net:
No direct replacement
VB6:
App.TaskVisible
VB.Net:
No direct replacement
VB6:
App.ThreadID
VB.Net:
No direct replacement; see the System.Threading.Thread object
VB6:
App.Title
VB.Net:
The Text (caption) of the top-level form. If there are no forms then the process does not appear in Task Manager.
VB6:
App.UnattendedApp
VB.Net:
No direct replacement
Methods:
VB6:
App.StartLogging
App.LogEvent
VB.Net:
No direct replacement; see the EventLog object