用VB作浮动式图标提示按钮

2019-11-18 17:32:40

字体：大中小

来源：转载

供稿：网友

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

上一篇：如何备份(恢复)存储路径含有空格的压缩文件

下一篇：VisualBasic中的界面设计原则和编程技巧

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注