天极传媒：天极网全国分站
您现在的位置： >>
VB实现按钮浮动效果
VB编程乐园
p>　　的确实是个好东西，编写应用程序快捷高效。但是入门容易，想玩转它可不简单。我个人学VB就深有体会：一个人在VB的殿堂里摸索是何等的辛苦啊！有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍，也未必能通过，真恨不得一枪崩了VB。所以，我连这一点点小技巧都不敢独品，拿出来与大家共享，也算抛砖引玉，引出更多、更精彩的奇思妙文，以“飨”读者。
　　关于浮动按钮的实现思路不少，多是采取多重叠显示来实现。这种方法代码量多，实现起来较繁琐。因为，一个按钮还好，如果有十个按钮呢？一个按钮三个图片，十个就要三十个图片，可不是闹着玩的。
我的思路是：
　　舍弃CommandButton控件，每个按钮用4条控件和一个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
rue
End Sub
（作者：王建跃责任编辑：）
天极新媒体&最酷科技资讯扫码赢大奖
* 网友发言均非本站立场，本站不在评论栏推荐任何网店、经销商，谨防上当受骗！
笔记本手机数码家电用vb在窗体中做一个按钮的浮动_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
用vb在窗体中做一个按钮的浮动
而且由于窗体时可大可小的， 设置的时候要考虑这种情况， 可拖拽的有一个vb窗体， 中有一个按钮button， 在窗体中使按钮随机的浮动， 当按钮碰到前后左右的时候，会自动的弹回
我有更好的答案
Left &= 0 Thena = TrueEnd IfIf b ThenShape1.Top = Shape1.Left = Shape1.Left - 100End IfIf Shape1;= Form1Dim a As Boolean, b As BooleanDim dx As Single, X As Single, Y As SinglePrivate Sub Form_Load()a = Trueb = TrueEnd SubPrivate Sub Timer1_Timer()If a ThenShape1.Left = Shape1.Left + 100End IfIf Shape1.Left &gt, dy As Single.Width - Shape1.Width Thena = FalseEnd IfIf a = False ThenShape1.Top + 100End IfIf Shape1.Top &= Form1.Height - Shape1.Height Thenb = FalseEnd IfIf b = False ThenShape1.Top = Shape1
Shape1.Left = Shape1.Left + 100If Shape1.Left &= Form1.Width - Shape1.Width Then之后的判断怎么报错呢， 那个shape1是什么啊
你把这里面的shape换成command1，这个程序是用的shape控件，换成你要的command控件
采纳率：50%
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包VB按钮控制_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB按钮控制
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢全国统一热线：400-028-
VPS SERVER
CLOUD HOST
欢迎光临西部数码，我们将竭诚为您提供最优质的服务！
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
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
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上一篇： 用VB制作TopMost类型窗口
下一篇： 在系统菜单上添加自定义菜单项
版权申明：本站文章均来自网络，如有侵权，请联系028-0
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。
服务器技术
西部数码.cn
CopyRight & &西部数码&版权所有
电话总机：028- (20线)
400电话： 400-相关文章推荐
1.普通状态2，鼠标hover状态
3.active 点击状态
4.focus 取得焦点状态
Html结构：
第一步.设置阴影背景
position: absolute...
起因：手机端没有hover特效，当你点击的时候就直接触发click.
解决：手机端有他特殊touch事件。touchstart，touchmove, touchend.（PS：电脑端没有的，PC使用m...
touchstart：触摸开始的时候触发
touchmove：手指在屏幕上滑动的时候触发
touchend：触摸结束的时候触发
而每个触摸事件都包括了三个触摸列表，每个列表里包含了对...
先说一种最直接了当的不需要js控制，方法一：直接在用ng-class就可以控制：
p ng-click="state=1;" ng-class="{active:state==1}">浮伤年华p...
（1）前提：html页面 ，手机端，
（2）问题一：
在iphone上（貌似是9以后。。），给div/span/...等元素上加onclick事件，根本不起作用，这是为啥捏？
－－ 在元素上加 ...
移动端，点击之后某个区域后有阴影
今天偶然发现一件很奇怪的事儿。
在移动端，在我去掉css的伪类及其伪元素跟相关的js之后，
在我点击某块区域的时候，总有一个背景盖在上面，当初以为是Js...
-webkit-tap-highlight-color:rgba(0,0,0,0)
//webkit是苹果浏览器引擎，tap点击，highlight背景高亮，color颜色，颜色用数值调节。
：active伪类常用于设定点击状态下或其他被激活状态下一个链接的样式。最常用于锚点这种情况，一般主流浏览器下也支持其他元素，如button等。在多按键的鼠标系统中，：active只适用于主按键，目前...
上一周在制作某个移动端项目的时候，发现当我们点击链接，整个标签会出现颜色块并会闪烁一下，不仅影响美观，而且会极大降低了用户体验。在发现了这个情况之后，与宝哥两个人针对这个问题，展开了激烈的讨论。我当时...
他的最新文章
讲师：董晓杰
讲师：姚远
他的热门文章
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)