|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：蔡可训 日期：2005-8-4 11:35:22 |
|
|
凡是用过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环境下运行通过。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 蔡可训 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:35:22 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]