Properties 属性

适用对象

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 对象。

返回对 AccessObjectCurrentProjectCodeProject 对象的 AccessObjectProperties 集合的引用。

表达式.Properties

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

备注

AccessObjectProperties 集合对象是与 AccessObjectCurrentProjectCodeProject 对象相关的所有属性的集合。可以通过使用成员对象的索引或作为成员对象名称的字符串表达式引用集合的各个成员。集合中的第一个成员的索引值为 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
扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×