一組VB實用小程序
用VB實現編程離不開函數調用及Windows API函數的調用，以下是筆者收集的一些實用的小例程，它們可以直接用在你的實際編程中，也可以根據實際應用加以擴充完善。其中涉及Windows API函數調用的代碼你可以從VB5.0系統的API函數查看器中復制函數定義內容，以避免出錯。
1.系統型表單
系統型意味著用戶完成當前表單操作之前無法進行其它操作，這對于編制系統口令保護界面尤為重要。如果你希望當前表單系統型表單，需如下定義API函數：
然后調用：oldSysModal = SetSysModalWindow([Form].hWnd)
2.獲取驅動器類型
代碼如后：
3.表單在對中
本子程序功能使表單定位在屏幕中央，在表單中任何需要表單對中的地方只需加入一行代碼：
“centerwindow.me”即可成功調用。
4. 定義變量
許多的程序員習慣于如下定義變量：
實際上只有最后一個變量被設為了整型，前兩個變量則是系統的缺省的Variant 數據類型，而Variant 數據類型可用來替換任何數據類型，顯然對于精練的程序設計是不利的。 正確的方法如下：
5. 使文本高亮
本子程序使被觸發的諸如文本，標簽等控件的文本被選中
6. 關閉其它程序
下面的代碼可關閉內存中的其它程序
title = "MyAPP" '定義你需關閉的程序窗口的標題
7. 文件存在否?
本函數返回查找的文件是否存在。
8. 主程序唯一
用下面提供的代碼作你的主程序可防止應用程序的多重執行，你應當將它放在確信需要它的代碼模塊內。
上面這些精悍的代碼對于專業程序員來說非常有實用價值，希望你能從中獲得啟發。
1.系統型表單
系統型意味著用戶完成當前表單操作之前無法進行其它操作，這對于編制系統口令保護界面尤為重要。如果你希望當前表單系統型表單，需如下定義API函數：
| Declare Function SetSysModalWindow Lib "User" (ByVal hWnd As Integer) As Integer |
然后調用：oldSysModal = SetSysModalWindow([Form].hWnd)
2.獲取驅動器類型
代碼如后：
| Declare Function GetDriveType Lib “Kernel" (ByVal nDrive As Integer) As Integer Global Const DRIVE_REMOVEABLE％ = 2, DRIVE_FIXED％ = 3 Global Const DRIVE_REMOTE％ = 4 |
3.表單在對中
本子程序功能使表單定位在屏幕中央，在表單中任何需要表單對中的地方只需加入一行代碼：
“centerwindow.me”即可成功調用。
| Public Sub CenterWindow(f As Form) f.Top = (Screen.Height ＊ .5) － (f.Height ＊ .5) f.Left = (Screen.Width ＊ .5) － (f.Width ＊ .5) End Sub |
4. 定義變量
許多的程序員習慣于如下定義變量：
| Dim iNum, iNextNum, iLastNum as Integer |
實際上只有最后一個變量被設為了整型，前兩個變量則是系統的缺省的Variant 數據類型，而Variant 數據類型可用來替換任何數據類型，顯然對于精練的程序設計是不利的。 正確的方法如下：
| Dim iNum as Integer Dim iNextNum as Integer Dim iLastNum as Integer |
5. 使文本高亮
本子程序使被觸發的諸如文本，標簽等控件的文本被選中
| Public Sub SetSelected() Screen.ActiveControl.SelStart = 0 Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text) End Sub |
6. 關閉其它程序
下面的代碼可關閉內存中的其它程序
title = "MyAPP" '定義你需關閉的程序窗口的標題
| ihWnd = findWindow(0＆, Title) ihTask = GetWindowTask (ihWnd) iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0＆) |
7. 文件存在否?
本函數返回查找的文件是否存在。
| Function FileExist(Filename as string) as Boolean FileExist = Iif(Dir(Filename) <> "", True, False) End Function |
8. 主程序唯一
用下面提供的代碼作你的主程序可防止應用程序的多重執行，你應當將它放在確信需要它的代碼模塊內。
| Public Sub Main() If App.PrevInstance Then BringWindowToTop frmMain.hwnd Else Load frmMain End If End Sub |
上面這些精悍的代碼對于專業程序員來說非常有實用價值，希望你能從中獲得啟發。