在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

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

我不这么认为。 Select Case只是一个特殊的If Then语句，因此select必须要有一些东西来比较答案。所以

Select childsAge
Case age.Over18

Answer 5

您不能在表达式上使用类型（年龄），但您可以使用该类型的任何变量

Dim myAge随着年龄的增长

选择Case myAge   案例年龄。超过18 ...