PersonalCorpus 版 (精华区)

在微软的很多软件（如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_vousevoVe(Botton 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_vousevoVe(Botton As Integer,Shift As Integer,X As Single,Y As Single)
        Image1.Picture=LoadPicture("c:\2.bmp")
        Line1.Visible=False
        Line2.Visible=False
        Line3.Visible=False
        Line3.Visible=False
        end Sub














;