PDA

Vollständige Version anzeigen : CommandBar


Adrian
08.07.2001, 11:32
Liebe Forenmitglieder,
habe folgendes Problem:

Erzeuge per VBA eine Menüleiste.
CommandBar „ MenüLmwProg „

Das erste Popup heißt „Telefonliste“ mit 2 Buttons,
Mitarbeiter und Lieferanten.

Das zweite Popup heißt Preisliste mit einem Button
Beamer und einem weiteren Popup Mikro.

Dem Popup Mikro möchte ich einen weiteren Button
Hinzufügen, dies klappt bei mir nicht.
Was mache ich nicht richtig???

Folgend der Code:

Sub MenüleisteLmwProg(frm As Form)

Dim cbr As CommandBar
Dim cbb As CommandBarButton
Dim cbc As CommandBarControl
Dim cbp As CommandBarPopup

' Neuer CommandBar, oben angedockt, temporär
Set cbr = CommandBars.Add("MenüLmwProg", MenuBar:=True, Position:=msoBarTop, Temporary:=True)

With cbr
' CommandBar-Eintrag "Telefonliste" als Popup
Set cbp = .Controls.Add(msoControlPopup)
With cbp
.Tag = "Telefonliste"
.Caption = "&Telefonliste"
End With
' cbc zeigt auf neuen Eintrag "Telefonliste"

Set cbc = .FindControl(Tag:="Telefonliste“)
Set cbb = cbc.CommandBar.Controls.Add(msoControlButton)
' Neuer Eintrag "Mitarbeiter" in Menü "Telefonliste"
With cbb
.Tag = "zeigeMitarbeiter"
.Caption = "&Mitarbeiter"
' Vorbereiten für Icon
.Style = msoButtonIconAndCaption
.OnAction = ""
End With

Set cbb = cbc.CommandBar.Controls.Add(msoControlButton)
With cbb
.Tag = "zeigeLieferanten"
.Caption = "&Lieferanten"
' Vorbereiten für Icon
.Style = msoButtonIconAndCaption
.OnAction = ""
End With

'CommandBar-Eintrag "Preisliste" als Popup

Set cbp = .Controls.Add(msoControlPopup)
With cbp
.Tag = "Preisliste"
.Caption = "&Preisliste"
End With

'cbc zeigt auf neuen Eintrag "Preisliste"

Set cbc = .FindControl(Tag:="Preisliste")
' Neuer Eintrag "Beamer" in Menü "Preisliste"

Set cbp = cbc.CommandBar.Controls.Add(msoControlPopup)
With cbp
.Tag = "Beamer"
.Caption = "&Beamer"
.OnAction = ""
End With

HIER FÄNGT DAS PROBLEM AN
'cbc zeigt auf neuen Eintrag "Beamer" POPUP

Set cbc = .FindControl(Tag:="Beamer")

' Neuer Eintrag "Beamer" in Menü "Preisliste"

Set cbb = cbc.CommandBar.Controls(msoControlButton)
With cbb
.Tag = "Beamer"
.Caption = "&Beamer"
OnAction = ""
End With

frm.MenuBar = "MenüLmwProg"

End With
End Sub

Kann mir jemand weiterhelfen?

Besten Dank

Johannes

strausto
02.06.2003, 16:08
Hi!

Kannst Du den Code nicht auf das Wesentliche beschränken?
Wo liegt denn nun Dein Problem?

Dem Popup Mikro möchte ich einen weiteren Button
Hinzufügen, dies klappt bei mir nicht.

Wo generierst Du denn das POPUP Mikro?