VB编程开发常见技巧

　?Visual Basic(以下简称VB)是Windows下的一个面向对象的可视 化开发环境,功能非常强大。下面笔者就自己在实际软件开发过程中 获得的一些经验和大家作以交流。
　　提示钮的实现
　　如果自己留心一点儿,一定注意到了Microsoft公司的一系列产品 (如Word、Excel甚至B 本身),都为其应用程序的命令按钮提供了信息 。如用户不清楚软件中所列图标按钮的功能, 可将鼠标移至该图标按 钮上,过一会儿在其下方就会显示一信息,说明它的作用,而鼠标移开 后,提示即消失。
图1
　　这里我们利用mousemove这一事件来实现。先将Label1.visible 设置为False再输入以下代码。
　　Private Sub Command1_MouseMove(Button As
　　Integer,Shift As Integer,X As Single,
　　Y As Single)
　　　　Label1.Visible=True
　　End Sub
　　Private Sub Form_MouseMove(Button As Integer,Shift As In
teger,X As Single, As Single)
　　 Labl1.Visible=False
　　End Sub
　　若按钮放在Frame中,则将Form_mousemove事件改为Frame_mousem ove即可,或干脆二者都写。

　　背景设置
　　我们进行软件设计时,功能实现当然是第一位的,但人机界面也绝 不容忽视。有时我们希望为其加一个比较漂亮的背景,且自始至终都 在屏幕上。我们可让一窗体一直不释放,但这样效果并不好。VB提供 的MDI表单(Multiple Document Interface即多文档界面)是一个包含 多个子表单的容器,是应用程序的背景表单。我们可插入一MDI表单( 选Insert、MDI Form即可),这样就使应用程序具有了MDI功能。在MDI 窗体Picture属性中加入想要的图片,然后把其它表单的MDIChild属性 设置为True,使它们成为MDI主菜单的子表单。一个应用程序只能有一 个MDI表单,但可有多个各不相同的非MDI子表单。这一点在Word、Exc el中都有体现。如Micrs oft Excel中包含工作表和图表子菜单,作为 一些普通对话框的宿主。
　　Tab键与回车键
　　①用过VB的人一定知道,用文本框Text输入时很不方便,因为VB本 身并不支持回车而自动跳到下一个控件。这一点可用Keypress事件来 解决。
　　Private Sub Text1_KeyPress(KeyAscii As Integer)
　　If KeyAscii=13 Then text2.SetFocus 13是return键
　　End Sub
　　②另外,文本框在用户按回车键时会发出蜂鸣声,如何避免呢?输 入以下代码:
　　Private Sub Text eyPress(KeyAscii As Integer)
　　 If KeyAscii=13 Then
　　 KeyAscii=0
　　 End If
　　End Sub
　　即可避免。而且用户按回车键常常有一定的目的——跳到下一个 控件,我们可让Tab键模拟回车键,只要在Keyascii=0前回上一句sendk eys"{Tab}"即可。
　　快捷菜单的实现
　　利用鼠标右键弹出菜单功能简单方便。如在Win95资源管理器中, 选中一文件目录或文件后按右键即弹出一菜单,可选"发送"项,很方便 拷贝至A盘;Desktop上按右键亦可方便修改桌面属性,这些都无疑极大 程度地方便了用户。我们利用VB编程时,也可实现这一功能。在菜单 编辑器中定义好菜单文件后,对鼠标右键编写对应的响应代码即可(必 须有下一级菜单)。
　　Private Sub Form_MouseDown(Button As Integer,Shift As In
teger,X As Single, As Single)If Button=2 Then PopupMenu mhel
p
　　End Sub
　　若想原菜单不显示在屏幕上,可将其Visible设为False(如本例中 为mhelp)。图3

　　滚动条
　　笔者认为,VB4.0中提供的滚动条功能还不够完善,过程控制都得 用户自己去实现,如要用滚动条去控制文本框或标签,我们可将其Inde x属性改为0,利用数组控制下标来移动(如Tex( text).move X,Y),再 将其Visible作相应的改变即可。但如果开发程序较大、控制较多的 话,则需要把它们从内存中释放(即Unload),为程序顺利运行留下更多 的内存空间。此时需小心控制其下标以正确运行。
　　按钮名的动态变化
　　由于桌面空间有限,我们不可能同时在一屏幕上放很多控件,否则 会显得特别拥挤。但我们可从Foxpro Wizard开发的程序中得到启示 。如"追加"按钮揿下去后,即变为"存盘"或"放弃"。我们可将命令按 钮的Caption(或Text)属性变掉!如Command1的Caption开始设置为"追 加",输入以下代码:
　　Private Sub Command1_Click()
　　 If Command1.Caption="追加" Then
　　 Command1.Caption="存盘"
　　 ……
　　 ElseIf Command1.Caption="存盘" Then
　　 Command1.Caption="追加"
　　……
　　End If

　　使用Windows本身提供的应用程序
　　在开发的实际应用程序中,我们可能要用到诸如计算机、书写器 、画笔等Windows提供的工具。要实现这一点其实很方便。如要使用 计算器,只要输入以下代码即可:
　　Private Sub Command1_Click()
　　 call=Shell("c:\windows\calc.exe",1) 可修改对应路径 、文件名
　　 End Sub
　　这一点,如和上面提到的快捷菜单结合起来则

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有