|
 | 作者: ziaichen [ziaichen]
 论坛用户 |
登录 |
| 在微软的很多软件（如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 Integer,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．实现动态提示，这在《电脑报》上有介绍。 这是我搜到的，拿来和大家一起分享。 [此贴被 ziaichen(ziaichen) 在 12月05日11时49分 编辑过] |
| 地主 发表时间: 12/05 11:42 |
| 回复: ziaichen [ziaichen] 论坛用户 |
登录 |
|
大家给点意见呀？？？ 我好伤心呀，没人理我哩 |
| B1层 发表时间: 12/10 11:40 |
| 回复: ziaichen [ziaichen] 论坛用户 |
登录 |
|
不好意思 小弟我只好自己顶一下了 |
| B2层 发表时间: 12/11 17:02 |
 | 回复: rshu [rshu] 论坛用户 |
登录 |
|
你的QQ是多少 ,我想加你 |
| B3层 发表时间: 12/12 11:45 |
| 回复: zhb7769 [zhb7769]  论坛用户 |
登录 |
|
我也想加你，如果能的话，加我18795346 我也是在学VB，不过我是垃圾，所以想请教你 验证请用VB朋友  |
| B4层 发表时间: 12/12 20:50 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 用VB实现浮动按钮