说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB实现按钮浮动效果

HTML文档下载 WORD文档下载 PDF文档下载
VB实现按钮浮动效果


微软的Visual Basic确实是个好东东,编写应用程序快捷高效。但是入门容易,想玩转它可不简单。我个人学VB就深有体会:一个人在VB的殿堂里摸索是何等的辛苦啊!有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍,也未必能通过,真恨不得一枪崩了VB。所以,我连这一点点小技巧都不敢独品,拿出来与大家共享,也算抛砖引玉,引出更多、更精彩的奇思妙文,以“飨”读者。
关于浮动按钮的实现思路不少,多是采取多图片重叠显示来实现。这种方法代码量多,实现起来较繁琐。因为,一个按钮还好,如果有十个按钮呢?一个按钮三个图片,十个就要三十个图片,可不是闹着玩的。
我的思路是:
舍弃CommandButton控件,每个按钮用4条Line控件和一个Label控件替代。4条Line围住Label的边缘,调入窗体时,置显示属性为False,并将左、上直线的颜色设为白色,右、下直线的颜色设为黑色。当鼠标移到Label上时,4条Line的显示属性置True;当鼠标离开按钮时,将4条Line的显示属性设置为False。这样在视觉上就完全得到立体浮动的效果。另外,VB的Line控件还支持直线倾斜,以此类推,完全可以做出更加美观的倾斜按钮。篇幅所限,下面仅给出一个按钮实现浮动效果的源代码。
Option Explicit
Private Sub Form_Load()
注释:初始Form与Label
Form1.Caption = “浮动按钮"
Form1.KeyPreview = False
label1.Caption = “确定"
注释:初始4条Line的显示属性为False
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
注释:初始4条Line的颜色
Line1.BorderColor = &HE0E0E0
Line2.BorderColor = &HE0E0E0
Line3.BorderColor = &H808080
Line4.BorderColor = &H808080
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
注释:鼠标指针在窗体上(不在按钮上)时,置4条Line的显示属性为False
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
End Sub
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
注释:鼠标指针在按钮上时,置4条Line的显示属性为True
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
End Sub
(浙江黄岩职技校96计算机 中专 王建跃 )
前方高能!盘点2014年最颠覆三观的智能硬件 俄罗斯当局封杀GitHub,理由是教唆自杀 裁员110人、关闭工作室,Rovio重组求出路! 全Swift开发、代码开源!有钳的Firefox for iOS 详解开源游戏开发框架HaxePunk的主要特性 《程序员》杂志休刊通知 2014 TOP50最具价值CTO获奖名单揭晓! TIOBE 2014年12月编程语言排行榜:R和Swift成为年度语言候选者 免费增值应用正在“杀死”游戏开发者? 直接Mark!开源的DevOps开发工具箱 Apache Mesos联合创始人Benjamin Hindman:谈分布式应用现状 直觉不靠谱!使用移动应用分析的七个巧妙方法 屏蔽、挖角与丑闻,Uber的“创收神器”泡沫 蚁视科技发布会:三大产品与四大概念技术 盘点VS2015 预览版的5个新特性 低能的“智能” 你就是明星,第一届IBM RockStar正式启动! Kubernetes:Google分布式容器技术初体验 方法可以复制 AngularJS资源集合 那些年,微信走过的开放之路 从YunOS话阿里移动互联网云生态布局 Mobile First!苹果联合IBM发布10款企业级App iOS8.1.1越狱又惹急苹果!扒一扒黑客与苹果的斗争史! Firefox.html:用HTML重现Firefox UI Qt 5.4正式发布!引入WP,支持HTML5混合开发 2014智能硬件盘点第二弹!这次咱走暖心的 聚合数据资产,推动产业创新——2014中关村大数据日看大数据变现 拥抱开源:微软Windows 10宣布全面支持AllJoyn技术 改变App领域发展!友盟推“数据工场”战略,两款新品亮相 Cloudera正式登陆中国市场:与英特尔携手共助本土企业淘金大数据 Go 1.4正式发布 支持Android开发 如何实现DOS工作站连接到LINUX服务器 DB2技术讨论(5)如何在建好的数据库中设定数据库和表的维护信息 feeboby(诺曼之路) 请进,刚才IE出现js的问题,帖子结了,但分没加上去,另开新帖,100分送上 如何把两个系统合并为一个系统(两个独立的系统) 如何实现集成?? 请教一个apache2.0加tomcat4.3.x时访问目录控制问题 那里有Zend的反编译软件下啊? 大家给我提建议拉,java项目该如何做?交友 这样的asp.net程序消耗是不是太高? 满分求救: 通过 scope="session" 定义的bean 我想继续在包含页中使用。。 大家给个名字建议吧 BDE问题 那个说我骗你手提电脑的进来!!!!!!! 谁知道啊? 直接写内存的Win32 API? 向高手请教.NET下怎样实现聊天室功能? 请教一个apache2.0加tomcat4.3.x时访问目录控制问题 关于JFC的问题 如何鼠标指到单元格中,把单元格中的文字颜色改变 小弟菜鸟,请教一个小问题 初学者问题:关于Serialize()用法 寻求好的解决方法 新手求助?谁有较好的打印控件,或较好的解次方案? 申请数据结构-算法版主 初学者问题:MFC数据库(ACCESS) 那里可以找到interbase7的全部文档? 初学者问题:MFC建立数据库连接 请帮我编个简单的VC++程序,速回复,谢谢 初学者问题:MFC(FORMVIEW) 在System.DirectoryServices中如何通过NT用户组来取得组中的用户 高分:在命令提示符中登录mysql并执行包含多个mysql脚本 新手求助!!!! C#中的控制问题,大家来看看 急,哭,IIS下无法调试ASP。555,高手求你们帮帮我吧。 映射网络驱动器错误,我在公司机子上可以用,而在自家电脑上却报错,为什么?在线等待 sos pb巨大一个bug(还是我太菜了?),帮忙呀,兄弟们! 传值调用~,编译通过,可执行时出错 serialize(CArchive& ar)中怎样加载数组? 如何用VC从c代码得到汇编的代码? 如何在<form runat=server>...</form>内调用form外定义的变量? 如何鼠标指到单元格中,把单元格中的文字颜色改变 555~~~~ 100分求together for JBuilder 下载(不知为啥我的IE到borland上竟然无法打开那个弹出的下载页面) 如何定义listview控件中的指定文字的颜色? 我是初学jsp的虾米!请大家来帮我! 关于子窗体向父窗体取值问题 大脑极度混乱后的想法,请大家分析一下可行吗? 冲击波,怎么办? 您好 , 请教如何写一个服务程序 ? 高分求救-----怎么读出excel中的数据? 打印机套打发票问题。。。 怎样读取INI文件?按格式遍历数据 成语天地和奇思妙想怎么做≧﹏≦! 人体有一定的温度,所以人体不断向外放射红外线?请问理由是什么?难道所有有温度的东西都会向外放射红外线么?今晚就要, 怎么亲近别人? 鱼为什么有鳞 为什么有时候和同学在一起说话会感觉放不开?如何才能让同学感觉我比较亲近?我是高中生、平时想说的时候比谁都能说,沉默时比谁都沉默,有时我也很迷茫,不知自己是内向还是外向.可为什 家庭双开双控开关怎么接 一个男生说:看到你的状态我就很想回复.你很容易让人亲近.以后可以随时找我聊天.请问他啥意思? 一个男的说对你有特别的感觉但这种特别的感觉比恋人更亲近?这种特别的感觉是什么感觉呢?可能真的是想玩不负责的游戏!该相信不相信男的说的话?我至少没对他是这种感觉?他对我的感觉 莽子是什么意思 介个是啥成语亲们帮帮忙≥﹏≤ 伤心的词语,最好是成语~o(>﹏ 教授称“黄金大米”尚处于实验室研究阶实拍3美女KTV内混战 系因麦霸引发台州50岁男子打开房间内煤气罐引爆将马戏团大哥违章被扣车 停在停车场货车货车司机开车睡着 货车冲到落差七八米嘉兴铁路刑警从围观人群中找到诈骗犯罪男子喝完喜酒顺手牵走了新娘的首饰情侣高速开车过程中吵架 女友气愤跳下解密以色列版007:最爱暗杀 钟爱炸朝鲜美林骑马俱乐部竣工 女兵骑马英姿多国抗议被美监听通讯 印度:总理无手《广府传统建筑壁画》编辑手记北京大都美术馆上演新年音乐会中国民俗文艺表演培训新西兰开班舞剧《四月的海》:爱心观念的深圳诠释深圳诗人唐成茂的守望哥伦比亚大学设中国学研究基金陈其钢获法国文学与艺术骑士勋章首届张伯驹论坛在京举办安徽:音舞诗画《相风汉韵》首演图片新闻“全国企业文化示范基地”门 徒第一日不落帝国网游之副职称王飞跃东方圣武玄天白领守护人天纵遨游三界六道空之轮回劫雷途九变龙诀北冥学子茵特拉根小镇旅游大华兴寺旅游东部华侨城茶溪谷旅游东部华侨城大侠谷旅游松谷景区旅游白云景区旅游海子沟旅游长坪沟旅游梵天寺旅游远华影视城旅游棒槌山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘