用VB實現(xiàn)浮動按鈕

在微軟的很多軟件（如WORD）的工具欄中，都采用一種浮動按鈕，即正常情況下按鈕的圖標(biāo)呈灰色，當(dāng)鼠標(biāo)移動到某一按鈕上時，該按鈕自動向上凸起且變?yōu)椴噬?，并在按鈕的右下方有一標(biāo)簽提示該按鈕的功能，鼠標(biāo)移開后又自動還原，這種按鈕用VB實現(xiàn)時，方法如下：
    1．先用繪圖工具作出按鈕圖標(biāo)后存盤），再用圖像處理軟件將該圖標(biāo)轉(zhuǎn)換為灰度圖或浮雕圖后再存盤。
    2．運行VB，建立一新窗體（如FORM1）。
    3．在窗體上需要建立按鈕的位置處建立一圖片框，其大小和圖標(biāo)相同，并將其PICTURE屬性設(shè)為2．BMP。
    4．在IMAGE1周圍建立由四個長度相同的LINE控件組成的方框，方框要比IMAGE1控件稍大，否則達(dá)不到預(yù)計效果，將上面和左邊的顏色設(shè)成白色，下面和右邊的設(shè)成黑色，并將四個LINE控件的VISIBLE屬性都設(shè)成FALSE。
    5．在程序中加入以下內(nèi)容即可：
    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．考試大提示：實現(xiàn)動態(tài)提示的方法，《電腦報》已刊登過，此處不再重復(fù)。