dotNETportal.cz

Dobrý den,

sice nevím, co přesně chcete, ale předpokládám, že jsem to tipnul správně.Jen nevím, proč to chcete načítat do proměnné.Váš problém by mělo vyřešit přídaní handleru a následně addressof.

Public Class Form1

    Dim item As New ToolStripMenuItem(String.Format("File"))
    Dim dropItem As New ToolStripMenuItem(String.Format("Open"))
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim menu As New MenuStrip()
        item.DropDownItems.Add(dropItem)
        menu.Items.Add(item)
        Me.Controls.Add(menu)
        AddHandler dropItem.Click, AddressOf klik
    End Sub
    Private Sub klik(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim promenna As String
        promenna = dropItem.Text
    End Sub
End Class

Snad je to přesně to co chcete.

PS: Ten kód vložte do procedury Form_load (já to nechal omylem v tlačítku)