明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

Visual Basic使用技巧

[摘要]1、防止程序被重復(fù)運(yùn)行如果你不希望你的VB應(yīng)用程序被別人通過多次雙擊圖標(biāo)而重復(fù)運(yùn)行,導(dǎo)致內(nèi)存不足或其它意外,你可以在程序中增加以下幾行: Private Sub Form_ Load if app.previnstance then msgbox "程序正在運(yùn)行,請(qǐng)檢查窗口是否被最小化。...

1、防止程序被重復(fù)運(yùn)行
如果你不希望你的VB應(yīng)用程序被別人通過多次雙擊圖標(biāo)而重復(fù)運(yùn)行,導(dǎo)致內(nèi)存不足或其它意外,你可以在程序中增加以下幾行:
Private Sub Form_ Load
if app.previnstance then
msgbox "程序正在運(yùn)行,請(qǐng)檢查窗口是否被最小化。"
end if
End Sub

2、用Ucase函數(shù)保障文件操作的正確性
在WIN32平臺(tái)下,文件名一般為小寫字母,但在WIN95平臺(tái),有時(shí)會(huì)出現(xiàn)大寫。為保障在WIN32平臺(tái)下用VB3開發(fā)的涉及到文件操作的程序在WIN95平臺(tái)也能正常工作,可以用Ucase函數(shù)轉(zhuǎn)換文件名的大小寫。例如:在WIN32平臺(tái)下用VB3開發(fā)一個(gè)媒體瀏覽器,可以用以下程序段實(shí)現(xiàn)自動(dòng)播放,而不論文件的后綴名為大寫的“ AVI”、“WAV”、“MID”,還是小寫的“ avi”、“wav”、“mid”,還是大小寫混合:
Sub 1_Click()
MMcontrol1.name=1Path&;"\"&1.name
t=Ucase(Right(1name,3))
If t="VI" Or t="WAV" Or t="MID" Then
MMcontrol1.Command="close"
MMcontrol1.Command="play"
End if
End Sub

3、在VB5中漢字的長(zhǎng)度為1而不是2
在VB3中每個(gè)漢字的長(zhǎng)度為2,而在VB4和VB5中每個(gè)漢字的長(zhǎng)度為1。在截取漢字字符串的子串時(shí)需特別引起注意,這種變化對(duì)設(shè)計(jì)漢字的排序、檢索、篩選程序帶來(lái)了較大的方便。另外,在 VB5中漢字的ASCII碼小于0,而在VB3或C++里,漢字的 ASCII碼均大于零。