Excel 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

上页:Excel VBA教程:选定和激活单元格 下页:Excel VBA教程:设置控件属性

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

Excel VBA教程:设置控件属性 Excel VBA教程:在工作表上使用 ActiveX 控件
Excel VBA教程:Application对象事件的用法 Excel VBA教程:嵌入图表事件的用法
Excel VBA教程:在文档中使用 ActiveX 控件 Excel VBA教程:使用 Microsoft Excel对象事件的方法
Excel VBA教程:在窗体上使用 Microsoft Office Web 组件 Excel VBA教程:QueryTable对象事件的用法
Excel VBA教程:在 Visual Basic 中使用 Microsoft Excel 工作表函数 Excel VBA教程:工作簿对象事件
Excel VBA教程:处理三维区域 Excel VBA教程:处理图形(绘图对象)
Excel VBA教程:处理活动单元格 Excel VBA教程:Worksheet对象事件
Excel VBA教程:页眉和页脚的格式代码 Excel VBA教程:ActiveX 控件
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:“帮助”主题不可用
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号