通过

运行代码时使用控件值

在运行 Visual Basic 代码时，可以设置和返回某些 控件 属性。 以下示例将一个文本框的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。

  • Last updated on