VB实现按钮浮动效果,VB实现窗口的弹出式菜单

VB实现按钮浮动效果,VB实现窗口的弹出式菜单VB实现按钮浮动效果,VB实现窗口的弹出式菜单 VB实现按钮浮动效果微软的Visual Basic确实是个好东东，编写应用程序快捷高效。但是入门容易，想玩转它可不简单。我个人学VB就深有体会:一个人在VB的殿堂里摸索是何等的辛苦啊～有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍，也未必能通过，真恨不得一枪崩了VB。所以，我连这一点点小技巧都不敢独品，飨”读拿出来与大家共享，也算抛砖引玉，引出更多、更精彩的奇思妙文，以“者。关于浮动按钮的实现思路不少，多是采取多图片重叠显示来实现。这种方法代码...

VB实现按钮浮动效果,VB实现窗口的弹出式菜单 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 VB实现窗口的弹出式菜单在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu(弹出式菜单)，可借助VB的菜单工具来实现。 “工具”菜单条，利用“菜单编辑器”为窗体生成一个菜首先，打开VB的单: 标题(Caption) 菜单条名(Name) 编辑 menuEdit „„复制 mnuCopy „„剪切 munCut 其次，将生成的menuEdit菜单设置为不可视。 Private Sub Form_Load() Me.menuEdit.Visibe=False ′menuEdit菜单设置为不可视 End Sub 然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例: 本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。 1(复制功能的实现。 Private Sub MnuCopy_Click() Clipboar.Clear′将剪贴板清空 ′将RichTexBox控件上选择上的内容复制到剪贴板 Clipboard.SetTextRichTexBox1.SelText End Sub 2(剪切功能的实现。 Private Sub MnuCut_Click() Clipboard.Clear ′将剪贴板清空 ′将RichTextBox控件上选择了的内容复制到剪贴板 Clipboard.SetTextRichBox1.SelText ′将RichTexBox控件上选择了的内容删除 SendKeys″{DELETE}″,True End Sub 3(在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。 OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single) Dim MnuFile AS Menu ′声明一个菜单类型的变量 Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量 if Button=2 Then ′判断是否按动鼠标器右键判断RichTexBox控件上选择了的内容是否存在，决定复制、剪切菜单条 ′ 是否可操作。 If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then mnuCopy.Enabled=Flase ′复制菜单条不可操作。 nmuCut.Enabled=False ′剪切菜单条不可操作。 nmuCopy.Enabled=True ′复制菜单条可操作。 nmuCut.Enabled=True ′剪切菜单条可操作。 End IF PopupMenu mnuFile ′弹出PopUpMenu。 End If End Sub 这样，在VB执行环境中，操作窗体上的RichTexBox控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。

                    本文档为【VB实现按钮浮动效果,VB实现窗口的弹出式菜单】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

VB实现按钮浮动效果,VB实现窗口的弹出式菜单

你可能还喜欢