凡是用过WINDOWS OFFICE的用户，都非常熟悉这种情况，把鼠标移到这个图标的按钮上，不一会儿在这图标的下方会显示一些简短的文字，说明这个图标按钮的作用。笔者在工作实践中，用VB实现了上述功能，同时为了使图标按钮更具动感，笔者将图标按钮设计成浮动式图标按钮，即当鼠标移到图标按钮上方时，按钮会自动下沉；鼠标一离开按钮上方时，按钮又会自动浮起来。
1.建立含有如下控件的窗体：
控件 NAME
CAPTION VISIBLE BEVELWIDTH
窗体 BOTTON－DEMO浮动式图标按钮演示程序 '程序窗口
3D命令按钮 COMMAND3D1 1'作为按钮的阴影，大小与按钮一致
3D命令按钮 COMMAND3D2 3'该按钮与阴影稍微错位叠加
标签 LABEL1
FALSE '显示图标按钮作用的文字
2.定义两个整型变量，用来存储按钮左上角坐标。
（1）在目标文件列表（OBJECT）中选择GENERAL，在过程列表（PROC）中选择DECLARATIONS（声明），系统进入窗体级代码的定义窗口中。
输入下列定义：
Dim comm2－x，comm2－y As Integer
（2）双击窗体，进入窗体装入事件代码窗口：
SUB FORM－LOAD （）
COMM2－X＝COMMAND3D2.LEFT
COMM2－Y＝COMMAND3D2.TOP
COMMAND3D2.Picture＝LoadPicture（＂C：＼FPW26＼FOX.BMP）'装入图片
END SUB
3.当鼠标移到按钮上方时，使用MOVE将按钮固定放在其原来位置的右下方。由于事先已绘制好按钮的阴影，所以在视觉上就有按钮往下沉的感觉，同时激活标签显示该图标按钮作用的文字。
双击图标按钮，进入命令按钮MOUSEMOVE事件代码窗口：
Sub Command3D2－MouseMove （Button As Integer，Shift As Integer，X As Single，Y As Single）
command3D2.Move comm2－x＋9，comm2－y＋9
LABEL1.BorderStyle＝1
LABEL1.BACKCOLOR＝＆H0000FFFF＆ ' 显示文字的标签框底色为黄色
LABEL1.Visible＝True
LABEL1.CAPTION＝“演示”
End Sub
4.当鼠标一离开按钮时，就将按钮固定在其原来位置上，就可造成按钮上浮的视觉效果，同时关闭标签变量的显示。
双击窗体，进入窗体MOUSEMOVE事件代码窗口：
Sub Form－MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）
command3D2.Move comm2－x，comm2－y
LEABEL1.Visible＝False
End Sub
以上程序在AST PIII＋4／66D上，中文WINDOWS 3.2，VISUAL BASIC 3.0 FOR WINDOWS环境下运行通过。
|
