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}"即可。