---

Hallo Leute,

ich möchte eine Werkzeugleiste mit einem Button erstellen.
Die Werkzeugleiste soll immer sichbar sein.
Das bekomme ich auch hin, aber der Button ist immer inaktiv, nicht anklickbar.

Ziehe ich das ganze mit dem im Code als Kommentar gekennzeichneten Makro durch,
dann funktioniert dies.

Ich habe mir das Beispiel in der API-Hilfe angesehen.
Leider weiss ich nicht, was ich falsch mache.
Hat jemand einen Tip für mich?

Public Sub CreateToolbarandButton()
            ' ertstellt die Werkzeugleiste samt Befehlen

            Dim oPartStandardToolbar As CommandBar 'Referenz auf eine Standard-Werkzeugleiste
            Dim oCommandMgr As CommandManager
            Dim oControlDefs As ControlDefinitions 'Referenz auf die Controldefinitions
            Dim oButtondefinition As ButtonDefinition

            'Objektreferenzen setzen
            Set oCommandMgr = ThisApplication.CommandManager
            Set oControlDefs = oCommandMgr.ControlDefinitions

            'Werkzeugleiste neu anlegen
            Set oPartStandardToolbar = ThisApplication.UserInterfaceManager.CommandBars.Add("Hallo Welt", "dummy", kRegularCommandBar)
            oPartStandardToolbar.Visible = True

            'Befehle neu anlegen
            Set oButtondefinition = oControlDefs.AddButtonDefinition("Hallo Welt", _
                                                                    "OpenMainFormPropMgr", _
                                                                    kFilePropertyEditCmdType)

            Call oPartStandardToolbar.Controls.AddButton(oButtondefinition)
            oButtondefinition.Enabled = True 'aktivieren des Befehls

            'Dim oMacroDef As MacroControlDefinition

            'oMacroDef = oControlDefs.AddMacroControlDefinition("MainProgPropMgr.OpenMainFormPropMgr")
            'oPartStandardToolbar.Controls.AddMacro (oMacroDef)
            'oMacroDef.Enabled = True 'aktivieren des Befehls

        End Sub

Public Sub DeleteToolbarandButton()
' löscht die Werkzeugleiste samt Befehlen

    Dim oPartStandardToolbar As CommandBar 'Referenz auf eine Standard-Werkzeugleiste
    Dim oCommandMgr As CommandManager
    Dim oControlDefs As ControlDefinitions 'Referenz auf die Controldefinitions
    Dim oControlDef As ControlDefinition 'Referenz auf die Controldefinitions
    Dim oMacroDef As MacroControlDefinition
   

    'Objektreferenzen setzen
    Set oCommandMgr = ThisApplication.CommandManager
    Set oControlDefs = oCommandMgr.ControlDefinitions
   
    'vorhandene Werkzeugleiste löschen
   
    For Each oPartStandardToolbar In ThisApplication.UserInterfaceManager.CommandBars
        If oPartStandardToolbar.InternalName = "dummy" Then
            oPartStandardToolbar.Visible = False
            oPartStandardToolbar.Delete
            Exit For
        End If
    Next
   
    'alte Befehle löschen
    For Each oControlDef In oControlDefs
        If oControlDef.InternalName = "OpenMainFormPropMgr" Then
          oControlDef.Delete
        End If
    Next
   
End Sub

Das eine Sub fügt Werkzeugleiste mit Button ein, das andere entfernt alles wieder.

Grüße

Manfred 

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