ToolStripDropDownItem - 如何正確使用？ vb.Net

Question

我試圖弄清楚如何使用我已經加入到我的工具條中的項目。下面是代碼，我使用，我有addeda幾個項目「測試1，測試2」的工具條，但如何選擇它們並添加代碼，以便在單擊事件？

謝謝。

Public Class MenuStripCustom 
Inherits MenuStrip 

Private WithEvents NavToolStrip As New ToolStripMenuItem("File") 

Sub New() 

    Dim tsi As New ToolStripMenuItem 
    Dim tsi2 As New ToolStripDropDownButton 
    Me.Items.Add(NavToolStrip) 
    NavToolStrip.DropDownItems.Add("test1") 
    NavToolStrip.DropDownItems.Add("test2") 
End Sub 

Private Sub NavToolStripDropDownButton_Click(sender As Object, e As EventArgs) Handles NavToolStrip.DropDownItemClicked 
     ' What do I put here to handle different drop down items? 
     ' ie. select case (dropDownItem) 
     ' case: test1? 
End Sub 

末級

Answer 1

有多種方式將事件處理程序添加到ToolStripMenuItem。您可以通過AddressOf它的ToolStripMenuItem構造函數或使用AddHandler關鍵字。然而，這可能是最簡單的你申報ToolStripMenuItems「WITHEVENTS」，然後就可以看到的事件，並在VS IDE連線起來。例如： -

Private WithEvents NavToolStrip As New ToolStripMenuItem("File") 
Private WithEvents tsi As New ToolStripMenuItem("Test1") 
Private WithEvents tsi2 As New ToolStripMenuItem("Test2") 

Sub New() 
    MenuStrip1.Items.Add(NavToolStrip) 

    NavToolStrip.DropDownItems.Add(tsi) 
    NavToolStrip.DropDownItems.Add(tsi2) 

End Sub 

Private Sub tsi_Click(sender As Object, e As EventArgs) Handles tsi.Click 
    MsgBox("Test1") 
End Sub 

Private Sub tsi2_Click(sender As Object, e As EventArgs) Handles tsi2.Click 
    MsgBox("Test2") 
End Sub