0

ツールストリップに追加したアイテムの使用方法を理解しようとしています。以下は私が使用しているコードです。ツールストリップに「test1、test2」という項目をいくつか追加しましたが、それらを選択してクリック イベントのコードを追加するにはどうすればよいですか?

ありがとう。

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

クラス終了

4

1 に答える 1

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
于 2012-11-04T08:24:26.947 に答える