2011年計算機等考二級VB輔導知識技巧總結(9)

　　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

　　PopupMenu mnuFile ′彈出PopUpMenu。

　　End If

　　End Sub

　　這樣，在VB執(zhí)行環(huán)境中，操作窗體上的RichTexBox控件，按動鼠標器右鍵就可彈出下拉菜單，實現復制、剪切功能。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總