*、VB.net 和 VB6 在一些方法上的转换技巧

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.Reflecti

VB6:

    command1.value=True

VB.net:

    1、在自定义过程中：Button1_Click(Nothing, Nothing)

     2、在事件过程中：  Button1_Click(sender, e)