Dynamisches Kontextmenü Index Abfragen

[Entwickler]

Hallo,

Habe Folgenden Code im Netz gefunden und würde jetzt gerne nicht den Text des Kontextmenüs ermitteln sondern den Index(0-9) welcher ausgewählt worden ist.

Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load

    'Items und Handler entfernen
    For Each Item As ToolStripMenuItem In ContextMenuStrip1.Items
      RemoveHandler Item.Click, AddressOf ToolStripMenuItem_Click
    Next
    ContextMenuStrip1.Items.Clear()

    ' Items einfügen
    For i As Integer = 0 To 9
      ContextMenuStrip1.Items.Add("Item " & i.ToString)
    Next

    ' Handler hinzufügen
    For Each Item As ToolStripMenuItem In ContextMenuStrip1.Items
      AddHandler Item.Click, AddressOf ToolStripMenuItem_Click
    Next

  End Sub

  Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs)

    Dim Item As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
    MessageBox.Show(Item.Text)
  End Sub

  Private Sub Form1_MouseDown(ByVal sender As Object, _
          ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

    If e.Button = Windows.Forms.MouseButtons.Right Then
      Dim Pt As New Point(e.X, e.Y)
      ContextMenuStrip1.Show(Me, Pt)
    End If
  End Sub

Danke

[Entwickler]

habe das Problem gelöst

    ' Items einfügen
    For i As Integer = 0 To 9
      ContextMenuStrip1.Items.Add("Item " & i.ToString)
      ContextMenuStrip1.Items.Tag(i) = i
    Next

und dann den Inhalt von Tag abgefragt

    MessageBox.Show(Item.Tag)

[fanderlf]

sender ist übrigens das Objekt auf das Du geklickt hast. Wenn Du das ToolStripMenuItem castest kommst Du auch wieder an die Text Property ran