Properties 集合

全部顯示

Properties 集合包含一個(gè)打開(kāi)的窗體、報(bào)表或控件的實(shí)例中的所有內(nèi)置屬性。這些屬性唯一地標(biāo)識(shí)了該對(duì)象實(shí)例的特性。

使用 Properties 集合

在 Visual Basic 中或表達(dá)式中使用 Properties 集合，可以引用當(dāng)前打開(kāi)的窗體或報(bào)表上的窗體、報(bào)表或控件屬性。

提示

For Each...Next

可以使用對(duì)象的 Properties 集合來(lái)列舉該對(duì)象的內(nèi)置屬性。不需要事先確切知道哪些屬性存在或其特性（Name 和 Value 屬性）是什么，就可處理這些屬性。

注釋  除了內(nèi)置屬性，還可以創(chuàng)建和添加用戶自定義屬性。要對(duì)對(duì)象的已存在的實(shí)例添加自定義屬性，請(qǐng)參閱 AccessObjectProperties 集合和 Add 方法主題。

下面的示例列舉了 Forms 集合并打印該 Forms 集合中每個(gè)打開(kāi)的窗體的名稱。然后，列舉了每個(gè)窗體的 Properties 集合并打印每個(gè)屬性的名稱和值。

Sub AllOpenForms()

    Dim frm As Form, prp As Property

    ' Enumerate Forms collection.

    For Each frm In Forms

        ' Print name of form.

        Debug.Print frm.Name

        ' Enumerate Properties collection of each form.

        For Each prp In frm.Properties

            ' Print name of each property.

            Debug.Print prp.Name; " = "; prp.Value

        Next prp

    Next frm

End Sub