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