2009年6月13日 星期六

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 函數關係


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 屬性





方便好用的FileSystemObject

從VB6.0起,VB新增了FileSystemObject物件,這個物件可以取代以往許多要用API才能做到的事,如覆製資料夾、取得磁碟機資訊
等,在作一些相關處理時可以節省不少時間。要引用這個項目你必須以設定引用項目將 Microsoft ScriptingRuntime手動加入專
案,否則是沒有辦法使用的!我來概略說明一下使用的方法和功能
包括資料夾複製、檔案複製
建立資料夾
建立文字檔
刪除資料夾、檔案
取得Windows路徑,System路徑
取得所有的磁碟機
磁碟機總數(包含網路磁碟機等)
取得所有磁碟機物件



在VB中解壓縮備份的方法

在VB中解壓縮備份的方法
Function fUnzip(sZipFile, sTargetFolder)
Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
'1.如果資料夾不存在則增之
If Not oFSO.FolderExists(sTargetFolder) Then oFSO.CreateFolder
sTargetFolder
'2.將解壓縮的檔案存到資料夾中
oShellApp.NameSpace(sTargetFolder).CopyHere
oShellApp.NameSpace(sZipFile).Items
Do
WScript.Sleep 1000
Loop While oFSO.GetFolder(sTargetFolder).Files.Count < oShellApp.NameSpace(sZipFile).Items.Count End Function

更多影音教學與討論,請上[溫馨論壇]