初始化控件属性

可通过使用宏中的 Visual Basic 代码，在运行时初始化控件。例如，可填充列表框、设置文本值或设置选项按钮。

以下示例使用 Visual Basic 的 AddItem 方法将数据添至名为 lstRegions 的列表框，然后设置文本框的值并显示窗体。

Private Sub GetUserName()
    With UserForm1
        .lstRegions.AddItem "North"
        .lstRegions.AddItem "South"
        .lstRegions.AddItem "East"
        .lstRegions.AddItem "West"
        .txtSalesPersonID.Text = "00000"
        .Show
        ' ...
    End With
End Sub

也可使用窗体的 Visual Basic Initialize 事件中的代码为窗体上的控件设置初始值。在 Initialize 事件中设置控件初始值的好处在于，初始化代码将保留在窗体中。可以将窗体复制到其他项目，并且当运行 Show 方法显示对话框时，将初始化控件。

Private Sub UserForm_Initialize()
    With UserForm1
        With .lstRegions
            .AddItem "North"
            .AddItem "South"
            .AddItem "East"
            .AddItem "West"
        End With
        .txtSalesPersonID.Text = "00000"
    End With
End Sub