DruckversionEin eigenes Menü erstellen
Der With-Block
Eine wesentliche Verbesserung der Notation bietet die Schreibweise des Codes im With-Block, Damit können Sie sich viel Schreibaufwand sparen. Lesbarkeit und Abarbeitung Ihres Codes werden dadurch günstiger.
Der With-Block beginnt mit der Beginnklausel
With ausdruck.
(ausdruck ist eine sinnvolle Notation, die vor jedem der folgenden Zeilen als davor geschrieben anzunehmen ist.)
Der Withblock endet mit
End With.
So notieren Sie einen With-Block, um wiederholte folgende Schlüsselworte beim Notieren einzusparen, indem Sie z.B. unten stehen Codezeilen...
Code:
CommandBars("Privat1").Controls("Te&st").Controls(3).BeginGroup = True 'Strich einfügen
CommandBars("Privat1").Controls("Te&st").Controls(3).Caption = "Wetter"
notieren als ...
Code:
With CommandBars("Privat1").Controls("Te&st").Controls(3)
.BeginGroup = True 'Strich einfügen
.Caption = "Wetter"
End With
'Jede der beiden im Block enthaltenen Anweisungen
' wird so abgearbeitet, als ob vor ihr
'CommandBars("Privat1").Controls("Te&st").Controls(3)
' stehen würde.
' Das ist bis End With gültig
Teile des Codes im Beispiel (vgl. Seite 3) ändert sich dann zu...
Code:
With CommandBars("Privat1").Controls("Te&st")
.Controls.Add Type:=msoControlPopup
With.Controls(3)
.BeginGroup = True 'Strich einfügen
.Caption = "Wetter"
.Controls.Add Type:=msoControlButton
.Controls(1).Caption = "gut"
.Controls(1).OnAction = "gut"
.Controls.Add Type:=msoControlButton
.Controls(2).Caption = "mies"
.Controls(2).OnAction = "mies"
End With
End With
Schauen Sie sich den obigen Code des With-Blockes genau an, damit Sie bei dessen Anwendung später keine Fehler machen.
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied