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