初始化 Word) (控件属性

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

以下示例使用 Visual Basic AddItem 方法将数据添加到名为 lstRegions 的列表框中。 以下示例使用 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。