Использование перечисления в случае выбора

Question

Enum age

 Over18

 Under18

End enum


Select case age

End select

'age' является типом и не может использоваться в качестве выражения.

Можно ли использовать перечисления в "select case"?

Answer 1

Это не имеет смысла. Но вы можете сделать Select Case для переменной , которая имеет тип enum в качестве типа .

Dim customerAge As age
customerAge = age.Over18

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

Answer 2

Вам нужно определить переменную, которая использует перечисление.

   dim myage as age
    myage = age.Over18

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

Answer 3

Перечисление «age» действительно является типом. Вам необходимо присвоить его переменной, созданной для ее хранения, и проверить ее таким образом:

Enum age
  over18
  under18
End enum


user.age = age.over18

Select case user.age

End Select

Answer 4

вы не можете использовать тип (age) в выражении, но вы можете использовать любые переменные этого типа

Dim myAge As age

Выберите Case myAge Дело в возрасте. Более 18 ...

Answer 5

Я бы так не думал. Случай выбора - это просто специальное утверждение If Then, поэтому у выбора должно быть что-то, с чем можно сравнить ответ. Итак

Select childsAge
Case age.Over18