用VB實現編程離不開函數調用及WindowsAPI函數的調用，以下是筆者收集的一些實用的小例程，它們可以直接用在你的實際編程中，也可以根據實際應用加以擴充完善。其中涉及WindowsAPI函數調用的代碼你可以從VB5.0系統的API函數查看器中復制函數定義內容，以避免出錯。
1.系統型表單
系統型意味著用戶完成當前表單操作之前無法進行其它操作，這對於編制系統口令保護界面尤為重要。如果你希望當前表單系統型表單，需如下定義API函數：
DeclareFunctionSetSysModalWindowLib"User"(ByValhWndAsInteger)AsInteger
然後調用：oldSysModal=SetSysModalWindow([Form].hWnd)
2.獲取驅動器類型
代碼如後：
DeclareFunctionGetDriveTypeLib“Kernel"(ByValnDriveAsInteger)AsInteger
GlobalConstDRIVE_REMOVEABLE％=2,DRIVE_FIXED％=3
GlobalConstDRIVE_REMOTE％=4
3.表單在對中
本子程序功能使表單定位在屏幕中央，在表單中任何需要表單對中的地方只需加入一行代碼：
“centerwindow.me”即可成功調用。
PublicSubCenterWindow(fAsForm)
f.Top=(Screen.Height＊.5)－(f.Height＊.5)
f.Left=(Screen.Width＊.5)－(f.Width＊.5)
EndSub
4.定義變量
許多的程序員習慣於如下定義變量：
DimiNum,iNextNum,iLastNumasInteger
實際上只有最後一個變量被設為了整型，前兩個變量則是系統的缺省的Variant數據類型，而Variant數據類型可用來替換任何數據類型，顯然對於精練的程序設計是不利的。正確的方法如下：
DimiNumasInteger
DimiNextNumasInteger
DimiLastNumasInteger
5.使文本高亮
本子程序使被觸發的諸如文本，標簽等控件的文本被選中
PublicSubSetSelected()
Screen.ActiveControl.SelStart=0
Screen.ActiveControl.SelLength=Len(Screen.ActiveControl.Text)
EndSub
6.關閉其它程序
下面的代碼可關閉內存中的其它程序
title="MyAPP"'定義你需關閉的程序窗口的標題
ihWnd=findWindow(0＆,Title)
ihTask=GetWindowTask(ihWnd)
iRet=PostAppMessage(ihTask,WM_QUIT,0,0＆)
7.文件存在否？
本函數返回查找的文件是否存在。
FunctionFileExist(Filenameasstring)asBoolean
FileExist=Iif(Dir(Filename)<>"",True,False)
EndFunction
8.主程序唯一
用下面提供的代碼作你的主程序可防止應用程序的多重執行，你應當將它放在確信需要它的代碼模塊內。
PublicSubMain()
IfApp.PrevInstanceThen
BringWindowToTopfrmMain.hwnd
Else
LoadfrmMain
EndIf
EndSub
上面這些精悍的代碼對於專業程序員來說非常有實用價值，希望你能從中獲得啟發。->
