适用于
AccessObject 对象 |
Control 对象 |
Label 对象 |
Page 对象 |
SubForm 对象 |
BoundObjectFrame 对象 |
CurrentProject 对象 |
Line 对象 |
PageBreak 对象 |
TabControl 集合 |
CheckBox 对象 |
CustomControl 对象 |
ListBox 对象 |
Rectangle 对象 |
TextBox 对象 |
CodeProject 对象 |
Form 对象 |
ObjectFrame 对象 |
Report 对象 |
ToggleButton 对象 |
ComboBox 对象 |
GroupLevel 对象 |
OptionButton 对象 |
Section 对象 |
|
CommandButton 对象 |
Image 对象 |
OptionGroup 对象 |
SmartTag 对象 |
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