VB6 to VB.net的对应速查
VB6
VB.NET
-----------------------------------------------------
DoEvents
System.Windows.Forms.Application.DoEvents()
Command1.BackColor = vbRed
Command1.BackColor = System.Drawing.Color.Red
Command1.BackColor = System.Drawing.Color.FromARGB(&H80C0FF)
ComboBox1.AddItem "one"
ComboBox1.Items.Add("one")
Command1.BackColor = &H80C0FF
Command1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&)
Form1.Caption = "Sample"
Form1.DefInstance.Text = "Sample"
Form1.Top
Form1.DefInstance.Top
MsgBox "message", vbInformation, "title"
MsgBox("message", MsgBoxStyle.Information, "title")
Form1.Height = 3500
Form1.DefInstance.Height = VB6.TwipsToPixelsY(3500)
Set MyObject = Command1
MyObject = Command1
Text1.SetFocus
Text1.Focus()
Command1.ToolTipText = "click me"
ToolTip1.SetToolTip(Command1, "click me")
Dim objAbout As AboutForm
Dim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm
sPath = App.Path
sPath = Application.StartupPath
Private Sub Form_Unload(Cancel As Integer)
Private Sub Form1_Closed(....) Handles MyBase.Closed
List1.RemoveItem (0)
ListBox1.Items.Remove(0)
Dim arOne(10) As String
Dim arOne As New ArrayList(10)
Print #1, "sample text"
PrintLine(1, "sample text")
Open "c:\myfile.txt" For Input As #1
FileOpen(1, "c:\myfile.txt", OpenMode.Input)
Line Input #1, sTemp
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 优质内容筛选与推荐>>
1、1、前端基础总结（一）
2、zfighting 的问题
3、抽象类和接口的区别
4、Database Character Set & National Character Set
5、[转载]基于身份验证票据的权限系统的实现之源代码篇
VB.NET
-----------------------------------------------------
DoEvents
System.Windows.Forms.Application.DoEvents()
Command1.BackColor = vbRed
Command1.BackColor = System.Drawing.Color.Red
Command1.BackColor = System.Drawing.Color.FromARGB(&H80C0FF)
ComboBox1.AddItem "one"
ComboBox1.Items.Add("one")
Command1.BackColor = &H80C0FF
Command1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&)
Form1.Caption = "Sample"
Form1.DefInstance.Text = "Sample"
Form1.Top
Form1.DefInstance.Top
MsgBox "message", vbInformation, "title"
MsgBox("message", MsgBoxStyle.Information, "title")
Form1.Height = 3500
Form1.DefInstance.Height = VB6.TwipsToPixelsY(3500)
Set MyObject = Command1
MyObject = Command1
Text1.SetFocus
Text1.Focus()
Command1.ToolTipText = "click me"
ToolTip1.SetToolTip(Command1, "click me")
Dim objAbout As AboutForm
Dim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm
sPath = App.Path
sPath = Application.StartupPath
Private Sub Form_Unload(Cancel As Integer)
Private Sub Form1_Closed(....) Handles MyBase.Closed
List1.RemoveItem (0)
ListBox1.Items.Remove(0)
Dim arOne(10) As String
Dim arOne As New ArrayList(10)
Print #1, "sample text"
PrintLine(1, "sample text")
Open "c:\myfile.txt" For Input As #1
FileOpen(1, "c:\myfile.txt", OpenMode.Input)
Line Input #1, sTemp
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 优质内容筛选与推荐>>
1、1、前端基础总结（一）
2、zfighting 的问题
3、抽象类和接口的区别
4、Database Character Set & National Character Set
5、[转载]基于身份验证票据的权限系统的实现之源代码篇