计算机等级考试二级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环境下运行通过。