在 Select 案例中使用枚举

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

枚举“age”确实是一种类型。 您需要将它分配给一个为保存它而构建的变量并以这种方式测试它：

Enum age
  over18
  under18
End enum


user.age = age.over18

Select case user.age

End Select

Answer 4

我不这么认为。 Select Case 只是一个特殊的 If Then 语句，因此选择必须有一些东西可以与答案进行比较。 所以

Select childsAge
Case age.Over18

Answer 5

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

Dim myAge Asage

Select Case myAge
病例年龄18岁以上...