| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1238 人关注过本帖, 1 人收藏
标题:用VB实现浮动按钮
只看楼主 加入收藏
silvermoon
Rank: 1
等 级:新手上路
帖 子:188
专家分:0
注 册:2004-8-20
收藏(1)
 问题点数:0 回复次数:2 
用VB实现浮动按钮
用VB实现浮动按钮 在微软的很多软件(如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
搜索更多相关主题的帖子: 按钮 鼠标 微软 图像处理 图标 
2004-09-02 21:56
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

晕,所有的 . 都没有了 Line1 Visible=False 什么意思?

还有 Private Sub Form1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) --- 这个1是多余的

[此贴子已经被作者于2004-09-04 15:50:16编辑过]


天津网站建设 http://www./
2004-09-04 15:48
silvermoon
Rank: 1
等 级:新手上路
帖 子:188
专家分:0
注 册:2004-8-20
收藏
得分:0 
哦```是我疏忽了

我是一棵菠菜~~菜菜菜菜菜~~~
2004-09-05 14:20
快速回复:用VB实现浮动按钮
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032128 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved