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

StackOverflow https://stackoverflow.com/questions/1004135

  •  05-07-2019
  •  | 
  •  

Вопрос

Enum age

 Over18

 Under18

End enum


Select case age

End select

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

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

Это было полезно?

Решение

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

Dim customerAge As age
customerAge = age.Over18

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

Другие советы

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


   dim myage as age
    myage = age.Over18

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

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

Enum age
  over18
  under18
End enum


user.age = age.over18

Select case user.age

End Select

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

Select childsAge
Case age.Over18

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

Dim myAge As age

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

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top