PowerPoint 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

上页:PowerPoint VBA教程:返回集合中的对象 下页:PowerPoint VBA教程:设置控件属性

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

PowerPoint VBA教程:设置控件属性 PowerPoint VBA教程:在幻灯片中使用 ActiveX 控件
PowerPoint VBA教程:使用 Application对象的事件 PowerPoint VBA教程:在文档中使用 ActiveX 控件
PowerPoint VBA教程:使用形状(绘图对象) PowerPoint VBA教程:使用窗格和视图
PowerPoint VBA教程:使用表格 PowerPoint VBA教程:与语言相关的属性和方法
PowerPoint VBA教程:新的事件 PowerPoint VBA教程:新的方法(按字母顺序)
PowerPoint VBA教程:新的方法(按对象排序) PowerPoint VBA教程:新的对象
PowerPoint VBA教程:新的属性(按字母顺序) PowerPoint VBA教程:新的属性(按对象排序)
PowerPoint VBA教程:OLE 程序标识符 PowerPoint VBA教程:为 Microsoft PowerPoint 2002 开发人员新增的内容
PowerPoint VBA教程:Activate方法 PowerPoint VBA教程:Add方法
PowerPoint VBA教程:AddBaseline方法 PowerPoint VBA教程:AddCallout方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号