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=1Path&；"/"&1.name t=Ucase(Right(1name,3)) If t="VI" Or t="WAV" Or t="MID" Then MMcontrol1.Command="close" MMcontrol1.Command="play" End if End Sub
