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 物件

適用於 AccessObject、CodeProject 和 CurrentProject 物件的 Properties 屬性。

傳回 AccessObject、CurrentProject 或 CodeProject 物件的 AccessObjectProperties 集合物件的參照。

expression.Properties

表達 必須。 一個回傳上述物件之一的表達式。

備註

AccessObjectProperties 集合物件是所有與 AccessObject、CurrentProject 或 CodeProject 物件相關的屬性集合。 您可以使用成員物件的索引或代表成員物件名稱的字串運算式，來參照集合中的個別成員。 集合中的第一個成員物件的索引值為 0，集合中的成員物件總數為 AccessObjectProperties 集合物件的 Count 屬性值減 1。

您無法使用 Properties 屬性從透過 CurrentData 物件存取之集合成員的 AccessObject 物件傳回屬性。

適用於 SmartTag 物件的 Properties 屬性。

傳回代表特定智慧標籤之屬性集合的 SmartTagProperties 集合。

expression.Properties()

表達 必須。 一個回傳 SmartTag 物件的表達式。

Properties 屬性適用於 Apply To 清單中所有其他物件。

傳回控制項的 Properties 集合物件的參照。

expression.Properties

表達 必須。 一個回傳 Apply To 清單中物件的表達式。

備註

Properties 集合物件是與控制項相關的所有屬性的集合。 您可以使用成員物件的索引或代表成員物件名稱的字串運算式，來參照集合中的個別成員。 集合中的第一個成員物件的索引值為 0，集合中的成員物件總數為 Properties 集合物件的 Count 屬性值減 1。

範例

以下程序會使用 Properties 屬性將 [偵錯] 視窗中與表單控制項關聯的所有屬性列印出來。 若要執行此程式碼，請將 cmdListProperties 命令按鈕放置於表單，並將以下程式碼複製到表單的 Declarations 區段。 然後按一下命令按鈕來列印 [偵錯] 視窗中的屬性清單。

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