Utilisation de l'énumération dans un cas particulier

Question

Enum age 

Over18 

Under18 

End enum 


Select case age 

End select 

'age' est un type et ne peut pas être utilisé comme expression.

Existe-t-il un moyen d'utiliser enums dans "select case"?

Answer 1

Cela n'a pas de sens. Mais vous pouvez faire un cas de sélection sur une variable qui a l'enum comme son type.

Dim customerAge As age 
customerAge = age.Over18 

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

Answer 2

Je ne pense pas. Le Select Case est juste une instruction spéciale If Then, donc le select doit avoir quelque chose pour comparer la réponse. Donc

Select childsAge 
Case age.Over18 

Answer 3

L'enum "age" est en effet un type. Vous devez assigner à une variable intégrée pour le maintenir et de le tester de cette façon:

Enum age 
    over18 
    under18 
End enum 


user.age = age.over18 

Select case user.age 

End Select 

Answer 4

Vous devrez définir une variable qui utilise le ENUM.

 

    dim myage as age 
    myage = age.Over18 

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

Answer 5

vous ne pouvez pas utiliser le type (âge) sur l'expression, mais vous pouvez utiliser toutes les variables de ce type

Dim myAge Comme âge

Select Case myAge Case age.Over18 ...