张家港中等专业学校
设为首页 | 加入收藏 | 网站地图
 学校首页 | 学校介绍 | ope体育·官方登录中心 | 教学管理 | 党建工作 | 师生园地 | 教学部门 | 招生就业 | 专题网站 | 对外交流 
师生园地
 名师风采 
 课堂内外 
 班级网站 
 心理健康 
 优秀学子 
当前位置: 学校首页>>师生园地>>课堂内外>>计算机世界>>正文
用VB实现浮动按钮
2005-12-23 09:26 佚名 zcf   (阅读次数:)
在微软的很多软件(如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: bmp″) Line1Visible=True Line2Visible=True Line3Visible=True Line4Visible=True End Sub Private Sub Form1_MouseMove(Button As Integer,Shift As I nteger,X As Single,Y As Single) Image1Picture=LoadPicture(″c: bmp″) Line1Visible=False Line2Visible=False Line3Visible=False Line4Visible=False End Sub
关闭窗口

ope体育·官方客户端  地址:江苏省张家港市沙洲西路109号
ICP备案号:苏ICP备10015337号