1、防止程序被重复运行 假如你不希望你的VB应用程序被别人通过多次双击图标而重复运行,导致内存不足或其它意外,你可以在程序中增加以下几行: PRivate Sub Form_ Load if app.previnstance then msgbox "程序正在运行,请检查窗口是否被最小化。" end if End Sub
2、用UCase函数保障文件操作的正确性 在WIN32平台下,文件名一般为小写字母,但在WIN95平台,有时会出现大写。为保障在WIN32平台下用VB3开发的涉及到文件操作的程序在WIN95平台也能正常工作,可以用Ucase函数转换文件名的大小写。例如:在WIN32平台下用VB3开发一个媒体浏览器,可以用以下程序段实现自动播放,而不论文件的后缀名为大写的“ 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