VB 5/6-Tipp 0349: Arbeiten mit Enum-Konstanten
von ActiveVB
Beschreibung
Der eher selten verwendete Enum-Typ bietet ein paar komfortable Möglichkeiten ... lassen Sie sich überraschen.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------- Anfang Projektdatei Project1.vbp ------------- '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Listen-Steuerelement "List1" ' Steuerelement: Beschriftungsfeld "Label1" Option Explicit 'Enum einsbasiert beginnen Private Enum Lecker mhmKresseSuppe = 1 mhmEnteInOrange mhmSauerBraten mmhBoufMotte End Enum Private Sub Form_Load() '1. Direkte Zuweisung List1.AddItem "mhmKresseSuppe = " & mhmKresseSuppe '2. Als Qualifier List1.AddItem "mhmEnteInOrange = " & Lecker.mhmEnteInOrange '3. Variable als Enum deklarieren ' Besonders interessant ist hier das Aufklappen der ' VB-IntelliSenseBox. Um dies nachvollziehen zu können ' Tippen Sie die Zeile bitte Buchstabe für Buchstabe ab. Dim Schmackhaft As Lecker Schmackhaft = mhmSauerBraten List1.AddItem "mhmSauerBraten = " & Schmackhaft '4. Enum_Konstante als Parameter Sub übergeben ' Besonders interessant ist auch hier wieder das Aufklappen ' der VB-IntelliSenseBox. Um dies nachvollziehen zu können ' Tippen Sie die Zeile bitte Buchstabe für Buchstabe ab. Call listenEintrag("mmhBoufMotte", mmhBoufMotte) End Sub Private Sub listenEintrag(Bezeichung$, Gericht As Lecker) List1.AddItem Bezeichung & " = " & Gericht End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Project1.vbp --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
Archivierte Nutzerkommentare
Klicken Sie diesen Text an, wenn Sie die 7 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.
Kommentar von Markus am 22.03.2010 um 17:44
Enums müssen in einem reinen Modul definiert werden, nicht in einem Objektmodul, das z.B. zu einer Arbeitsmappe oder einer Form gehört
Kommentar von Josef am 09.10.2004 um 21:13
Ich arbeite mit Excel 97 warum funktioniert da die Enum Funktion nicht?
Kommentar von Robert am 15.05.2002 um 14:45
Ich arbeite mit Excel 97 warum funktioniert da die Enum Funktion nicht?
Hat vielleicht jemand einen Tipp?
Kommentar von Böttcher am 21.02.2002 um 19:56
An Jan 2.
Hab mich geirrt, zumindest in der 2000er Version gibt es sie. Sie dürfen aber nur auf Modulebene verwendet werden! Vielleicht geht es deswegen nicht.
Kommentar von Jochen am 19.02.2002 um 15:28
An Jan
ich glaube in VBA gibt es keine Enum Konstanten
Kommentar von Jan Lütke am 04.01.2002 um 14:04
Habe versucht in Access 97 mit VBA diesen Enum Type zu verwenden. Hat nicht geklappt - warum?
Kommentar von Dirk am 28.12.2001 um 04:10
hallo
wie bekomme ich enum´s
in eine listbox ?
bitte um antwort