全部显示

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

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

expression.Properties

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

说明

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

使用 Properties 属性不能从通过 CurrentData 对象进行访问的集合成员的 AccessObject 对象返回属性。

应用于 SmartTag 对象的 Properties 属性。

返回一个 SmartTagProperties 集合，该集合代表特定智能标记的属性集合。

expression.Properties()

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

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

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

expression.Properties

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

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