計算機等級考試二級VB：作浮動式圖標提示按鈕

　　1.建立含有如下控件的窗體：

　　控件 NAME

　　CAPTION VISIBLE BEVELWIDTH

　　窗體 BOTTON-DEMO浮動式圖標按鈕演示程序 ’程序窗口

　　3D命令按鈕 COMMAND3D1 1’作為按鈕的陰影，大小與按鈕一致

　　3D命令按鈕 COMMAND3D2 3’該按鈕與陰影稍微錯位疊加

　　標簽 LABEL1

　　FALSE ’顯示圖標按鈕作用的文字

　　2.定義兩個整型變量，用來存儲按鈕左上角坐標。

　　(1)在目標文件列表(OBJECT)中選擇GENERAL，在過程列表(PROC)中選擇DECLARATIONS(聲明)，系統(tǒng)進入窗體級代碼的定義窗口中。

　　輸入下列定義：

　　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環(huán)境下運行通過。