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

Question

Enum age

 Over18

 Under18

End enum


Select case age

End select

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

Есть ли способ использовать перечисления в " выберите регистр "?

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

Перечисление "возраст" это действительно тип. Вам нужно присвоить его переменной, созданной для ее хранения, и проверить ее таким образом:

Enum age
  over18
  under18
End enum


user.age = age.over18

Select case user.age

End Select

Answer 4

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

Select childsAge
Case age.Over18

Answer 5

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

Dim myAge As age

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