VB範例網

2009-12-15T16:32:00.000+08:00

VB範例網為了方便日後更新內容，新的網站將會放在Blogspot內。網址為http://vbexample.blogspot.com/或http://vbex.net/。

網友可點擊右方「本站目錄」以選擇內容。
雖然此前本網荒廢將近一年的時間，但經過搬遷後，本網會陸續將新的內容上載，感謝各方網友一直以來的支持。
最後更新日期：二零零九年十二月十四日。

Xor 運算法

2009-12-15T16:30:00.002+08:00

有些網友可能看過一些範例，看見Xor運算符號，可是就不知是甚麼來的，讓我為大家寫個範例：
Private Sub Command1_Click()
　If 1 + 1 = 2 Xor 1 + 1 = 11 Then
　　MsgBox "成立!"
　Else
　　MsgBox "不成立!"
　End If
End Sub
結果為成立！因為Xor的運算是當一邊為True，一邊為False的時候則通過

怎樣得知控制項陣列有多少個元素?

2009-12-15T16:24:00.002+08:00

假設控制項陣列名稱是textArr，textArr.Ubound就是最大元素了
textArr.Lbound就是最小元素了

某張表單的變數如何傳到另一張表單?

2009-12-15T16:23:00.002+08:00

原本只要在每個表單開一個Test1就可以了：
Form1.Text1.Text = Form2.Text1.Text

可是如果每次傳值到另一個表單都要開一個TextBox就太浪費了！站長教您用一個更好的方法：

首先開Form1、Form2、Text1(於在Form2)和Command1(於在Form2)各一個，然後分別輸入：

'Form1程式碼：
Public MyValue as String '這行要放在最頂
Private Sub Form_Load()
　MyValue = "哈哈哈！"
End Sub

'Form2程式碼：
Private Sub Command1_Click()
　Text1.Text = Form1.MyValue
End Sub

ReDim

2009-12-15T16:22:00.001+08:00

二維陣列

2009-12-15T16:20:00.001+08:00

除了一維陣列，我們還可以宣告二維陣列：

Dim A(2, 2) as Integer

結果如下表：

我們可以利用For敘述句配置一些資料：

For i = 0 to 2
For j = 0 to 2
A(i, j) = i + j
Next j
Next i

結果：

一維陣列

2009-12-15T16:16:00.000+08:00

陣列是由許多形態一樣，但資料不同的項目組合而成，要分別它們就靠索引值：
在VB中如何宣和一個陣列呢？

Dim A(2) as Integer
如此就宣告了A成為一個陣列了！

如果我們要配置一些變數進去，可以利用For敘述句：

For i = 0 to 2
A(i) = i
Next i

結果：
A(0) =0
A(1) =1
A(2)= 2

我們可以抽取其中的值來使用：

A(0) = A(1) + A(2)

結果：
A(0) =3
A(1) =1
A(2) =2

Const

2009-12-15T16:11:00.001+08:00

Const是常數宣告，一些值是不斷被使用而其值是不變的，我們就可以宣告它們為常數：

Const Pi = 3.14
Const RD = 3.14 / 180
Const Birthday = #05/27/1985#
Const MyName = "小小菜"

這些常數一經被宣告後就不能改變其值，否則會發生錯誤：

Const Birthday = 27
Private Sub Command1_Click()
Birthday = Birthday + 1
End Sub

結果會出現執行階段錯誤！

Static

2009-12-15T16:10:00.000+08:00

當一個副程式(Sub/Function)結束時，在其中所宣告的變數就不再儲存，變數的內容因此留失，以下有一些例子：
Dim A As Integer

Private Sub Form_Click()
A = A + 1
Print A
End Sub

結果：
1
2
3
4
5

Private Sub Form_Click()
Dim A As Integer
A = A + 1
Print A
End Sub

結果：
1
1
1
1
1

Private Sub Form_Click()

Static A as Integer
A = A + 1
Print A
End Sub
結果：

1
2
3
4
5

例子1由於變數在最外宣告，因此不受副程式限制；
例子2變數在副程式內宣告，因此副程式結束後變數不被儲存；
例子3雖然變數在副程式內宣告，但由於宣告方式是Static，因此副程式結束後變數依然儲存。

Dim

2009-12-15T16:04:00.000+08:00

利用變數時我們宣告它們，否則會出現一些不能預計的錯誤：

Private Sub Command1_Click()
A = A + 1
Print A
End Sub
'不繼按時會印出：
1
1
1
1

Dim a As Integer
Private Sub Command1_Click()
a = a + 1
Print a
End Sub

'不繼按時會印出：
1
2
3
4

原因是左邊的範例沒有宣告變數a，因此不能儲存A的的值而無法加起。

而右邊的範例因為經過宣告，ａ已經被儲存，因此能夠加上。

以下是變數宣告的形態：

數字宣告形態及有效範圍：

Byte 0~255

Integer -32768~32767

Long -2147483648~2147483647

Single -3.402823E+38~-1.401298E-45，1.401298E-45~3.402823E+38

Double -1.79769313486231E+308~-4.94065645841247E-324，

4.94065645841247E+324~-1.79769313486231E+308

字串宣告形態及有效範圍：

String 0~65400個字元

其他宣告形態及有效範圍：

Boolean True或False

Date 西元100年1月1日~西元9999年12月31日

Object 任何物件

Variant 自由形態如數字、字串、物件、陣列等

變數大小寫視為相同例如：

abc = Abc = aBc = ABC……

Option

2009-12-15T15:59:00.003+08:00

Option是用來設定VB寫作時的狀態：

Option Base 設定陣列預設的最少值
Option Base 1 '只可以是0或1
Dim A(3) '開新陣列
Private Sub Form_Click()
Print LBound(A) 'LBound是用來偵察陣列的下限
End Sub
結果印出1

Dim A(3)
Private Sub Form_Click()
Print LBound(A)
End Sub
結果印出０

Option Explicit 所有變數必須要預先宣告
Option Compare 設定文字比較的模式
Option Compare Text 時，文字比較時不計較大小階
Option Compare Binary 時，文字比較時計較大小階

Type

2009-12-15T15:58:00.000+08:00

以下是利用Type宣告變數的例子：
Type L

A as String

B as Long

C as Date

End Type

Dim Letter as L

我們可以取讀Letter 的內容：

Letter.A = "小123小菜"

Letter.B = Var(Letter.A) + 456

Letter.C = #5/27/1985#

利用程式碼改變物件屬性

2009-12-10T18:32:00.000+08:00

這裡介紹VB中最利用簡單的語法調整物性，例如表單中有一個Command1和一個Text1，如果小小菜想按了按鈕後把Text1的內容改變的話，首先就在Command1上按連續兩下……

就會出現　Project1 - Form1（程式碼）這個視窗，在Private Sub Command1_Click()與End Sub
之間打上：
Command1.Caption = "小小菜的按鈕"
Text1.Text = "小小菜的欄位
Form1.Caption = "小小菜的表單"
打完後按F5執行……

按下Command1之後，表單、按鈕的標題和欄位的內容都變更了！

Private Sub Command1_Click() 'Private Sub 代表私有化的副程式開始

'Command1_Click()代表當Command1被按下時的事件

Command1.Caption = "小小菜的按鈕" 'Command1.Caption代表Command1的標題( 把它改成小小菜的按鈕)

Text1.Text = "小小菜的欄位" 'Text1.Text代表欄位的內容，最後Text1會變成小小菜的欄位

Form1.Caption = "小小菜的表單" 'Form1.Caption代表Form1的標題( 把它改成小小菜的表單)

End Sub

編譯成*.exe檔案

2009-12-10T18:31:00.000+08:00

如果用ＶＢ寫了一個檔案後如何能使用？每次都開啟VB執行嗎？當然不是～因為我們能把寫好的程式編制成*.exe應用程式，又快又方便！但是如何編譯呢？
按檔案(F)－＞製成Project1.exe(K)...
　　隨了*.exe之外，還可以編譯成*.scr (螢幕保護裝置檔）！因此您可以嘗試用ＶＢ製作私家螢幕保護裝置！

使用快速鍵

2009-12-10T17:44:00.000+08:00

VB6.0常用快速鍵如下：

貼上　　　　　：Ctrl + V
貼上連結　　　：Ctrl + K
複製　　　　　：Ctrl + C
剪下　　　　　：Ctrl + X
刪除　　　　　：Del
執行　　　　　：F5
列出屬性或方法：Ctrl + J
瀏覽物件　　　：F2
搜尋文字　　　：Ctrl + F

設定屬性

2009-12-10T17:41:00.000+08:00

在控制項、表單的單元中已經提到如何加入按鈕，但按鈕的標題是Command1，那麼如何把Command1改成"小小菜的按鈕"呢？

首先按一下表單上的Command1，然後在屬性列的Caption改成“小小菜的按鈕”

這時候原本的Command1成功變成了“小小菜的按鈕”了！其他的屬性則可以看看屬性列下面的詳盡解釋。

VB控制項、表單

2009-12-10T17:38:00.000+08:00

當您一開始啟動VB的時候，您會見到畫面如左圖。最左邊的是工具箱，旁邊的是視窗叫作表單。表單就是您的程式介面設計地方，可以任意配置物件（即是控制項）如按鈕、下拉列等等……

在工具箱按一個叫“CommandButton”的物件，然後在表單上按左鍵拖曳，就會出現一個按鈕了！而其他物件的加入方法都是一樣的。

至於表單的大小也可以任意調整，只要把滑鼠移到表單邊緣拖延即可。

VB Script

2009-12-06T11:26:00.003+08:00

VB的用途非常廣範的，除了程式應用方面，還可以用於網頁方面！如何用？就是利用VB Script了！以下站長會利用一些VB Script來教大家寫出互動的網頁效果！
請先檢查你的瀏覽器或防毒軟件有否禁止網頁使用VB Script，否則網頁內容可能無法執行。

API實戰

2009-12-06T11:25:00.001+08:00

系統

繒圖

網絡

如何偵測電腦是否已上網

視窗處理

滑鼠鍵盤

多媒體

用 mciSendString PI函數怎樣一直重複撥放？

其他

自製函數

2009-12-06T11:23:00.003+08:00

VB基本教學

2009-12-06T11:21:00.006+08:00

這裡主要教您如何正確使用VB，適合初學者。

變數、陣列

運算法

Xor 運算法

敘述句
VB是建基於Basic語法的，因此也如一般語法，有一些敘述如句If、Case、Do... Loop、For等等……以下為大家介紹一些常用的敘述句

迴圈敘述

控制項

視窗處理

資料庫

小秘訣

VB函數

2009-12-06T11:18:00.004+08:00

沒有了函數，就算有敘述句也不能運作，因為VB不會做動作，因此如果要令VB隨自己意思運作的話，函數就是我要下的命令了。
以下的函數用A-Z排列，並列明用途，方便網友查閱：
Ａ：

Asc　：將字元轉成字元碼
Abs　：絕對值的運算
Atn　：數學函數 Tan^-1

B：

暫時沒有，歡迎各網友提供！

Ｃ：

Command／Command$　：取得開啟檔案時的參數
Circle　：畫圓函數
Chr　：將字元碼轉成字元
Cos　：數學函數 Cos
CInt、CLng、CBool、CByte、CDate、CDbl、CCur、CSng、CStr　：形態轉換函數

D：

Day　：時間函數－取得日
Date　：時間函數－取得日期

E：

End　：強制關閉程式
Exit　：中途離開某敘述、副程式
Exp　：數學函數－指數

F：

Fix　：除去小數位
Format　：改變某運算式的格式
FileCopy　：複製檔案
FileLen ：取得檔案長度
FileDateTime　：取得檔案的日期和時間

G：

GetAttr　：改變檔案屬性

H：

Hour　：時間函數－小時

I：

IsNumeric、IsArray、IsDate、IsEmpty　：判斷函數
InputBox　：呼叫輸入資料視窗
InStr、InStrRev　：尋找特定字串
Int　：除去小數位

J：

Join　：合拼陣列的宇串

Ｋ：

Kill　：刪除檔案

Ｌ：

Left　：取得左邊的字元
LTrim　：刪除左邊的空白字元
Len　：取得字元的數目
Loc　：傳回開啟檔案中目前的讀寫位置
Log　：數學函數－對數
LBound　：判斷陣列的下限
LCase　：將英文字轉換成小階

Ｍ：

Mouth　：時間函數－月份
Minute　：時間函數－分
MonthName　：時間函數－取得月份名
Mid　：取得中間的字元
MsgBox　：呼叫對話視窗
MkDir　：製作資料夾

Ｎ：

Now　：傳回目前的系統日期及時間
Name　：更名函數（可以用來複製檔案）

Ｏ：

暫時沒有，歡迎各網友提供！

Ｐ：

PaintPicture　：繪圖函數－貼圖

Ｑ：

暫時沒有，歡迎各網友提供！

Ｒ：

Replace︰取代字串
Right　：取得右邊的字元
RTrim　：刪除右邊的空白字元
Rnd　：取得亂數
RmDir　：刪除某一資料夾
Randomize　：初始化亂數產生器

Ｓ：

Second　：時間函數－秒
Seek ︰傳回開啟檔案中目前的讀寫位置(函數)/設定檔案中目前的讀寫位置(敘述)
StrReverse　：反轉字串
Split　：字串分成陣列
Space　：隔空白字元
Sgn　：數學函數－符號函數
Sqr　：數學函數－二次方
SetAttr　：改變檔案屬性
Sin　：數學函數－Sin
Shell　：執行其他程式
String　：複製字串

Ｔ：

Tan　：數學函數－Tan
Trim　：刪除左右兩邊的空白字元
Time　：取得時間
Timer　：傳回由午夜到現在的秒數

Ｕ：

UCase　：將英文字轉換成大階
Unload　：將表單或控制項載出記憶
UBound　：判斷陣列的上限

Ｖ：

Val　：傳回字串中所含有的數字

Ｗ：

WeekdayName　：取得日子名

Ｘ－Ｚ：

Year　：時間函數－年

API字典

2009-12-06T11:08:00.005+08:00

A-B

AngleArc　：填入角度，並在某一DC裡畫出圓形
Arc　：在某一DC裡畫出弧形
BitBlt　：貼圖到某一DC（無法縮放影像）
BlockInput　：封鎖鍵盤及滑鼠

ChangeDisplaySettings　：設定螢幕的解像度及顏色
CHOOSECOLOR　：叫出選擇顏色的對話視窗
CHOOSEFONT　：叫出選擇字型的對話視窗
Chord　：在某一DC裡畫出一個弦
ClipCursor　：限制滑鼠的移動範圍
CopyFile　：複製檔案（沒有工作進度視窗）
CreateCompatibleBitmap　：建立相容性Bitmap
CreateCompatibleDC　：從記憶記製作出一個新的DC，並傳回hDC
CreateDirectory　：製作資料夾
CreateEllipticRgn　：製作橢圓形的hRgn（表單的形狀）
CreateFont　：製作出一個新的字型風格（大小、粗幼、出字的角度、斜體、底線及刪除線等）
CreateHatchBrush　：製作出板模刷子（FillStyle）
CreatePatternBrush　：製作出圖刷物件
CreatePolygonRgn　：製作多邊形的hRgn（表單的形狀）
CreateRectRgn　：製作長方形的hRgn（表單的形狀）
CreateRoundRectRgn　：製作圓角形的hRgn（表單的形狀）

D-F

DeleteDC　：清除用完的記憶體DC
DeleteFile　：刪除檔案（沒有工作進度視窗）
DeleteObject　：清除一個已製作的物件（e.g.: hBmp, hRgn, hIcon…）
DestroyCursor　：移除儲存在記憶體裡的圖示
DoFileDownload　：叫出下載檔案的視窗
Ellipse　：在某一DC中裡出一個弧形
EnableWindow　：使用家無法控制某一視窗或物件（xx.Enabled = False）
EnumDisplaySettings　：列舉出螢幕可支援的解像度及顏色設定
EnumWindows　：列舉出正在執行的的視窗的hWnd值
ExitWindowsDialog　：叫出“關閉Windows”的視窗
ExitWindowsEx　：關機、重新開機及登出電腦
ExitWindowsMsgBox　：叫出關機及重新開的的MessageBox
FindWindow　：利用物件或視窗的Caption或ClassName取得其hWnd值
FindWindowEx　：利用母表單的hWnd值取得其下物件的hWnd值
FlashWindow　：使視窗標題列閃爍
FloodFill　：在一封閉區裡填上顏色

GetAsyncKeyState　：取得鍵盤或滑鼠按鍵的訊息
GetClassName　：取得視窗視窗或物件的ClassName
GetComputerName　：取得電腦名稱
GetCursorPos　：取得滑鼠在螢幕上的座標
GetDC　：取得某視窗的hDC值（不包括視窗的工作區）
GetDeviceCaps　：取得螢幕顏色、寬度和高度等設定
GetDiskFreeSpaceEx　：取得硬碟空間的資訊
GetFileAttributes　：取得檔案的屬性設定
GetForegroundWindow　：取得正在得到駐點的視窗的hWnd值
GetObject　：取得圖片的大小及其位元數
GetOpenFileName　：叫出開啟檔案的對話視窗
GetPixel　：取得某一座標在DC裡顏色的數值
GetSaveFileName　：叫出儲存檔案的對話視窗
GetShortPathName　：取得短路徑
GetSystemDirectory　：取得System目錄路徑
GetSystemMetrics　：取得系統的各種料如取得螢幕大小、電腦開機模式（正常還是安全模式）或邊界粗幼等
GetTempPath　：取得Temp目錄路徑
GetTickCount　：取得開機到現在的時間
GetUserDefaultLangID　：取得系統的地區及語言選項的ID
GetUserName　：取得用定名稱（登入的名稱）
GetVersionEx　：取得電腦作業系統的版本資訊及系統名稱
GetWindowDC　：取得某視窗的hDC值（包括視窗的工作區）
GetWindowLong　：取得某一視窗的結構及屬性
GetWindowRect　：取得視窗的寬度及高度及其座標
GetWindowsDirectory　：取得Windows目錄路徑
GetWindowText　：設定視窗的標題（Caption）或TextBox內的Text等
GlobalMemoryStatus　：取得記憶體的資訊

I-K

InternetGetConnectedState取得連線的狀態
IsIconic　：判斷視窗是否為最小化
IsWindowVisible　：判斷視窗是否隱藏
IsZoomed　：判斷視窗是否為最大化
InternetGetConnectedState　：偵測電腦是否已上網
keybd_event　：模擬鍵盤按鍵

L-P

LineTo　：在某一DC裡畫直線
LoadCursor　：載入圖示
LoadCursorFromFile　：從檔案載入圖示
LockWindowUpdate　：停止視窗更新
mciSendString　：操作多媒體，可播放各類型的音樂、視訊檔及操作CD機
mouse_event　：模擬滑鼠移動及按鍵
MoveFile　：移動檔案（沒有工作進度視窗）
MoveToEx　：設定某一DC開始畫圖的位置
PageSetupDlg　：叫出設定列印版面的對話視窗
PaintDesktop　：取得桌面的圖案
Pie　：在某一DC裡畫出扇形
PolyBezier　：在某一DC裡畫出貝茲曲線
Polygon　：在某一DC裡畫出多邊形
PrintWindow　：取得視窗圖案

RasEnumConnections　：列舉出連線的項目
RasGetConnectStatus　：取得連線項目的狀態
Rectangle　：在某一DC裡畫出長方形
RegCloseKey　：關閉已開啟了的登錄
RegCreateKey　：建立一個新的登錄
RegDeleteKey　：刪除登錄
RegEnumValue　：列舉出登錄的機碼
RegOpenKey　：開啟登錄
RegQueryValueEx　：取得登錄機碼的內容
RegSetValueEx　：設定登錄機碼的內容
ReleaseCapture　：使系統在指定視窗停止接收滑鼠的各項訊息
ReleaseDC　：釋放利用GetDC或GetWindowDC取得某視窗hDC所佔的資源
RoundRect　：在某一DC裡畫出圖角形
RunDialog　：叫出執行視窗

SelectObject　：使DC和某一物件建立關聯
SendMessage　：傳送及接收Windows的各種訊息，做出的功能包括：取得＊＊＊密碼、關閉視窗、叫出“關閉Windows”的視窗、移動沒有標題列的視窗、剪下、貼上、複製、復原功能、使ListBox擁有Horizontal Scroll Bar、啟動螢幕保護裝置及其他等等……
SetComputerName　：設定電腦名稱
SetCursorPos　：設定滑鼠在螢幕上的座標
SetFileAttributes　：設定檔案的屬性
SetForegroundWindow　：從值入hWnd值設定得到駐點的視窗
SetLayeredWindowAttributes設定視窗透明度及去除表單中不須要的顏色（製作不規則表單）
SetParent　：設定視窗或物件的母表單
SetPixel　：設定某一座標在DC裡顏色的數值
SetTextColor　：設定某一DC字的顏色
SetWindowLong　：設定某一視窗的結構及屬性
SetWindowPos　：設定視窗的座標位置、寬度、高度及它的顯示方式（如最上層顯示等）
SetWindowRgn　：將hRgn套用到表單（設定表單的形狀）
SetWindowText　：設定視窗、TextBox等的標題或內容
SHBrowseForFolder　：叫出瀏覽資料夾的視窗
Shell_NotifyIcon　：在工作列建立一個小圖示，及接收該圖示的訊息
ShellAbout　：叫出關於視窗
ShellExecute　：執行某一檔案
SHEmptyRecycleBin　：自動清洗資源回收筒
SHFileOperation　：叫出複製、刪除、移動檔案的視窗
SHGetSpecialFolderPath　：取得特殊目錄的路徑（如我的最愛、我的文作夾等）
ShowWindow　：使視窗最大化、最小化、顯示隱藏、浮現等
sndPlaySound　：播放.wav音效檔案
StretchBlt　：貼圖到某一DC（能夠縮放影像）
SystemParametersInfo　：設定或取得系統的設定（如設定桌面、設定工作區及停用Ctrl+Alt+Del組合鍵等）

T-W

TextOut　：在某一DC裡印出文字
TransparentBlt　：在某一DC裡作透明貼圖（能夠縮放影像）
UpdateWindow　：強行刷新視窗
VerLanguageName　：從GetUserDefaultLangID取得的ID轉化成語言及地區選項的名稱
WindowFromPoint　：從座標取得視窗或物件的hWnd值

實用類

2009-12-02T20:12:00.009+08:00

Wordpro v4.0
作者：Dictbene
檔案大小：39.3KB
簡介：可以用它處理字串，有各樣不同的效果

鬧鐘

作者：Dictbene
檔案大小：8.96KB
簡介：定時會響鬧提醒你

順序執行器
作者：Dictbene@Thomson
檔案大小：16.8KB
簡介：自行設定要執行的檔案或要開啟的網頁，然後按一個鍵便會自動執行

虛擬滑鼠
作者：Dictbene
檔案大小：6.10KB
簡介：在沒有滑鼠的情況下可虛擬出滑鼠使用，按制方法見說明

表單切割程式製作工具
作者：Dictbene
檔案大小：11.1KB
簡介：用於VB6編程，切割表單時的輔助工具

遊戲類

2009-12-02T20:05:00.001+08:00

螢幕大報復
作者：藍兆
檔案大小：166KB
簡介：提供用不同的方法直接在螢幕上塗鴉

小狗闖天涯
作者：Dictbene
檔案大小：49KB
簡介：執行後會有一隻小狗在螢幕上通處跑