在VB中使用枚举变量.doc

在VB中使用枚举变量 ????VB5 引入枚举变量，使用它，我们可以显著地改变应用程序的易读性：Public Enum TimeOfDayMorning = 0Afternoon = 1Evening = 2End EnumSub Main()Dim RightNow As TimeOfDayIf Time = #12:00:00 AM# And Time #12:00:00 PM# ThenRightNow = MorningElseIf Time = #12:00:00 PM# And Time #6:00:00 PM# ThenRightNow = AfternoonElseIf Time = #6:00:00 PM# ThenRightNow = EveningEnd IfEnd Sub VB编程技巧几例山东 许振华 　1 文本框内容的自动选择。????在软件安装等一些场合需要将文本框中的内容自动选择，比如选择确省安装路径，在VB中可用如下的事件驱动代码：sub text1＿getfocus（）text1．selstart＝0 ’选择起始位置text1．sellength＝65000 ’选择长度end subsellength接近文本框允许的最大长度（65535），这样做是为了强迫VB使用文本的实际长度。　2 防止自身多次运行。????由于WINDOWS的多任务处理功能， 有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示后结束。一般将检测代码放在FORM＿LOAD（）中，因为程序一运行就要检测。代码如下：sub form＿load（）if App．PrevInstance thenmsg＄＝App．exename ＆ ”has already run”msgbox msg＄，48 ’给出程序已运行的提示和一惊叹号以示警告endendifend sub3 格式化输入。????在数据输入过程中，有些数据要求一定的格式，比如限制输入的只能为数字或英文字符，这可用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） ＆ ”Ver1．0 ” ’分两行显示MsgBox Msg1， 0， ”Copyright demo” ’只显示一个OK按钮End Sub 使用 IIF 和 SWITCH 以精减代码 ????在很多地方你都可以使用一个更紧凑的 IIf 函数来代替 If...Else...Endif 的结构： 例：返回两个值中较大的一个 maxValue = IIf(first = second, first, second)????Switch 则是一个很少使用的函数，可是在很多方面它都提供比 If...ElseIf 结构更好的 例：判断 x 是正、负还是 null?????????Print Switch(x0,负,x0,正, True, Null) 变量的地址 ????VB5 内置了一个 VarPtr 函数，可是此函数在 VB4 中没有提供。可