一組VB實(shí)用小程序

2019-11-18 17:28:29

字體：大中小

供稿：網(wǎng)友

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

上一篇：在VB中實(shí)現(xiàn)閃動(dòng)標(biāo)題欄

下一篇：ODBCAPI的VBSample