Mit Enumeration in Select Fall

Question

Enum age

 Over18

 Under18

End enum


Select case age

End select

‚Alter‘ ist ein Typ und kann nicht als Ausdruck verwendet werden.

Gibt es eine Möglichkeit Aufzählungen in "select case" zu verwenden?

Answer 1

Das macht keinen Sinn. Aber Sie können eine Select Case tun auf eine Variable , die die Enum hat als Typ .

Dim customerAge As age
customerAge = age.Over18

Select Case customerAge
    Case age.Over18
        ...
    Case age.Under18
        ...
End Select

Answer 2

Sie müssen eine Variable definieren, die die Enum verwendet.

   dim myage as age
    myage = age.Over18

    Select Case myage
    case age.Over18
    .....
    case age.Under18
    .....
    end select

Answer 3

Die Enum „Alter“ ist in der Tat eine Art. Sie müssen es zu einer Variablen zugewiesen werden gebaut, es zu halten und es auf diese Weise testen:

Enum age
  over18
  under18
End enum


user.age = age.over18

Select case user.age

End Select

Answer 4

Ich würde nicht so denken. Die Select Case ist nur ein Spezial If Then-Anweisung so die Auswahl hat etwas haben, um die Antwort zu vergleichen. So

Select childsAge
Case age.Over18

Answer 5

Sie können den Typ (Alter) auf dem Ausdruck verwenden, aber Sie alle Variablen dieses Typs können

Dim myAge Als Alter

Case myAge auswählen   Fall age.Over18 ...