文本框内容的自动选择。
在软件安装等一些场合需要将文本框中的内容自动选择，比如选择确省安装路径，在VB中可用如下的事件驱动代码：
sub
text1＿getfocus（）
text1．selstart＝0 ’选择起始位置
text1．sellength＝65000
’选择长度
end sub
sellength接近文本框允许的最大长度（65535），这样做是为了强迫VB使用文本的实际长度。
2
防止自身多次运行。
由于WINDOWS的多任务处理功能，
有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示后结束。一般将检测代码放在FORM＿LOAD（）中，因为程序一运行就要检测。
代码如下：
sub
form＿load（）
if App．PrevInstance then
msg＄＝App．exename ＆ ”has already
run”
msgbox msg＄，48 ’给出程序已运行的提示和一惊叹号以示警告
end
endif
end sub
3
格式化输入。
在数据输入过程中，有些数据要求一定的格式，比如限制输入的只能为数字或英文字符，这可用VB的格式输入文本框来实现。它与文本框（TEXT
BOX）功能基本相似，但多了一个MASK属性，MASK属性常用的设定如下：
＃—限定仅能输入数字0～9；
A—
限定输入为英文字符及数字；
？—限定仅能输入英文字符；
．—限定小数点位置；
：—限定时间分隔号；
／—限定日期分隔号
不需编写代码，只要在设计时将格式化文本框对象（MASKED
EDIT）的MASK属性设计好所需格式即可。比如 ## - ## - ## 可输入12－11－96。
4
用MSGBOX函数设计版权信息。
MsgBox函数可用来设计简易的版权信息，它只能显示文本，如果要求不高的话可采用它，优点是非常方便，比如在菜单ABOUT项中显示版权信息。
MsgBox函数的用法如下：MsgBox
msg ［， ［type］［， title］ ］
msg —需要显示的文字信息，如版权信息。
type—按钮显示选择项。
如 0
只显示 OK按钮（确省选择），4 显示 Yes 和 No 按钮
title—标题文字信息。
MSGBOX最多能显示1024个字符，
超出的将被截去；它可自动换行，如果你想强制换行的话需要在换行处加入换行符CHR（10）。
例子：
Sub Form＿Click （）
Msg1
＝ ” Copyright （c） 1996” ＆ Chr（10） ＆ Ver
1．0 ” ’分两行显示
MsgBox Msg1， 0，
”Copyright demo” ’只显示一个OK按钮
End Sub
|
