用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．在程序中加入以下内容即可：

Private Sub Image1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)

Image1？Picture=LoadPicture(″c:\1？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:\2？bmp″)

Line1？Visible=False

Line2？Visible=False

Line3？Visible=False

Line4？Visible=False

End Sub

6．实现动态提示的方法。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18