Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Enum-Test

Uploader:Redakteurytwinky
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