初始化控件属性

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

下例使用 AddItem 方法向列表框添加数据，然后设置文本框的值并显示窗体。

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

还可以在窗体的 Initialize 事件中用代码设置窗体上控件的初始值。在 Initialize 事件中设置控件的初始值的好处在于：初始化代码与窗体存储在一起。这样，如果把该窗体复制到其他项目中，那么运行 Show 方法显示对话框时，其中的控件将被初始化。

Private Sub UserForm_Initialize()
    UserForm1.lstNames.AddItem "Test One"
    UserForm1.lstNames.AddItem "Test Two"
    UserForm1.txtUserName.Text = "Default Name"
End Sub