ToolStripDropDownButton mit erster Ebene aus MenuItems aus einer DataTable erstellen Der Tipp vermittelt Code, der geeignet ist, Menüpunkte für einen ToolStriDropDownButton zu erstellen, die aus einer Datentabelle (bspw. SQL) erzeugt werden.
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  5.889
ohne Homepage	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der Tipp vermittelt Code, der geeignet ist, Menüpunkte für einen ToolStriDropDownButton zu erstellen, die aus einer Datentabelle (bspw. SQL) erzeugt werden. (Nur erste Ebene von Menüpunkten)

Zunächst die Vereinbarungen:

Private WithEvents dropDownButton As ToolStripDropDownButton
Private WithEvents dropDown As ToolStripDropDown
Private WithEvents dropItem As ToolStripMenuItem

Ausgehend von einer Datentabelle, die die Texte der Menüpunkte enthält, wird das Control ToolStripDropDownButton für das in einer Form enthaltene ToolStrip erzeugt.

Dabei sind:

• myToolStrip: der ToolStrip
• myDataTable: die Datentabelle
• dropA: ein Array zur Zwischenspeicherung der Menüpunkt-Texte

Code (Reihenfolge der Control-Erstellung ist wichtig):

dropDown = New ToolStripDropDown
With dropDown
  .BackColor = Color.Green  ' Bsp. Backcolor
  ' weitere Eigenschaften setzen
End With

dropDownButton = New ToolStripDropDownButton
With dropDownButton
  .Text = "myDropDown"
  .DropDown = dropDown
  ' weitere Eigenschaften setzen
End With

Dim dropA(myDataTable.Rows.Count - 1) As ToolStripMenuItem
For i As Short = 0 To myDataTable.Rows.Count - 1
  dropItem = New ToolStripMenuItem
  With dropItem
    .BackColor = Color.Beige  'Bsp. Backcolor
    .Text = myDataTable.Rows(i).Item("myMenuPointText")
    ' weitere Eigenschaften setzen
  End With
  dropA(i) = dropItem
Next 
dropDown.Items.AddRange(dropA) ' die Menütexte ins Control
ToolStrip.items.Add(dropDownButton)

Wenn man den dropDownButton an eine ganz bestimmte Stelle des Toolstrip einsetzen möchte, kann man das mit folgender Hilfsfunktion erreichen:

' ermitteln des Index eines ToolstripItem mittels seines Namens
Public Function IndexOfToolstripItem(theToolstrip As ToolStrip, _
  theItemName As String) As Short
 
  Dim i As Short = 0
 
  For Each it As ToolStripItem In theToolstrip.Items
    If theItemName = it.Name Then Exit For
    i += 1
  Next
  Return i
End Function

Dann programmieren:

Dim ix As Short = IndexOfToolstripItem(Navigator, "myToolStripItemName") - 1
ToolStrip.Items.Insert(ix, dropDownButton)

Für die Anwendung der MenuItems kann man das Event „dropDown.Itemclicked“ verwenden.

Viel Erfolg.