VB編程經(jīng)驗(yàn)點(diǎn)滴

2019-11-18 17:44:29

字體：大中小

供稿：網(wǎng)友

----欣喜看到VB編程人和愛(ài)好者的陣營(yíng)越來(lái)越大了，而現(xiàn)在VB6也已經(jīng)橫空出世了，在這里獻(xiàn)上自己的一點(diǎn)VB5編程的小經(jīng)驗(yàn)，權(quán)當(dāng)和廣大朋友交流交流，不妥之處多多指教。

----1.在打開(kāi)對(duì)話(huà)框中同時(shí)顯示多種類(lèi)型的文件

----在打開(kāi)文件時(shí)，我們往往會(huì)用到打開(kāi)對(duì)話(huà)框CommonDialog，要把文件類(lèi)型限制在一定的范圍內(nèi)得用CommonDialog的Filter屬性，比如將Filter屬性設(shè)置為"*.TXT|*.TXT"那么打開(kāi)對(duì)話(huà)框只顯示文本文件。如果要同時(shí)顯示幾種類(lèi)型的文件，比如要顯示所有的圖形文件，其設(shè)置方法為將Filter屬性設(shè)置為"圖片文件|*.bmp;*.jpg;*.gif"，這樣打開(kāi)對(duì)話(huà)框便能同時(shí)顯示bmp文件,jpg文件,gif文件。這個(gè)問(wèn)題似乎很簡(jiǎn)單，可筆者曾經(jīng)為這個(gè)問(wèn)題查閱了大量關(guān)于VB的書(shū)籍，但是都未找到。

----2.注意最后編譯的問(wèn)題

----如果編程中用到數(shù)據(jù)庫(kù)控件,在最后編譯時(shí),一定要注意數(shù)據(jù)庫(kù)控件的Datebase屬性,否則會(huì)在制作安裝盤(pán),裝到其它機(jī)子上時(shí)遇到問(wèn)題。原因是Datebase屬性中存在的路徑問(wèn)題。編譯前得將其路徑設(shè)置為當(dāng)前路徑。如果用的是 access數(shù)據(jù)庫(kù)，將Datebase屬性中的路徑信息去掉便可以了，比如，原先為"C:/money/money.mdb",則改為"money.mdb"。如果是FOXExitSub
ERROR1:
MsgBox("請(qǐng)輸入一個(gè)整數(shù)")
Text1.SetFocus
EndSub

----這樣就可以實(shí)現(xiàn)合法性檢測(cè)了，如果要的是浮點(diǎn)就將i定義成浮點(diǎn)就可以了，即：

PrivateSubText1_LostFocus()
DimiAsSingle
OnErrorGoToERROR1
i=Text1.Text
ExitSub
ERROR1:
MsgBox("請(qǐng)輸入一個(gè)單精度浮點(diǎn)數(shù)")
Text1.SetFocus
EndSub

----同理，如果要的是日期就將i定義成日期就可以了，就是說(shuō)，要什么樣的數(shù)據(jù)就將i定義成什么樣的數(shù)據(jù)類(lèi)型就可以了。

----當(dāng)然你不一定要在LostFocus事件中對(duì)數(shù)據(jù)的合法性進(jìn)行檢測(cè)，如果是制作數(shù)據(jù)庫(kù)應(yīng)用程序完全可以在數(shù)據(jù)被添加到數(shù)據(jù)庫(kù)之前再對(duì)數(shù)據(jù)進(jìn)行檢測(cè)，這樣對(duì)用戶(hù)將更加方便。

----5.窗體以外光標(biāo)位置的探測(cè)和設(shè)置

----用VB編程時(shí)想獲得窗體上的光標(biāo)位置很容易，用MouseMove事件的參數(shù)就可得到光標(biāo)在窗體上的位置。然而，如果想得到窗體以外的光標(biāo)位置或想在程序中設(shè)置光標(biāo)位置，那么則只好求助于API了，還好，這幾個(gè)API函數(shù)非常簡(jiǎn)單，即使剛接觸編程的朋友也能學(xué)會(huì)使用。這里筆者做一個(gè)簡(jiǎn)單的介紹，希望和大家共享使用API的樂(lè)趣。

----先介紹一下有關(guān)的API的結(jié)構(gòu)和函數(shù)，首先看一下獲得光標(biāo)位置的這個(gè)函數(shù)，其聲明如下：

BOOLGetCursorPos(
LPPOINTlpPoint
//指向POINT結(jié)構(gòu)的指針，其中包含所獲的光標(biāo)的位置信息
);
再來(lái)看一下POINT的結(jié)構(gòu)：
typedefstructtagPOINT{//pt
LONGx;
LONGy;
}POINT;
真是非常簡(jiǎn)單，最后看一下設(shè)置光標(biāo)位置的函數(shù)：
BOOLSetCursorPos(
intX,//要設(shè)置位置在屏幕上的橫坐標(biāo)
intY//要設(shè)置位置在屏幕上的縱坐標(biāo)
);

----在VB中使用API就需要一定的說(shuō)明了，還好VB提供了一個(gè)"API文本查看器"，你只要將所要用的API的聲明復(fù)制一下就可以用了。我們來(lái)做一個(gè)簡(jiǎn)單的例子來(lái)試一試。先建立一個(gè)項(xiàng)目，往窗體（Form1）上放置兩個(gè)TextBox控件（Text1和Text2），一個(gè)CommandButton控件（Command1）和一個(gè)Timer控件（Timer1）。將Timer1的Interval屬性改為1000。這個(gè)例子的功能是每隔一秒鐘在Text1和Text2中顯示光標(biāo)的位置坐標(biāo),按Command1按鈕光標(biāo)將按一定的規(guī)律在屏幕上漂移。所有的代碼如下：

PrivateTypePOINTAPI
xAsLong
yAsLong
EndType
PrivateDeclareFunctionGetCursorPosLib"user32"(lpPoint aspOINTAPI)AsLong
PrivateDeclareFunctionSetCursorPosLib"user32"(ByValxAsLong,ByValyAsLong)AsLong
'以上為API及數(shù)據(jù)結(jié)構(gòu)的聲明

PrivateSubCommand1_Click()
DimiAsInteger
DimjAsInteger
Fori=0ToScreen.Width
SetCursorPosi,100'設(shè)置光標(biāo)位置
Forj=0To1000'循環(huán)延時(shí)
Nextj
Nexti
EndSub

PrivateSubTimer1_Timer()
Dimpoint1AsPOINTAPI
GetCursorPospoint1'獲得光標(biāo)位置
Text1.Text=point1.x'顯示光標(biāo)位置X
Text2.Text=point1.y'顯示光標(biāo)位置Y
EndSub

----輸入完畢后存盤(pán)運(yùn)行就行了，可以發(fā)現(xiàn)在VB中是很容易實(shí)現(xiàn)的。

----6.Windows各種路徑的獲得

----在WINDOWS下編程經(jīng)常需要在程序中獲得各種路徑，比如當(dāng)前的工作路徑，系統(tǒng)的路徑，等各種路徑。在WINDOWS的API中提供了齊全的API函數(shù)供我們調(diào)用。

----先來(lái)看一下這幾個(gè)API函數(shù)的說(shuō)明：

----(1).DWordGetCurrentDirectory(

DWORDnBufferLength,//接收目錄的字符串的長(zhǎng)度
LPTSTRlpBuffer//接收目錄的字符串的地址
);

----通過(guò)調(diào)用這個(gè)函數(shù)將獲得當(dāng)前的目錄，如果調(diào)用失敗此函數(shù)將返回零。調(diào)用這個(gè)函數(shù)時(shí)應(yīng)將nBufferLength參數(shù)設(shè)足夠大，接收目錄的字符串當(dāng)然也要有這么長(zhǎng)。詳細(xì)用法請(qǐng)看例子。另外用SetCurrentDirectory（）函數(shù)可以設(shè)置當(dāng)前目錄。

----(2).UINTGetSystemDirectory(

LPTSTRlpBuffer,//接收目錄的字符串的地址
UINTuSize//接收目錄的字符串的長(zhǎng)度
);

----通過(guò)調(diào)用這個(gè)函數(shù)可獲得系統(tǒng)的目錄，如果調(diào)用失敗此函數(shù)將返回零。

----3.UINTGetWindowsDirectory(

LPTSTRlpBuffer,//接收目錄的字符串的地址
UINTuSize//接收目錄的字符串的長(zhǎng)度
);

----通過(guò)調(diào)用這個(gè)函數(shù)可獲得WINDOWS目錄，如果調(diào)用失敗將返回零。關(guān)于這個(gè)函數(shù)和第二個(gè)函數(shù)的區(qū)別，通過(guò)下面的例子你一定會(huì)非常清楚。

----下面用VB來(lái)實(shí)現(xiàn)。首先當(dāng)然要先把API的聲明加到代碼中,開(kāi)始一個(gè)新項(xiàng)目，在窗體（Form1）上放上三個(gè)按鈕（Command1，Command2，Command3）。這個(gè)例子的功能是單擊按鈕用MSGBOX顯示得到的路徑。

----筆者發(fā)現(xiàn)不能簡(jiǎn)單地復(fù)制VB5的API文本查看器中關(guān)于上面幾個(gè)API的聲明，要做一定的修改，要在每個(gè)函數(shù)名后加一個(gè)"A"，所有代碼如下。

PrivateDeclareFunctionGetCurrentDirectoryALib"kernel32"(ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLong
PrivateDeclareFunctionGetWindowsDirectoryALib"kernel32"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
PrivateDeclareFunctionGetSystemDirectoryALib"kernel32"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

PrivateSubCommand1_Click()
DimPathAsString*255
GetCurrentDirectoryA(Len(Path),Path)'獲取當(dāng)前路徑
MsgBox(Path)
EndSub

PrivateSubCommand2_Click()
DimPathAsString*255
GetWindowsDirectoryA(Path,Len(Path))'獲取WINDOWS路徑
MsgBox(Path)
EndSub

PrivateSubCommand3_Click()
DimPathAsString*255
GetSystemDirectoryA(Path,Len(Path))'獲取SYSTEM路徑
MsgBox(Path)
EndSub

----7.錯(cuò)誤陷阱中要注意的問(wèn)題

----筆者發(fā)現(xiàn)在循環(huán)中應(yīng)用錯(cuò)誤陷阱技術(shù)有一定的問(wèn)題。比如下面這一段程序：

PrivateSubCommand1_Click()
DimIAsInteger
DimJAsInteger
OnErrorGoToJERROR
ForI=0To3
MsgBox(I)
J=10000*10000'讓J發(fā)生溢出錯(cuò)誤
JERROR:
NextI
EndSub

----按通常的分析，這段程序在運(yùn)行時(shí)應(yīng)該是不會(huì)出現(xiàn)錯(cuò)誤的，但實(shí)際運(yùn)行一下可以發(fā)現(xiàn)，當(dāng)I等于1時(shí)發(fā)生溢出錯(cuò)誤。這就是說(shuō)錯(cuò)誤陷阱只在循環(huán)的第一次有效。這個(gè)問(wèn)題很值得注意，否則會(huì)給程序留下一個(gè)很大的臭蟲(chóng)。->

上一篇：有關(guān)Tray系統(tǒng)盒的VBAPI函數(shù)

下一篇：不能再次裝載程序