VisualBasic使用技巧
给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的VisualBasic使用技巧,过去的都会过去,迎接崭新的开始,释放更美好的自己。
PrivateSubForm_Load
ifappprevinstancethen
msgbox″程序正在运行,请检查窗口是否被最小化。″
endif
EndSub
2用Ucase函数保障文件操作的正确性 在WIN32平台下,文件名一般为小写字母,但在WIN95平台,有时会出现大写。为保障在WIN32平台下用VB3开发的涉及到文件操作的程序在WIN95平台也能正常工作,可以用Ucase函数转换文件名的大小写。例如:在WIN32平台下用VB3开发一个媒体浏览器,可以用以下程序段实现自动播放,而不论文件的后缀名为大写的“AVI”、“WAV”、“MID”,还是小写的“avi”、“wav”、“mid”,还是大小写混合:
SubFile1_Click()
MMcontrol1filename=File1Path&″″&File1filename
t=Ucase(Right(File1filename,3))
Ift=″AVI″Ort=″WAV″Ort=″MID″Then
MMcontrol1Command=″close″
MMcontrol1Command=″play″
Endif
EndSub
3在VB5中汉字的长度为1而不是2 在VB3中每个汉字的长度为2,而在VB4和VB5中每个汉字的长度为1。在截取汉字字符串的子串时需特别引起注意,这种变化对设计汉字的排序、检索、筛选程序带来了较大的方便。另外,在VB5中汉字的ASCII码小于0,而在VB3或C++里,汉字的ASCII码均大于零。->