Properties 屬性

全部顯示

應(yīng)用于 AccessObject、CodeProject 和 CurrentProject 對象的 Properties 屬性。

返回對 AccessObject、CurrentProject 或 CodeProject 對象的 AccessObjectProperties 集合的引用。

expression.Properties

expression     必需。返回以上對象之一的表達(dá)式。

說明

AccessObjectProperties 集合對象是與 AccessObject、CurrentProject 或 CodeProject 對象相關(guān)的所有屬性的集合。通過使用成員對象的索引或表示成員對象名稱的字符串表達(dá)式，可以引用集合內(nèi)的每一個成員。集合內(nèi)的第一個成員對象的索引值為 0，該集合內(nèi)成員對象的總數(shù)為 AccessObjectProperties 集合的 Count 屬性值減 1。

使用 Properties 屬性不能從通過 CurrentData 對象進(jìn)行訪問的集合成員的 AccessObject 對象返回屬性。

應(yīng)用于 SmartTag 對象的 Properties 屬性。

返回一個 SmartTagProperties 集合，該集合代表特定智能標(biāo)記的屬性集合。

expression.Properties()

expression   必需。返回 SmartTag 對象的表達(dá)式。

應(yīng)用于“應(yīng)用于”列表中所有其他對象的 Properties 屬性。

該屬性返回對控件的 Properties 集合對象的引用。

expression.Properties

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

說明

Properties 集合對象是與控件相關(guān)的所有屬性的集合。使用成員對象的索引或表示成員對象名稱的字符串表達(dá)式可以引用集合內(nèi)的單個成員。集合內(nèi)第一個成員對象的索引值為 0，該集合內(nèi)成員對象的總數(shù)為 Properties 集合的 Count 屬性值減 1。

示例

下面的過程使用 Properties 屬性將所有與窗體上的控件相關(guān)的屬性打印在“調(diào)試”窗口中。要運(yùn)行這些代碼，請在窗體中放置一個名為 cmdListProperties 的命令按鈕，然后將下列代碼粘貼到窗體的“聲明”節(jié)中。單擊該命令按鈕即可在“調(diào)試”窗口中打印屬性列表。

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