Erstellen von eigenen Enums in einer Klasse in VBS

22/01/2010 - 15:15 von Tom | Report spam
Hallo,
ich möchte in einer Klasse die in der Sprache VBS implementiert ist auch
eigene Auflistungen definieren. Meines Wissens gibt es in VBS das
Schlüsselwort enum nicht. Gibt es eine Möglichkeit, Workaround wie ich enums
in einer VBS Klasse definiere oder nachbilde?

Wie z.B
Class myClass
Public Enum Auflistung
Auflistung_A = 0
Auflistung_B = 2
Auflistung_C = 7
End Enum
End Class

Danke für euere Hilfe im Vorraus.
 

Lesen sie die antworten

#1 ekkehard.horner
22/01/2010 - 16:59 | Warnen spam
Tom schrieb:
Hallo,
ich möchte in einer Klasse die in der Sprache VBS implementiert ist auch
eigene Auflistungen definieren. Meines Wissens gibt es in VBS das
Schlüsselwort enum nicht. Gibt es eine Möglichkeit, Workaround wie ich enums
in einer VBS Klasse definiere oder nachbilde?

Wie z.B
Class myClass
Public Enum Auflistung
Auflistung_A = 0
Auflistung_B = 2
Auflistung_C = 7
End Enum
End Class

Danke für euere Hilfe im Vorraus.



Vielleicht so:

Dim oCar : Set oCar = New cCar
oCar.go oCar.Dir.no
oCar.go oCar.Dir.we

output:

go 0
go 3

braucht natuerlich:

Class cDir
Public Property Get no() : no = 0 : End Property
Public Property Get os() : os = 1 : End Property
Public Property Get su() : su = 2 : End Property
Public Property Get we() : we = 3 : End Property
End Class ' cDir

Class cCar
Private m_enDir
Private Sub Class_Initialize()
Set m_enDir = New cDir
End Sub
Public Sub go( nDir )
WScript.Echo "go", nDir
End Sub
Public Property Get Dir()
Set Dir = m_enDir
End Property
End Class ' cCar

Ähnliche fragen