Usando enumeração em Select caso

Question

Enum age

 Over18

 Under18

End enum


Select case age

End select

'idade' é um tipo e não pode ser usado como uma expressão.

Existe alguma maneira de usar enums em "Select Case"?

Answer 1

Isso não faz sentido. Mas você pode fazer um Select Case em um variável que tem o enum como seu tipo .

Dim customerAge As age
customerAge = age.Over18

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

Answer 2

Você terá que definir uma variável que usa o enum.

   dim myage as age
    myage = age.Over18

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

Answer 3

O enum "idade" é realmente um tipo. Você precisa atribuir a uma variável construída para prendê-lo e testá-lo dessa forma:

Enum age
  over18
  under18
End enum


user.age = age.over18

Select case user.age

End Select

Answer 4

Eu não penso assim. O Select Case é apenas um especial Se Então instrução para que a seleccionar tem de ter algo para comparar a resposta. Então

Select childsAge
Case age.Over18

Answer 5

Você não pode usar o tipo (idade) sobre a expressão, mas você pode usar qualquer variável desse tipo

Dim myAge Como idade

Select Case myAge Caso age.Over18 ...