CommandBar anstelle der eingebauten Form-Menüs (CE2.x)

Dim mnuMain As CommandbarLib.CommandBarMenuBar
Dim mnu1 As CommandbarLib.Item
Dim mnu2 As CommandbarLib.Item

' Menü erzeugen, Erscheinungsbild definieren
Set mnuMain = CommandBar1.Controls.Add(cbrMenuBar, "HauptMenue")
CommandBar1.CloseButton = True
CommandBar1.OKButton = False
CommandBar1.HelpButton = False

' Menüsektion "Datei" und zugehörige Subitems erzeugen
Set mnu1 = mnuMain.Items.Add(1, "XP", "Datei")
mnu1.SubItems.Add , "DO", "Datei öffnen"
mnu1.SubItems.Add , "DT", "Datei drucken"

' Menüsektion "info" und zugehörige Subitems erzeugen
Set mnu2 = mnuMain.Items.Add(2, "VT", "Info")
mnu2.SubItems.Add , "PI", "Programm-Info"
mnu2.SubItems.Add , "ST", "Status"

Die bisherigen Form-Menüs haben ein separates Click-Ereignis für jeden Menüeintrag erzeugt. Das CommandBar-Objekt erzeugt nur ein einziges Click-Ereignis, das ausgewählte Item muß daher über die Item-Eigenschaft identifiziert werden:

Private Sub CommandBar1_MenuClick(ByVal Item As CommandbarLib.Item)
Select Case Item.Key
     Case "DO"
         ' Platz für Code, der "Datei öffnen" behandelt
     Case "DT"
         ' Platz für Code, der "Datei drucken" behandelt
     Case "PI"
         ' Platz für Code, der "Programm Info" behandelt
     Case "ST"
         ' Platz für Code, der "Status" behandelt
End Select
End Sub

<...zurück>