| 订阅 | 在线投稿
分享
 
 
 

Visual Basic使用技巧

来源:互联网  宽屏版  评论
2008-06-01 01:10:21

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=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中汉字的长度为1而不是2

在VB3中每个汉字的长度为2,而在VB4和VB5中每个汉字的长度为1。在截取汉字字符串的子串时需非凡引起注重,这种变化对设计汉字的排序、检索、筛选程序带来了较大的方便。另外,在 VB5中汉字的ASCII码小于0,而在VB3或C++里,汉字的 ASCII码均大于零。

 
 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=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中汉字的长度为1而不是2   在VB3中每个汉字的长度为2,而在VB4和VB5中每个汉字的长度为1。在截取汉字字符串的子串时需非凡引起注重,这种变化对设计汉字的排序、检索、筛选程序带来了较大的方便。另外,在 VB5中汉字的ASCII码小于0,而在VB3或C++里,汉字的 ASCII码均大于零。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有