Word VBA教程:运行代码时使用控件的值

可在运行 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号