用VB實現浮動按鈕

2019-11-18 17:26:13

字體：大中小

來源：轉載

供稿：網友

在微軟的很多軟件（如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．實現動態提示的方法，《電腦報》已刊登過，此處不再重復。
->

上一篇：用VB制作即時動態按鈕

下一篇：利用VB三維面板控件設計流動條