用VB作浮動式圖標(biāo)提示按鈕-網(wǎng)站建設(shè)

1.建立含有如下控件的窗體：
控件 NAME
CAPTION VISIBLE BEVELWIDTH
窗體 BOTTON－DEMO浮動式圖標(biāo)按鈕演示程序 '程序窗口
3D命令按鈕 COMMAND3D1 1'作為按鈕的陰影,，大小與按鈕一致
3D命令按鈕 COMMAND3D2 3'該按鈕與陰影稍微錯位疊加
標(biāo)簽 LABEL1
FALSE '顯示圖標(biāo)按鈕作用的文字
2.定義兩個整型變量,，用來存儲按鈕左上角坐標(biāo),。
（1）在目標(biāo)文件列表（OBJECT）中選擇GENERAL,，在過程列表（PROC）中選擇DECLARATIONS（聲明），系統(tǒng)進(jìn)入窗體級代碼的定義窗口中,。
輸入下列定義：
Dim comm2－x,，comm2－y As Integer
（2）雙擊窗體,，進(jìn)入窗體裝入事件代碼窗口：
SUB FORM－LOAD （）
COMM2－X＝COMMAND3D2.LEFT
COMM2－Y＝COMMAND3D2.TOP
COMMAND3D2.Picture＝LoadPicture（＂C：＼FPW26＼FOX.BMP）'裝入圖片
END SUB
3.當(dāng)鼠標(biāo)移到按鈕上方時,，使用MOVE將按鈕固定放在其原來位置的右下方。由于事先已繪制好按鈕的陰影,，所以在視覺上就有按鈕往下沉的感覺,，同時激活標(biāo)簽顯示該圖標(biāo)按鈕作用的文字。
雙擊圖標(biāo)按鈕,，進(jìn)入命令按鈕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＆ ' 顯示文字的標(biāo)簽框底色為黃色
LABEL1.Visible＝True

LABEL1.CAPTION＝“演示”
End Sub
4.當(dāng)鼠標(biāo)一離開按鈕時，就將按鈕固定在其原來位置上,，就可造成按鈕上浮的視覺效果,，同時關(guān)閉標(biāo)簽變量的顯示。
雙擊窗體，進(jìn)入窗體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環(huán)境下運(yùn)行通過,。