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)@H_72_3012@'@H_435_3016@结果@H_170_3018@ 3 (10 / 3)
Debug.WriteLine(intResult)@H_72_3012@'@H_435_3016@结果@H_170_3018@ 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 属性