2011年计算机等考二级VB辅导知识技巧总结(9)

　　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

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总