在Select case中使用Enumeration

Question

Enum age

 Over18

 Under18

End enum


Select case age

End select

'age'是一种类型,不能用作表达式.

在"选择案例"中有没有使用枚举的方法？

Answer 1

这没有意义.但是,您可以对具有枚举作为其类型的变量执行Select Case .

Dim customerAge As age
customerAge = age.Over18

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