AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > VB编程

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

51自学网 http://www.wanshiok.com
凡是用过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环境下运行通过。

 

 

 
上一篇:利用VB控制窗口显示风格  下一篇:把多个文本框的内容保存起来(保存到一个文件中,打开时要在相应的文本框输出)