当前位置:主页   - 电脑 - 程序设计 - VB
用VB实现浮动按钮
来源:网络转载   作者:未知   更新时间:2009-01-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盤icture=LoadPicture(″c:\1眀mp″)

Line1盫isible=True

Line2盫isible=True

Line3盫isible=True

Line4盫isible=True

EndSub

PrivateSubForm1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Image1盤icture=LoadPicture(″c:\2眀mp″)

Line1盫isible=False

Line2盫isible=False

Line3盫isible=False

Line4盫isible=False

EndSub

6.实现动态提示的方法,《电脑报》已刊登过,此处不再重复。
->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明