3.在RichTexBox控件的MouseDown事件中實(shí)現(xiàn)任意位置彈出PopUPMenu。

　　OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)

　　Dim MnuFile AS Menu ′聲明一個(gè)菜單類型的變量

　　Set munFile=Me.MenuEdit ′將MenuEdit賦給菜單變量

　　if Button=2 Then ′判斷是否按動(dòng)鼠標(biāo)器右鍵

　　′判斷RichTexBox控件上選擇了的內(nèi)容是否存在，決定復(fù)制、剪切菜單條是否可操作。

　　If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then

　　mnuCopy.Enabled=Flase ′復(fù)制菜單條不可操作。

　　nmuCut.Enabled=False ′剪切菜單條不可操作。

　　nmuCopy.Enabled=True ′復(fù)制菜單條可操作。

　　nmuCut.Enabled=True ′剪切菜單條可操作。

　　End

　　PopupMenu mnuFile ′彈出PopUpMenu。

　　End If

　　End Sub

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

　　2010年9月計(jì)算機(jī)等級考試成績查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級考試二級VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級考試二級VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級VB輔導(dǎo)知識(shí)技巧匯總