張家港中等專業學校
設為首頁 | 加入收藏 | 網站地圖
 學校首頁 | 學校介紹 | 新聞中心 | 教學管理 | 黨建工作 | 師生園地 | 教學部門 | 招生就業 | 專題網站 | 對外交流 
師生園地
 名師風采 
 課堂内外 
 班級網站 
 心理健康 
 優秀學子 
當前位置: 學校首頁>>師生園地>>課堂内外>>計算機世界>>正文
用VB實現浮動按鈕
2005-12-23 09:26佚名 zcf  (閱讀次數:)
在微軟的很多軟件(如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.在程序中加入以下内容即可: Private Sub Image1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) Image1Picture=LoadPicture(″c: bmp″) Line1Visible=True Line2Visible=True Line3Visible=True Line4Visible=True End Sub Private Sub Form1_MouseMove(Button As Integer,Shift As I nteger,X As Single,Y As Single) Image1Picture=LoadPicture(″c: bmp″) Line1Visible=False Line2Visible=False Line3Visible=False Line4Visible=False End Sub
關閉窗口

江蘇省張家港中等專業學校  地址:江蘇省張家港市沙洲西路109号
ICP備案号:蘇ICP備10015337号