VB6.0 和VB.NET 函数对比

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, x, y, width, 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 属性
posted @ 2015-09-16 17:29  春秋一梦  阅读(798)  评论(0编辑  收藏  举报