在代码运行时使用控件值 (Word)

在运行 Visual Basic 代码时，可以设置并返回 ActiveX 控件 的某些属性。 以下示例将一个文本框的 Text 属性设置为"Hello"。

TextBox1.Text = "Hello"

关闭窗体时，用户输入窗体中的数据将会丢失。 如果卸载窗体后返回窗体上控件的值，则获得控件的初始值而不是用户输入的值。

若要保存输入窗体中的数据，可在窗体运行时将信息保存到模块级的变量中。 以下示例显示一个窗体，并在卸载窗体前用公共变量保存窗体数据。

'Code in module to declare public variables 
Public strRegion As String 
Public intSalesPersonID As Integer 
Public blnCancelled As Boolean 
 
'Code in form 
Private Sub cmdCancel_Click() 
 Module1.blnCancelled = True 
 Unload Me 
End Sub 
 
Private Sub cmdOK_Click() 
 'Save data 
 intSalesPersonID = txtSalesPersonID.Text 
 strRegion = lstRegions.List(lstRegions.ListIndex) 
 Module1.blnCancelled = False 
 Unload Me 
End Sub 
 
Private Sub UserForm_Initialize() 
 Module1.blnCancelled = True 
End Sub 
 
'Code in module to display form 
Sub LaunchSalesPersonForm() 
 frmSalesPeople.Show 
 If blnCancelled = True Then 
 MsgBox "Operation Cancelled!", vbExclamation 
 Else 
 MsgBox "The Salesperson's ID is: " & _ 
 intSalesPersonID & _ 
 "The Region is: " & strRegion 
 End If 
End Sub

支持和反馈

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