|
<< Click to Display Table of Contents >> Type (Anweisung) |
Type Typname
Element As Typ
Element As Typ
Element As Typ
.
.
.
End Type
Deklariert einen benutzerdefinierten Typ.
Typname ist der Name des neuen Typs.
Element ist der Name eines Elements dieses Typs.
Typ ist der Datentyp dieses Elements (Integer, Long, Single, Double, String, String*n, Variant oder ein benutzerdefinierter Typ).
Nach der Definition können Variablen des neuen Typs mit Dim x As Typname oder Static x As Typname angelegt werden.
Um auf ein Element zuzugreifen, benutzt man die Punktnotation: Variable.Element.
Type-Anweisungen dürfen nicht innerhalb von Sub- oder Function-Anweisungen verwendet werden.
Siehe auch: Dim, Static, With, Abschnitt Datentypen
Beispiel:
Type type1
a As Integer
d As Double
s As String
End Type
Type type2
a As String
o As type1
End Type
Type type3
b As Integer
c As type2
End Type
Dim var2a As type2
Dim var2b As type2
Dim var1a As type1
Dim var3a as type3
Sub Test
a = 5
var1a.a = 7472
var1a.d = 23.1415
var1a.s = "TEST"
var2a.a = "43 - dreiundvierzig"
var2a.o.s = "Hi"
var3a.c.o.s = "COS"
var2b.a = "943 - neunhundertdreiundvierzig"
var2b.o.s = "Yogi"
MsgBox var1a.a
MsgBox var1a.d
MsgBox var1a.s
MsgBox var2a.a
MsgBox var2a.o.s
MsgBox var2b.a
MsgBox var2b.o.s
MsgBox var3a.c.o.s
MsgBox a
End Sub