---

Hallo an die Programmier-Profis,

ich möchte Dropdownmenuitems zur Laufzeit erstellen. Also im Programmtext. Wie kann ich da das Clickereigniss festlegen?
Kann ich einen vorhandenen Dropdownmenuitem kopieren?
Weiß jemand ein (einfaches)Beispiel.
Unten ein paar Zeilen die ich schon geschrieben habe aber natürlich nicht funktioniern. Danke für jeden Tip.

Gruß Theo

If Len(TextBox1.Text) = 5 Then
            Dim Mymenue As ToolStripMenuItem
            Dim Myzeile As ToolStripDropDownItem
            Dim Myzeileorg As ToolStripDropDownItem
            Mymenue = MenuStrip1.Items(0)
            Myzeileorg = Mymenue.DropDownItems(0)
            For i = 0 To 10
                Myzeile = copy Myzeileorg 'ab hier gehts nicht mehr
                Myzeile.text= = i.ToString
                Mymenue.DropDownItems.add Myzeile
            Next i
            MenuStrip1.Visible = True
        End If
    End Sub

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        MsgBox(sender.text)

    End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Theo,

das Hinzufügen von Events ist doch immer das Selbe: hier hatte ich dir das schon einmal beschrieben.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
    
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,

also dann nichts mit Kopieren, sondern jeden Dropdowneintrag neu erstellen.
Könntest Du mir trotzdem mal grob schreiben was in der Schleife zum Erstellen stehen muß.
Ich hab nämlich schon in dieser Richtung experiementiert und habs nicht geschafft.

Danke Theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Theo,

wenn dir C# reicht? Mit VB.Net wollte ich nicht nich anfangen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das würde mir schon viel helfen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Theo,

Code:

---

      public void blablablub ()
      {
        //MyMenu = Menüobjekt
        for(int _i = 0;_i<10;_i++)
            {
                ToolStripItem _nItem = MyMenu.DropDownItems.Add(_i.ToString());
                _nItem.Click += new EventHandler(_nItem_Click);

            }
        }

        void _nItem_Click(object sender, EventArgs e)
        {
            /// ff der Code was passieren soll
        }

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,
ich hab jetzt meine eigene schlichte Variante auf VB
fertig. Wenn es irgendjemand brauchen kann.

Gruß Theo

Public Class Form1
    Private WithEvents Myzeile As ToolStripDropDownItem = Nothing
.
.
.
    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If Len(TextBox1.Text) = 5 Then
            Dim Mymenue As ToolStripMenuItem
            Mymenue = MenuStrip1.Items(0)
            Mymenue.DropDownItems.Clear()
            For i = 0 To 9
                  Myzeile = Mymenue.DropDownItems.Add("0" & i)
                  AddHandler Myzeile.Click, AddressOf Myzeile_Click
            Next
            MenuStrip1.Visible = True
            Mymenue.Visible = True
            Mymenue.ShowDropDown()
        Else
            MenuStrip1.Visible = False
        End If
    End Sub

    Private Sub Myzeile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Myzeile.Click
        TextBox1.Text = TextBox1.Text & sender.text
           End Sub
End Class

[Diese Nachricht wurde von Theo37 am 02. Feb. 2012 editiert.]

[Diese Nachricht wurde von Theo37 am 02. Feb. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP