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

　　VB實(shí)現(xiàn)窗口的彈出式菜單

　　導(dǎo)讀:在Windows95、Windows98或NT的風(fēng)格中，有按動(dòng)鼠標(biāo)器右鍵彈出下拉菜單的操作，在VB執(zhí)行環(huán)境下，有一些控件本身具有彈下拉菜單的功能，如TexTbox控件等，但大多數(shù)編輯類控件以及窗體本身卻沒(méi)有此功能，要在窗口中任意位置實(shí)現(xiàn)PopUpMenu(彈出式菜單)，可借助VB的菜單工具來(lái)實(shí)現(xiàn)。

　　首先，打開VB的“工具”菜單條，利用“菜單編輯器”為窗體生成一個(gè)菜單：

　　標(biāo)題(Caption) 菜單條名(Name)

　　編輯 menuEdit

　　……復(fù)制 mnuCopy

　　……剪切 munCut

　　其次，將生成的menuEdit菜單設(shè)置為不可視。

　　Private Sub Form_Load()

　　Me.menuEdit.Visibe=False

　　′menuEdit菜單設(shè)置為不可視

　　End Sub

　　然后，利用MouseDown事件實(shí)現(xiàn)任意位置彈出PopUpMenu，如下例：

　　本例中以RichTexBox控件為例，在其上面實(shí)現(xiàn)復(fù)制、剪切功能。

　　1.復(fù)制功能的實(shí)現(xiàn)。

　　Private Sub MnuCopy_Click()

　　Clipboar.Clear′將剪貼板清空

　　′將RichTexBox控件上選擇上的內(nèi)容復(fù)制到剪貼板

　　Clipboard.SetTextRichTexBox1.SelText

　　End Sub

　　2.剪切功能的實(shí)現(xiàn)。

　　Private Sub MnuCut_Click()

　　Clipboard.Clear ′將剪貼板清空

　　′將RichTextBox控件上選擇了的內(nèi)容復(fù)制到剪貼板

　　Clipboard.SetTextRichBox1.SelText

　　′將RichTexBox控件上選擇了的內(nèi)容刪除

　　SendKeys″{DELETE}″,True

　　End Sub

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

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

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

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