Visual Basic(以下简称VB)是Windows下个面向对象可视 化开发环境,功能非常强大下面笔者就自己在实际软件Software开发过程中 获得些经验和大家作以交流

　　提示钮实现

　　如果自己留心点儿,定注意到了Microsoft公司系列产品 (如Word、Excel甚至B 本身),都为其应用命令按钮提供了信息 如用户不清楚软件Software中所列图标按钮功能, 可将鼠标移至该图标按 钮上,过会儿在其下方就会显示信息,介绍说明它作用,而鼠标移开 后,提示即消失

　　图1

　　这里我们利用mousemove这事件来实现先将Label1.visible 设置为False再输入以下代码

　　　　Private Sub Command1_MouseMove(Button As
　　 Integer,Sht As Integer,X As Single,
　　 Y As Single)
　　　　 Label1.Visible=True
　　 End Sub
　　 Private Sub Form_MouseMove(Button As Integer,Sht As In
teger,X As Single, As Single)
　　 Labl1.Visible=False
　　 End Sub

　　若按钮放在Frame中,则将Form_mousemove事件改为Frame_mousem ove即可,或干脆 2者都写

　　背景设置

　　我们进行软件Software设计时,功能实现当然是第位,但人机界面也绝 不容忽视有时我们希望为其加个比较漂亮背景,且自始至终都 在屏幕上我们可让窗体直不释放,但这样效果并不好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本 身并不支持回车而自动跳到下个Control控件这点可用Keypress事件来 解决

　　　　Private Sub Text1_KeyPress(KeyAscii As Integer)
　　 If KeyAscii=13 Then text2.SetFocus 13是键
　　 End Sub

　　②另外,文本框在用户按回车键时会发出蜂鸣声,如何避免呢?输 入以下代码:

　　　　Private Sub Text eyPress(KeyAscii As Integer)
　　 If KeyAscii=13 Then
　　 KeyAscii=0
　　 End If
　　 End Sub

　　即可避免而且用户按回车键常常有定目——跳到下个 Control控件,我们可让Tab键模拟回车键,只要在Keyascii=0前回上句sendk eys"{Tab}"即可

　　快捷菜单实现

　　利用鼠标右键弹出菜单功能简单方便如在Win95资源管理器中, 选中文件目录或文件后按右键即弹出菜单,可选"发送"项,很方便 拷贝至A盘;Desktop上按右键亦可方便修改桌面属性,这些都无疑极大 程度地方便了用户我们利用VB编程时,也可实现这功能在菜单 编辑器中定义好菜单文件后,对鼠标右键编写对应响应代码即可(必 须有下级菜单)

　　Private Sub Form_MouseDown(Button As Integer,Sht 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),为顺利运行留下更多 内存空间此时需小心控制其下标以正确运行



　　按钮名动态变化

　　由于桌面空间有限,我们不可能同时在屏幕上放很多Control控件,否则 会显得特别拥挤但我们可从Foxpro Wizard开发中得到启示 如"追加"按钮揿下去后,即变为"存盘"或"放弃"我们可将命令按 钮Caption(或Text)属性变掉!如Command1Caption开始设置为"追 加",输入以下代码:

　　　　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

　　这点,如和上面提到快捷菜单结合起来则实现