Access) (Control.Properties 属性

返回控件的 属性 集合对象的引用。 此为只读属性。

语法

表达式。属性

表达式 表示 控件 对象的变量。

备注

属性 集合对象是与控件相关的所有属性的集合。 使用成员对象的索引或作为成员对象名称的字符串表达式引用集合的各个成员。

集合中第一个成员对象的索引值为 0，集合中成员对象的总数是 Properties 集合的 Count 属性的值减去 1。

示例

下面的过程使用的 属性 属性要打印到调试窗口中的窗体上的控件关联的所有属性。 若要运行此代码，请在窗体上放置一个名为 cmdListProperties 的命令按钮，并将以下代码粘贴到窗体的“声明”部分。 单击该命令按钮即可在“调试”窗口中打印属性列表。

Private Sub cmdListProperties_Click() 
 ListControlProps Me 
End Sub 
 
Public Sub ListControlProps(ByRef frm As Form) 
 Dim ctl As Control 
 Dim prp As Property 
 
 On Error GoTo props_err 
 
 For Each ctl In frm.Controls 
 Debug.Print ctl.Properties("Name") 
 For Each prp In ctl.Properties 
 Debug.Print vbTab & prp.Name & " = " & prp.Value 
 Next prp 
 Next ctl 
 
props_exit: 
 Set ctl = Nothing 
 Set prp = Nothing 
Exit Sub 
 
props_err: 
 If Err = 2187 Then 
 Debug.Print vbTab & prp.Name & " = Only available at design time." 
 Resume Next 
 Else 
 Debug.Print vbTab & prp.Name & " = Error Occurred: " & Err.Description 
 Resume Next 
 End If 
End Sub

支持和反馈

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

  • Last updated on