应用于 AccessObject、CodeProject 和 CurrentProject 对象的 Properties 属性。
返回对 AccessObject、CurrentProject 或 CodeProject 对象的 AccessObjectProperties 集合的引用。
expression.Properties
expression 必需。返回以上对象之一的表达式。
AccessObjectProperties 集合对象是与 AccessObject、CurrentProject 或 CodeProject 对象相关的所有属性的集合。通过使用成员对象的索引或表示成员对象名称的字符串表达式,可以引用集合内的每一个成员。集合内的第一个成员对象的索引值为 0,该集合内成员对象的总数为 AccessObjectProperties 集合的 Count 属性值减 1。
使用 Properties 属性不能从通过 CurrentData 对象进行访问的集合成员的 AccessObject 对象返回属性。
应用于“Applies To”列表中所有其他对象的 Properties 属性。
该属性返回对控件的 Properties 集合对象的引用。
expression.Properties
expression 必需。返回“Applies To”列表中的一个对象的表达式。
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