|
当前位置:电脑报电子版 > 1999 年 > 29 期 > 软件世界 > 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控件,按动鼠标器右键就可弹出下拉菜单,实现复制、剪切功能。 (宁夏 王晓东) |
下载本期推荐软件 | 页 首 |
《电脑报》版权所有,电脑报网站编辑部设计制作发布 |