fb:porticula NoPaste
Enum-Test
Uploader: | ytwinky |
Datum/Zeit: | 03.01.2008 23:09:36 |
Enum MyEnum
option1 = 1
option2
option3
End Enum
Enum MyEnum1
option1 = 1
option2
option3
End Enum
Dim MyVar As MyEnum = MyEnum.option1
Select Case MyVar
Case MyEnum.option1
Print "Option 1"
Case MyEnum.option2
Print "Option 2"
Case MyEnum.option3
Print "Option 3"
End Select
Sleep