@H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@ @H_502_7@

VB6.0和VB.Net的对照表
VB6.0	VB.NET
AddItem Object名.AddItem	Object名.Items.Add ListBox1.Items.Add ComboBox1.Items.Add
Abs 函数	System.Math.Abs 方法
API 函数关系	Microsoft Win32和Microsoft .NET Framework API的对应
App.Path 等	1. System.Reflection.Assembly.GetExecutingAssembly.Location 2. Application.StartupPath 3. Application.ExecutablePath 4. System.AppDomain.CurrentDomain.BaseDirectory
App.PrevInstance	Process.GetProcessesByName(pn).GetUpperBound(0) > 0
As Any 关键词	Visual Basic .NET 不提供支持。 参考方法(SendMessage)
AscB 函数	Microsoft.VisualBasic.Strings.Asc 函数
Atn 函数	System.Math.atan 方法
AutoRedraw 属性	没有相同项目。
Beep	Microsoft.VisualBasic.Beep()
Caption 属性	Text 属性
CBool 函数	CBool 函数
CByte 函数	CByte 函数
CDate 函数	CDate 函数
CDbl 函数	CDbl 函数
CDec 函数	CDec 函数
ChDir 语句	Microsoft.VisualBasic.FileSystem.ChDir 函数 System.IO.Directory.SetCurrentDirectory 方法
ChDrive 语句	Microsoft.VisualBasic.FileSystem.ChDrive 函数
Chr$ 函数、ChrB 函数	Microsoft.VisualBasic.Strings.Chr 函数
CInt 函数	CInt 函数
Circle 方法	System.Drawing.Graphics.DrawEllipse 方法
CLong 函数	CLong 函数
Close 语句	Microsoft.VisualBasic.FileSystem.FileClose 函数 System.IO.StreamReader.Close 方法
Clipboard 对象	System.Windows.Forms.Clipboard 命名空间
ClipControls 属性	没有相同项目。
Cls 方法	System.Drawing.Graphics.Clear 方法
Color QBColor vbBlack RGB()	System.Drawing.Color.Black
Command	System.Environment.GetCommandLineArgs
Combo1.AddItem	ComboBox1.Items.Add
Cos 函数	System.Math.Cos 方法
CSng 函数	CSng 函数
CStr 函数	CStr 函数
CurDir 函数	System.IO.Directory.GetCurrentDirectory() 方法
Currency 类型	Decimal 类型
CurrentX 属性	各种图形相关方法的 x 参数。比如、DrawRectangle(pen,x,y,width,height)
CurrentY 属性	各种图形相关方法的 y 参数。比如、DrawRectangle(pen,height)
Date 函数、Date 语句	System.DateTime.Now System.DateTime.Today.ToString
Date$ 函数	Microsoft.VisualBasic.DateAndTime.DateString
DateAdd 函数	System.DateTime.AddYears 方法 AddMonths AddDays
DateDiff 函数	Microsoft.VisualBasic.DateDiff 函数
DateValue 函数	System.DateTime.Parse 方法 CDate 函数
DatePart 函数	Microsoft.VisualBasic.DatePart 函数
Day 函数	System.DateTime.Day 属性
Debug.Print	Debug.WriteLine
DeleteSetting 语句	Microsoft.VisualBasic.Interaction.DeleteSetting
DoEvents 函数	System.Windows.Forms.Application.DoEvents 方法
DrawMode 属性	System.Drawing.Pen.Color 属性
DrawStyle 属性	System.Drawing.Pen.PenType 属性
DrawWidth 属性	System.Drawing.Pen.Width 属性
Environ	Microsoft.VisualBasic.Interaction.Environ System.Environment.GetFolderPath
Exp 函数	System.Math.Exp 方法
FillColor 属性	System.Drawing.SolidBrush.Color 属性
FileCopy 语句	Microsoft.VisualBasic.FileSystem.FileCopy 函数 System.IO.File.Copy 方法
FileLen 函数	System.IO.FileInfo.Length 属性 Microsoft.VisualBasic.FileSystem.FileLen
FillStyle 属性	System.Drawing.Pen.Brush 属性
Get 语句	Microsoft.VisualBasic.FileSystem.FileGet 函数
GetAttr	System.IO.File.GetAttributes
GotFocus 事件	Enter 事件
GetSetting 语句	Microsoft.VisualBasic.Interaction.GetSetting
FileDateTime 函数	System.IO.File.GetCreationTime 方法
HasDC 属性	没有相同项目。
HDC 属性	没有相同项目。
Height 属性	Control.Size 属性
Hour 函数	System.DateTime.Hour 属性
hwnd Form1.hwnd	Form1.Handle 定义处也是 ByVal hWnd As IntPtr
Image 属性	Image 属性
Input # 语句	Microsoft.VisualBasic.FileSystem.Input 函数
InStr 函数	System.String.IndexOf Microsoft.VisualBasic.Strings.InStr 函数
InStrB 函数	Microsoft.VisualBasic.Strings.InStr 函数
InStrRev 函数	System.String.LastIndexOf 方法 Microsoft.VisualBasic.Strings.InStrRev 函数
Int 函数	System.Math.Floor 方法 System.Math.Ceiling 方法 Microsoft.VisualBasic.Int 函数
Integer 类型 Long 类型	Dim y As Integer 改为 Dim x As Short Dim y As Long 改为 Dim y As Integer
IsEmpty 函数	Microsoft.VisualBasic.Information.IsNothing 函数
IsDate 函数	Microsoft.VisualBasic.IsDate 函数
IsNull 函数	Microsoft.VisualBasic.Information.IsDBNull 函数
IsObject 函数	Microsoft.VisualBasic.Information.IsReference 函数
Join 函数	System.String.Join 方法
KeyAscii	e.KeyChar 属性
Kill 语句	Microsoft.VisualBasic.FileSystem.Kill 函数 System.IO 命名空间 FileInfo.Delete 方法
LBound UBound	System.Array.GetLowerBound System.Array.GetUpperBound
LCase$ 函数	String.ToLower 方法 Microsoft.VisualBasic.Strings.LCase 函数
Left 属性	Control.Location 属性
Left$、LeftB、LeftB$	System.String.SubString Microsoft.VisualBasic.Strings.Left 函数
Len	System.String.Length Microsoft.VisualBasic.Strings.Len
LenB	System.Text.Encoding.GetEncoding("gb2312").GetByteCount(str1) System.Text.Encoding.Unicode.GetByteCount("123大小大") '结果 12 System.Text.Encoding.Default.GetByteCount("123大小大") '结果 9
Line 方法	System.Drawing.Graphics.DrawLine 方法
Line Input # 语句	Microsoft.VisualBasic.FileSystem.LineInput 函数
List1.AddItem	ListBox1.Items.Add
LoadPicture 函数	System.Drawing.Image.FromFile("..\..\test.bmp")
Lock 语句	Microsoft.VisualBasic.FileSystem.Lock 函数
Log 函数	system.Math.Log 方法
Long 类型 Integer 类型	Dim y As Integer 改为 Dim x As Short Dim y As Long 改为 Dim y As Integer
LostFocus 事件	Leave 事件
LTrim$ 函数	System.String.TrimStart Microsoft.VisualBasic.Strings.LTrim 函数
Mid 函数	System.String.SubString Microsoft.VisualBasic.Strings.Mid 函数
MidB 函数	Microsoft.VisualBasic.Strings.Mid 函数
Minute 函数	System.DateTime.Minute 属性
MkDir 语句	Microsoft.VisualBasic.FileSystem.MkDir 函数 System.IO.Directory.CreateDirectory 方法
MousePointer=11 Screen.MousePointer	System.Windows.Forms.Cursors.WaitCursor() System.Windows.Forms.Cursor.Current = Cursors.WaitCursor
Mod 运算符	Math.IEEERemainder 方法 Debug.WriteLine(Math.IEEERemainder(10,3)) '结果 1 System.Math.DivRem(10,3,intResult) '结果 3 (10 \ 3) Debug.WriteLine(intResult) '结果 1 (10 Mod 3)
Month 函数	System.DateTime.Month 属性
MsgBox	System.Windows.Forms.MessageBox.Show("Hello,world!") Microsoft.VisualBasic.MsgBox
Name 语句	Microsoft.VisualBasic.FileSystem.Rename 函数
Now 函数	System.DateTime.Now Microsoft.VisualBasic.Now
Open 语句	Microsoft.VisualBasic.FileSystem.FileOpen 函数
Option Base 语句	Visual Basic .NET没有提供支持。
Option Private	Visual Basic .NET没有提供支持。
PaintPicture 方法	System.Drawing.Graphics.DrawImage 方法
Point 方法	不存在相同的Form和控件。 使用Bitmap时用System.Drawing.Bitmap.GetPixel 方法
Print 方法	System.Drawing.Graphics.DrawString 方法
PrintForm	Visual Basic .NET没有提供支持。
Print# 语句	Microsoft.VisualBasic.FileSystem.Print 函数
Private 语句 Public 语句	Private Public Friend Protected Protected Friend
Pset 方法	不存在相同的Form和控件。 使用Bitmap时用System.Drawing.Bitmap.SetPixel 方法
Put 语句	Microsoft.VisualBasic.FileSystem.FilePut 函数
Replace 函数	Microsoft.VisualBasic.Strings.Replace 函数
Right$ 函数、RightB 函数	System.String.SubString Microsoft.VisualBasic.Strings.Right 函数
ReDim 语句	ReDim MyArray(5) ReDim Preserve MyArray(15) 语句
RmDir 语句	Microsoft.VisualBasic.FileSystem.RmDir 函数 System.IO.Directory.Delete() 方法
Round 函数	System.Math.Round 方法
RTrim$ 函数	System.String.TrimEnd Microsoft.VisualBasic.Strings.RTrim
SaveSetting 语句	Microsoft.VisualBasic.Interaction.SaveSetting 函数
Scale 方法	Visual Basic .NET没有提供支持。
Screen.ActiveControl Screen.ActiveForm Screen.Fonts Screen.Height Screen.MousePointer Screen.Width 其他 Screen 对象	System.Windows.Forms.Application.ActiveForm.ActiveControl System.Windows.Forms.Application.ActiveForm System.Drawing.FontFamilies System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height System.Drawing.Cursor.Current System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width 其他
Second 函数	System.DateTime.Second 属性
SendKeys 语句	System.Windows.Forms.SendKeys.Send("^C")
SetAttr	System.IO.File.SetAttributes
Sgn 函数	System.Math.Sign 函数
Shell	Microsoft.VisualBasic.Shell
Sin 函数	System.Math.Sin 函数
Space 函数	Microsoft.VisualBasic.Strings.Space 函数
Sqr 函数	System.Math.Sqrt 函数
StrComp 函数	Microsoft.VisualBasic.Strings.StrComp 函数
StrConv 函数	Microsoft.VisualBasic.Strings.StrConv 函数
String$(256,Chr(0))	buf = New String(CChar(" "),256) Microsoft.VisualBasic.Strings.StrDup 函数
StrReverse 函数	Microsoft.VisualBasic.Strings.StrReverse 函数
Tan 函数	System.Math.Tan 方法
TextHeight 属性	System.Drawing.Font.Height 属性
TextWidth 属性	System.Drawing.Graphics.MeasureString 方法
Time$ 函数	Microsoft.VisualBasic.DateAndTime.Timer 属性 System.DateTime.Now.TimeOfDay
TimeValue 函数	System.DateTime.Parse 方法 CDate 函数
Top 属性	Control.Location 属性
Trim$ 函数	Microsoft.VisualBasic.Strings.Trim 函数 System.String.Trim
Type 语句	Structure 语句
UCase$ 函数	String.ToUpper 方法 Microsoft.VisualBasic.Strings.UCase 函数
Unlock 语句	Microsoft.VisualBasic.FileSystem.Unlock 函数
Unload 事件	Closed 事件 Me.Close()
Variant 型	Dim x As Variant 改为 Dim x As Object
VarPtr、StrPtr、ObjPtr	Dim MyGCHandle As GCHandle = GCHandle.Alloc(o,GCHandleType.Pinned) Dim Address As Integer = CInt(MyGCHandle.AddrOfPinnedObject()) MyGCHandle.Free() ' 允许对象实例再移动。
vbCrLf	Microsoft.VisualBasic.Constants.vbCrLf Microsoft.VisualBasic.vbCrLf
Weekday	Microsoft.VisualBasic.Weekday System.DateTime.DayOfWeek
WeekdayName	Microsoft.VisualBasic.WeekdayName (System.DateTime 构造体中没有相同项目)
Width 属性	Control.Size 属性
Write # 语句	Microsoft.VisualBasic.FileSystem.Write 函数
Year 函数	System.DateTime.Year 属性

原文链接：https://www.f2er.com/vb/260512.html