Properties 属性

适用于

Properties 属性适用于 AccessObject、CodeProject 和 CurrentProject 对象。

返回对 AccessObject、CurrentProject 或 CodeProject 对象的 AccessObjectProperties 集合的引用。

表达式.Properties

表达式 必需。 返回上述对象之一的表达式。

备注

AccessObjectProperties 集合对象是与 AccessObject、CurrentProject 或 CodeProject 对象相关的所有属性的集合。 可以通过使用成员对象的索引或作为成员对象名称的字符串表达式引用集合的各个成员。 集合中的第一个成员的索引值为 0，此集合中成员对象的总数量是 AccessObjectProperties 集合的 Count 属性减去 1 的值。

无法使用 Properties 属性从 AccessObject 对象（从 CurrentData 对象访问的集合成员）返回属性。

Properties 属性适用于 SmartTag 对象。

返回 SmartTagProperties 集合，它表示某一特定智能标记的属性的集合。

表达式.Properties()

表达式 必需。 返回 SmartTag 对象的表达式。

Properties 属性适用于“适用对象”列表中的所有其他对象。

返回对控件的 Properties 集合对象的引用。

表达式.Properties

表达式 必需。 返回“适用范围”列表中的对象之一的表达式。

备注

Properties 集合对象是与控件相关的所有属性的集合。 可以通过使用成员对象的索引或作为成员对象名称的字符串表达式引用集合的各个成员。 集合中的第一个成员的索引值为 0，此集合中成员对象的总数量是 Properties 集合的 Count 属性减去 1 的值。

示例

以下过程使用 Properties 将与窗体上控件相关的所有属性打印到“调式”窗口。 若要运行此代码，请将名为 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