凡是用过WINDOWSOFFICE的用户,都非常熟悉这种情况,把鼠标移到这个图标的按钮上,不一会儿在这图标的下方会显示一些简短的文字,说明这个图标按钮的作用。笔者在工作实践中,用VB实现了上述功能,同时为了使图标按钮更具动感,笔者将图标按钮设计成浮动式图标按钮,即当鼠标移到图标按钮上方时,按钮会自动下沉;鼠标一离开按钮上方时,按钮又会自动浮起来。
1.建立含有如下控件的窗体:
控件NAME
CAPTIONVISIBLEBEVELWIDTH
窗体BOTTON-DEMO浮动式图标按钮演示程序'程序窗口
3D命令按钮COMMAND3D11'作为按钮的阴影,大小与按钮一致
3D命令按钮COMMAND3D23'该按钮与阴影稍微错位叠加
标签LABEL1
FALSE'显示图标按钮作用的文字
2.定义两个整型变量,用来存储按钮左上角坐标。
(1)在目标文件列表(OBJECT)中选择GENERAL,在过程列表(PROC)中选择DECLARATIONS(声明),系统进入窗体级代码的定义窗口中。
输入下列定义:
Dimcomm2-x,comm2-yAsI...[ 查看全文 ]