文本框内容的自动选择。 在软件安装等一些场合需要将文本框中的内容自动选择,比如选择确省安装路径,在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
[VB.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解