<< Click to Display Table of Contents >> With (Anweisung)

With Object

 [Anweisungen]

End With

Führt eine Gruppe von Anweisungen für ein bestimmtes Objekt aus.

Die With-Anweisung erlaubt es, auf die Elemente eines Objekts zuzugreifen, ohne den Objektnamen jedes Mal angeben zu müssen.

With-Anweisungen dürfen verschachtelt werden.

Siehe auch: While Wend, Do Loop, Abschnitt Tipps für die Vereinfachung von Schreibweisen

Beispiel:

Type type1

 a As Integer

 d As Double

 s As String

End Type

Type type2

 a As String

 o As type1

End Type

Dim var1a As type1

Dim var2a As type2

Sub Main

 With var1a

         .a = 65

         .d = 3.14

 End With

 With var2a

 .a = "Hallo"

         With .o

                 .s = "Tschüß"

         End With

 End With

 var1a.s = "TEST"

 MsgBox var1a.a

 MsgBox var1a.d

 MsgBox var1a.s

 MsgBox var2a.a

 MsgBox var2a.o.s

End Sub