tempad
ReadyGo!技术成就梦想 >>VB教程 >> 用VB实现浮动按钮

用VB实现浮动按钮

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:41
在微软的很多软件（如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．实现动态提示的方法，《电脑报》已刊登过，此处不再重复。
->

责任编辑: efish 参与评论 查找更多：
相关文章
用VB制作即时动态按钮 用VB制作即时动态按钮
用VB实现象Windows记事本的一些功能 用VB实现象Windows记事本的一些功能
FLIC动画文件的播放程序设计 FLIC动画文件的播放程序设计
用Winsock制作一套聊天室和对话系统 用Winsock制作一套聊天室和对话系统
在程序中打开Internet拨号连接窗口 在程序中打开Internet拨号连接窗口
在WindowsNT网络中广播消息 在WindowsNT网络中广播消息
在VB中用Outlook发电子邮件 在VB中用Outlook发电子邮件
在VB中实现文件上传 在VB中实现文件上传
在VB中使用UDP协议 在VB中使用UDP协议
在VB中如何得到网络中某一台电脑(电脑名)的网卡地址？ 在VB中如何得到网络中某一台电脑(电脑名)的网卡地址？
2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航
ReadyGo!技术成就梦想