论坛: 编程破解 标题: 用VB实现浮动按钮 复制本贴地址    
作者: 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号