Properties 屬性

適用對象

適用於 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 屬性。

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

expression.Properties

運算式 必要。 傳回 [套用至] 清單中其中一個對象的表達式。

備註

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