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

会计考友

VB实现窗口的弹出式菜单　　导读:在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu(弹出式菜单)，可借助VB的菜单工具来实现。
　　首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：
! v/ D5 D% y+ e, Q　　标题(Caption) 菜单条名(Name)
　　编辑 menuEdit
　　……复制 mnuCopy
　　……剪切 munCut
( u8 p  b; ?* @% J  q3 @" z# J8 D　　其次，将生成的menuEdit菜单设置为不可视。
* O( {! D7 W+ j9 x# }2 @. A　　Private Sub Form_Load()
& I( |- X" S9 l  z% T1 F4 Z　　Me.menuEdit.Visibe=False
, I5 w- {/ T' a! g( w. e( d% Y/ E1 `　　′menuEdit菜单设置为不可视
　　End Sub
　　然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：
　　本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。
　　1.复制功能的实现。
$ s" C& i# T% L) F4 I- b3 M- O　　Private Sub MnuCopy_Click()
　　Clipboar.Clear′将剪贴板清空
2 g6 O* E) z/ p3 q3 |) T; ]! W2 |　　′将RichTexBox控件上选择上的内容复制到剪贴板
+ K8 R9 z# v. p9 [0 z1 h　　Clipboard.SetTextRichTexBox1.SelText
　　End Sub
- ~0 A8 i8 ]3 x& Z$ h　　2.剪切功能的实现。
　　Private Sub MnuCut_Click()
　　Clipboard.Clear ′将剪贴板清空
　　′将RichTextBox控件上选择了的内容复制到剪贴板
　　Clipboard.SetTextRichBox1.SelText
/ L) m9 T8 m% Z  X  G# }　　′将RichTexBox控件上选择了的内容删除
8 Z3 O7 D0 V3 u7 F' F% e　　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)
+ |; z, s9 I9 l/ ], |4 o! `) r1 h4 M　　Dim MnuFile AS Menu ′声明一个菜单类型的变量
　　Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量
　　if Button=2 Then ′判断是否按动鼠标器右键
+ u6 V0 N4 o* [: Q' M3 P" R% h　　′判断RichTexBox控件上选择了的内容是否存在，决定复制、剪切菜单条是否可操作。
  k8 s) i$ m5 }: o( z4 `　　If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then
　　mnuCopy.Enabled=Flase ′复制菜单条不可操作。
　　nmuCut.Enabled=False ′剪切菜单条不可操作。
　　nmuCopy.Enabled=True ′复制菜单条可操作。
　　nmuCut.Enabled=True ′剪切菜单条可操作。
　　End
4 q$ }, z4 R2 c7 t　　PopupMenu mnuFile ′弹出PopUpMenu。
　　End If
　　End Sub
　　这样，在VB执行环境中，操作窗体上的RichTexBox控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。