作浮动式图标提示按钮

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 琕ISUAL BASIC 3.0 FOR WINDOWS环境下运行通过。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18