Select Case Statements einfügen

Sie können im Callback Editor im Code Fenster Anweisungen setzen, um Select Case Statements beim Erstellen des basRibbonCallbacks Modul zu erstellen.

Setzten Sie dazu den Cursor an die Position und rufen mit der rechten Maustaste das Kontextmenü auf.

An der gewählten Position wird die entsprechende Anweisung gesetzt.

z.B. für einen Button (onAction):

''Button''

Damit die Statements eingesetzt werden müssen Sie den Haken "Füge Select Case Statements für alle Ribbon Controls..." im Tab "Fertigstellen" setzen.
Diese Anweisung wird im Modul "basRibbonCallbacks" durch folgenden Code (im Beispiel waren drei Ribbon-Buttons) ersetzt:

Case "btnRot"
    ' In Tab:   tab0
    ' In Group: grp0
    MsgBox "Button """ & control.ID & """ clicked" & vbCrLf & _
           "Es wurde auf Button """ & control.ID & """ im Ribbon geklickt", _
           vbInformation
Case "btnGelb"
    ' In Tab:   tab0
    ' In Group: grp0
    MsgBox "Button """ & control.ID & """ clicked" & vbCrLf & _
           "Es wurde auf Button """ & control.ID & """ im Ribbon geklickt", _
           vbInformation
Case "btnBlau"
    ' In Tab:   tab0
    ' In Group: grp0
    MsgBox "Button """ & control.ID & """ clicked" & vbCrLf & _
           "Es wurde auf Button """ & control.ID & """ im Ribbon geklickt", _
           vbInformation