用VB實現浮動按鈕

在微軟的很多軟件（如WORD）的工具欄中，都采用一種浮動按鈕，即正常情況下按鈕的圖標呈灰色，當鼠標移動到某一按鈕上時，該按鈕自動向上凸起且變為彩色，並在按鈕的右下方有一標簽提示該按鈕的功能，鼠標移開後又自動還原，這種按鈕用VB實現時，方法如下：
　　
　　1．先用繪圖工具作出按鈕圖標後存盤（如1．BMP），再用圖像處理軟件將該圖標轉換為灰度圖或浮雕圖後再存盤（如2．BMP）。
　　
　　2．運行VB，建立一新窗體（如FORM1）。
　　
　　3．在窗體上需要建立按鈕的位置處建立一圖片框（如IMAGE1），其大小和圖標相同，並將其PICTURE屬性設為2．BMP。
　　
　　4．在IMAGE1周圍建立由四個長度相同的LINE控件（如LINE1～4）組成的方框，方框要比IMAGE1控件稍大，否則達不到預計效果，將上面和左邊的顏色設成白色，下面和右邊的設成黑色，並將四個LINE控件的VISIBLE屬性都設成FALSE。
　　
　　5．在程序中加入以下內容即可：
　　
　　PrivateSubImage1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　
　　Image1Picture=LoadPicture(″c:1bmp″)
　　
　　Line1Visible=True
　　
　　Line2Visible=True
　　
　　Line3Visible=True
　　
　　Line4Visible=True
　　
　　EndSub
　　
　　PrivateSubForm1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　
　　Image1Picture=LoadPicture(″c:2bmp″)
　　
　　Line1Visible=False
　　
　　Line2Visible=False
　　
　　Line3Visible=False
　　
　　Line4Visible=False
　　
　　EndSub
　　
　　6．實現動態提示的方法，《電腦報》已刊登過，此處不再重復。
　　->