回 帖 发 新 帖 刷新版面

主题:[转帖]程序编制技巧(1998-1999收集整理)

在VB中使用枚举变量 

    VB5 引入枚举变量,使用它,我们可以显著地改变应用程序的易读性:

Public Enum TimeOfDay

Morning = 0

Afternoon = 1

Evening = 2

End Enum

Sub Main()

Dim RightNow As TimeOfDay

If Time >= #12:00:00 AM# And Time < #12:00:00 PM# Then

RightNow = Morning

ElseIf Time >= #12:00:00 PM# And Time < #6:00:00 PM# Then

RightNow = Afternoon

ElseIf Time >= #6:00:00 PM# Then

RightNow = Evening

End If

End Sub


 
VB编程技巧几例
山东 许振华 
 

1 文本框内容的自动选择。

    在软件安装等一些场合需要将文本框中的内容自动选择,比如选择确省安装路径,在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


 
使用 IIF 和 SWITCH 以精减代码 


    在很多地方你都可以使用一个更紧凑的 IIf 函数来代替 If...Else...Endif 的结构: 例:返回两个值中较大的一个 maxValue = IIf(first >= second, first, second)


    Switch 则是一个很少使用的函数,可是在很多方面它都提供比 If...ElseIf 结构更好的 例:判断 "x" 是正、负还是 null?

        Print Switch(x<0,"负",x>0,"正", True, "Null")


 
变量的地址 

    VB5 内置了一个 VarPtr 函数,可是此函数在 VB4 中没有提供。可是你知道吗?VB4 的运行库中已经包含了此函数。只是在用它之前,我们需要声明一下:

        #If Win16 Then

        Declare Function VarPtr Lib "VB40016.DLL" (variable As Any) As Long

        #Else

        Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As Long

        #End If

    此函数在传递一个 Type 结构(如果此结构要求其一段是另一个变量或记录的地址)给一个外部的 API 程序时十分有用。



 
向文件中写入非 ASCII 字符 


    如何向一个文件中写入非ASCII字符(ASCII码在128-255之间)?这在 VB3 中按常规方法就可以很好处理。但是,自 VB4 起,微软引入 Unicode 后,此问题就显得有些麻烦。方法如下:

      Dim a As Byte '如果你不用 Unicode,微软推荐使用 Byte 类型替换 String 类型

      a=&HF5 '此处直接给处 ASCII 码即可

      Open "test.dat" For Binary As #1

      Put #1, , a

      Close (1)

 
VB中感叹号“!”与圆点“.”的用法差异
河北 马昱 


    在Visual Basic中,惊叹号“!”与圆点“.”都用于给对象命名,但两者语法上却存在很大的区别,这点在编程时尤其需要注意。

    圆点操作符“.”用来表示对象的属性和方法,在引用时,需要用到对象的Name、圆点和需要的属性或方法。例如要引用文本框Textl中的文本属性时可用reponse$=Text1.Text,再如要改变Form1窗体返回或读取对象高度的单位时用Form1.ScaleHeigh=2000表示。

    感叹号“!”常用于当一个控件作为一个特性访问的情况下,例如引用Fomr2中Text1文本框文本属性时,可采用response$=Form2!text1.text语法格式。

    虽然两者的语法应用结构有较大差异,但两条语句的性能是相同的,值得注意的是如果你在感叹号“!”的位置使用“.”可以获得对窗体上Text1特性的直接访问权,为了进一步增加感性认识,你不妨运行下面的例子来试试。

    1.建立一个新项目,并在Form1窗体中增加一个命令控件。

    2.双击Form1窗体,编辑Form-Load事件并输入:

        Form1!Command1.Caption=”Text”

        Form1.Command1.Caption=”It Works”

    3.运行试项目,这时你就会在Command1命令框中看到字符串It Works。

    为了在程序中清楚地界定引用的控件名和该控件的属性或方法,增加程序的可读性,最好使用感叹号“!”,这也是VB的推荐方式。


 

回复列表 (共2个回复)

沙发

0、""(空字串)、Null、Empty、与 Nothing 的区别 


    先回答以下问题吧! 经过以下的叙述之后, 变量 A、B、C、D 分别等于 0、""、Null、 Empty、 Nothing 的哪一个?

Dim A

Dim B As String

Dim C As Integer

Dim D As Object

    A 等于 Empty, 因为尚未初始化的「不定型变量」都等于 Empty。但如果检测 A = "" 或 A = 0, 也都可以得到 True 值。

    B 等于 "", 因为尚未初始化的非固定长度「字串」都等于 "" 。 但请注意 B<> Null。

    C 等于 0, 这个还有问题吗?

    D 等于 Nothing, 尚未设定有物件的「物件变量」都等于 Nothing, 但请不要使用 D = Nothing , 而要使用 D Is Nothing 来判断 D 是否等于 Nothing, 因为判断 是否相等的符号是 Is 不是 = 。

    最令人迷惑的地方是 Null 这个保留字, 请看以下语句:

Print X = Null

Print X <> Null

    结果都是输出 Null(不是 True 也不是 False), 这是因为任何一个运算式只要含有 Null , 则该运算式就等于 Null, 实际上想要判断某一数据是否为 Null 绝对不能使用:

        If X = Null Then ' 永远都会得到 Null

    而要使用:

        If IsNull(X) Then

    哪一种数据会等于 Null 呢? 除了含有 Null 运算式之外, 就属没有输入任何数据的「数据字段」(在数据库中) 会等于 Null。


 
巧用Visual Basic的RND()函数
浙江 傅昌盛 

    Visual Basic的RND()函数有一个重要的特征:当RND()的参数(我们称这里可以称它为种子)为负值时,同一种子(负值)产生同一个随机数序列。同时Visual Basic还具有强大的二进制技术功能,这样我们可以按以下思路实现文件内容加密:

      X=RND(-KEY) ’KEY为正数

      VAULE=INT(256*RND) ’产生一个随机数(以此为密码)

      Open FILENAME$ For Binary As #FILENUM’打开文件

      Get #FILENUM,I,A ’取文件内容

      B=A XOR VAULE ’得到加密文件

    结合

      C=B XOR VAULE’得到解密文件(B为加密后文件内容)

    注意:这里的A非整个文件内容,可以是极少部分、几个字节甚至单个字节,若为单字节,则文件中的每个字节同不同的数异或,破译难度可见有多么大。具体过程:

      Sub ENDECODE(FILENAME$,MA,FILE2$)'参数为:源文件,密码,目标文件

      Dim FILENUM As Integer,X As Single,I As Single

      Dim CHARNUM As Integer,RANDOMINTEGER As Integer

      Dim SINGLECHAR As String *1,filen2 As Integer'取单字节

      If MA<0 Them

      MA=MA*(-1)

      End If

      X=Rnd(-MA)'参数为负

      FILENUM=FreeFile

      Open FILENAME$ For Binary As #FILENUM '二进制方式打开源文件

      filen2=FreeFile

      Open FILE2$ For Output As #filen2’以顺序文件打开目标文件

      For i=1 To LOF(FILENUM)'LOF()文件字节长

      Get #FILENUM,i,SINGLECHAR'取单字节内容

      CHARNUM=Asc(SINGLECHAR)

      RANDOMINTEGER=Int(256*Rnd)'得到字母表

      CHARNUM=CHARNUM Xor RANDOMINTEGER'异或

      Print #filen2,Chr$(CHARNUM);’写入目标文件

      Next I

      Close FILENUM

      Close filen2

      ok ’调用成功对话框

      End Sub

        调用格式:ENDECODE 源文件名,密码,目标文件名

    上面过程可以对任何EXE、COM、文本等文件进行加解密(奇数次加密,偶数次解密),重演性极好,保密性特优,若对上述过程进一步加工,如进行多重随机等手段处理,那么将会更上一层楼,在此不累述。

    顺便提一下,上面过程若对目标文件同样以二进制文件打开、写入,那么只能对纯西文文本进行加解密,对于纯中文文本则通过修改取双字节、I的步长为2来实现,其它(中西文结合文本、EXE、COM等文件)则将得不到预期结果,其原因可以能是ASCII大于127的字符,不能正常显示,不能用put语句正常写入文件(得到的只是空格),有兴趣者不妨一试。


 
利用 lstrlen 计算中英文混合字串的长度 

在 32-bit 版本的 VB 底下, 将每一个字符都视为两个 Byte, 所以

Len("中英Mixed") 等于 7
LenB("中英Mixed") 等于 14

但是在很多场合底下, 我们希望中文字长度以 2 计算, 英文字母长度以 1 计算, 此时使用的方法如下:

' 欲计算字串 S 的长度
N = 0
For I = 1 To Len(S)

C = Asc(Mid(S, I, 1)) ' 取得第 I 个字符组的字符码
If C >= 0 And C < 128 Then ' 英文

N = N + 1

Else ' 中文

N = N + 2

End If

Next

看起来程序有点罗唆, 如果您不喜欢这个方法, 可以使用 Windows API 的 lstrlen 函数, 假设假计算 S 的长度, 则 API 声明式如下:

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

而调用的叙述则是:

n = lstrlen("中英Mixed" + Chr(0))
Print n ' n 将等于 9

请注意调用 lstrlen 时必须加上 Chr(0), 因为此一函数是根据 Chr(0) 来判断字串的结束。

调用 lstrlen 除了程序比较简短之外, 速度也比我们写 VB 程序判断中英文字然后计算长度来的快。


 
利用 StrConv 计算中英文混合字串的长度 

上一周说明利用 Windows API 的 lstrlen 计算中英文混合字串的长度之后,台中的 Rose 读者来函, 说还有更简单的计算方法, 如下:

LenB(StrConv("中英Mixed", vbFromUnicode))

说真的, 因为笔者懂得调用 Windows API, 所以竟然忽略了此一 VB 内建的函数,可见闻道有先后, 在此笔者亦希望先闻道的读者能够将您的心得发表出来, 与喜欢 VB 的读者交流。

StrConv 的作用是字串内容的转换, 其中将叁数二设定成 vbFromUnicode,作用是把「双位元」的字串转换成中文字占用 2 Bytes、英文占用 1 Bytes 的字串,所以紧接着调用 LenB, 便可以计算出中英文混合字串的长度。


 
如何传递不固定个数的叁数? 

定义副程序时, 我们必须把叁数一一列出来, 例如:

Sub MySub( P1, P2, ┅)

但如果我们将来调用副程序时, 可能会传入不固定个数的叁数, 那么副程序该如何定义呢?答案如下:

Sub MySub( ParamArray P() ) ' 把叁数 P 定义成一个阵列

如此定义副程序之后, 以下都是将来可能出现的调用叙述:

MySub "ABC" ' 只传递一个叁数
MySub 1, 3, 9, 988, 776, 234 ' 传递 6 个整数叁数
MySub 123, "abc", Date() ' 传递 3 个不同型别的叁数

以最后一个调用叙述为例, P(0) 叁数将等于 123, P(1) 叁数等于 "abc", P(2) 叁数则等于 Date() 函数的传回值, 而由于 P() 是一个阵列, 我们可以利用以下方法读取每一个叁数:

For i = 0 To UBound(P)
    ' P(i) 等于第 i 个叁数
Next
最后, 请注意以 ParamArray 所定义的叁数一定是 Variant(不定型) 型别, 若要判断每一个个别叁数的资料型别, 可以使用 TypeName 函数。

 

板凳

用VB实现浮动按钮 

    在微软的很多软件(如WORD)的工具栏中,都采用一种浮动按钮,即正常情况下按钮的图标呈灰色,当鼠标移动到某一按钮时,该按钮自动向上凸起且变为彩色,并在按钮的右下方有一标签提示该按钮的功能,鼠标移开后又自动还原,这种按钮用VB实现时,方法如下:

    1.先用绘图工具作出按钮图标后存盘(如1.bmp),再用图象处理软件将该图标转换为灰 度图或浮雕图后再存盘(如2.bmp)。

    2.运行VB,建立一新窗体(如form1)。

    3.在窗体上需要建立按钮的位置处建立一图片框(如image1),其大小和图标相同,并将 其picture属性设为2.bmp。

    4.在image1周围建立由四个长度相同的line控件(如line1~4)组成的方框,方框要比image1 控件稍大,否则达不到预计效果,将上面和左边的颜色设成白色,下面和右边的设成黑色, 并将四个line控件的visible属性都设成false 。

    5.在程序中加入以下内容即可:

        Private Sub Image1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)

        Image1.Picture=LoadPicture("c:\1.bmp")

        Line1.Visible=True

        Line2.Visible=True

        Line3.Visible=True

        Line4.Visible=True

        End Sub

        Private Sub Form1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)

        Image1.Picture=LoadPicture("c:\2.bmp")

        Line1.Visible=False

        Line2.Visible=False

        Line3.Visible=False

        Line3.Visible=False

        End Sub


 
如何设计一个可中断循环的按钮。 

当 程 序 进 入 循 环 而 尚 未 脱 离 时 , 使 用 者 将 无 法 操 作 表单 上 的 控 制 控 件 , 所 以 按 钮 也 是 无 法 操 作 的 。 想 要 设计 可 中 断 循 环 的 按 钮 , 首 先 必 须 在 循 环 之 中 安 插 DoEvents 叙 述 , 例 如 :

    While ...
循 环 内 的 处 理 工 作
    DoEvents
    Wend
DoEvents 的 作 用 是 暂 时 释 放 CPU, 让 其 他 程 序 得 以 被 执 行, 也 就 是 让 使 用 者 可 以 操 作 表 单 上 的 控 制 控 件 。

接 着 声 明 一 个 全 域 变 数 : Dim bExit As Boolean, 然 后 在 回圈 中 增 加 以 下 的 判 断 式 :

    While Not bExit
    循 环 内 的 处 理 工 作
    DoEvents
    Wend
    bExit = False
最 后 则 是 在 按 钮 的 Click 事 件 程 序 中 撰 写 以 下 叙 述 :

    bExit = True
以 上 程 序 有 两 大 重 点

(1) DoEvents 让 使 用 者 可 以 按 下 命令 钮

(2) 按 钮 按 下 时 , 将 全 域 变 数 bExit 设 定 成 True, 使 得 程 序 在 判 断 Not bExit 为 False 的 情 况下 而 脱 离 循 环 。

 

我来回复

您尚未登录,请登录后再回复。点此登录或注册