6、Visual Basic编程：枚举、对象创建与面向对象编程基础

Visual Basic编程：枚举、对象创建与面向对象编程基础

1. 使用枚举限制参数值

在编程中，我们常常需要限制参数的取值范围，枚举（Enums）就能很好地实现这一目的。枚举定义了一组符号值，类似于常量（Const），但枚举名可以包含在过程的参数类型声明中。当使用该过程时，Visual Basic 的自动列表成员功能会显示参数的可能取值列表。

1.1 示例代码

Enum Number
    Zero
    One
    Two
    Three
End Enum

Sub ShowNumber(Value As Number)
    MsgBox Value
End Sub 

Sub Form_Load()
    ShowNumber One
End Sub

在 Form_Load 事件过程中输入 ShowNumber 后，Visual Basic 会显示枚举值列表供选择。同样，在用户控件属性的参数列表中使用枚举时也会有类似效果。

1.2 用户控件属性示例

Enum Number
    Zero
    One
    Two
End Enum

Dim mValue As Number

Property Get Value() As Number
    Value = mValue
End Property

Property Let Value(Setting As Number)
    mValue