VB实现窗口的弹出式菜单_VB窗体文章_VB_编程开发

VB实现窗口的弹出式菜单

日期：2008-10-20 18:07:09　　　　来源：互联网

　·VB中处理长列表框项的两种方法　·打开 Win95 的创建快捷方式窗口
　·VB实现窗口的弹出式菜单　·菜单项的动态装入

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控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。
(宁夏王晓东)
　[1]

--->MPlayer V1.0┊播放AVI、RMVB、MP3、MP4、3GP、WMA
--->Rmvb-Play 视频播放器 V2.84 新春版 Build 0519
--->GreenBrowser V4.5.0423 简体中文版┊多窗口多特性的浏览器
--->Gosurf Browser 2.76.704.8178┊最IN多页面多窗口浏览器┊多国语言绿色免费版
--->Avant Browser V11.5 Build 8┊基于IE 内核多窗口浏览器┊多国语言官方便携版
Tags:　 VB 窗口弹出菜单

VB实现窗口的弹出式菜单

VB应用程序中的工具提示和状态显示

开启文件属性窗口

VC弹出窗口总结

隐藏文本框控件的环境菜单

◎→	本类最新
VB实现窗口的弹出式菜单 VB6制作Win98风格的工具栏 VB5.0中实现字体闪烁效果用VB6实现动态增减控件用VB做个漂亮的进度条用VB设计聚焦框程序 Cool 3D 浮動按鈕的模擬作法

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 VB基础视频教程 VB窗体文章 VB文件文章 VB数据库文章 VB-API文章 VB控制文章

◎→	热门资源
TXT文件的读取 TextBox 中英文输入方法切换 DBF文件转为MDB文件的方法 ANI文件格式 VB中处理长列表框项的两种方法 VB应用程序中的工具提示和状态显中的Unicode 和 Ansi 格式