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輔導知識技巧匯總