คุณสมบัติ Properties

นำไปใช้กับ

คุณสมบัติ Properties ที่นำไปใช้กับวัตถุ AccessObject, CodeProjec และ CurrentProject

ส่งกลับการอ้างอิงไปยังคอลเลกชัน AccessObjectProperties ของวัตถุ AccessObject, CurrentProject หรือ CodeProject

นิพจน์.Properties

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งข้างต้น

ข้อสังเกต

วัตถุคอลเลกชัน AccessObjectProperties คือคอลเลกชันของคุณสมบัติทั้งหมดที่เกี่ยวข้องกับวัตถุ AccessObject, CurrentProject หรือ CodeProject คุณสามารถอ้างถึงสมาชิกแต่ละรายของคอลเลกชันได้โดยใช้ดัชนีของวัตถุสมาชิกหรือนิพจน์สตริงที่เป็นชื่อของวัตถุสมาชิก วัตถุสมาชิกแรกในคอลเลกชันมีค่าดัชนีเป็น 0 และจํานวนรวมของวัตถุสมาชิกในคอลเลกชันคือค่าของคุณสมบัติ Count ของคอลเลกชัน AccessObjectProperties ลบด้วย 1

คุณไม่สามารถใช้คุณสมบัติ Properties เพื่อส่งกลับคุณสมบัติจากวัตถุ AccessObject ที่เป็นสมาชิกของคอลเลกชันซึ่งถูกเข้าถึงจากวัตถุ CurrentData ได้

คุณสมบัติ Properties ที่นำไปใช้กับวัตถุ SmartTag

ส่งกลับคอลเลกชัน SmartTagProperties ที่แสดงคอลเลกชันของคุณสมบัติสำหรับสมาร์ทแท็กที่เฉพาะเจาะจง

นิพจน์.Properties()

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุ SmartTag

คุณสมบัติ Properties ที่นำไปใช้กับวัตถุอื่นทั้งหมดในรายการ ใช้กับ

ส่งกลับการอ้างอิงไปยังวัตถุคอลเลกชัน Properties ของตัวควบคุม

นิพจน์.Properties

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ

ข้อสังเกต

วัตถุคอลเลกชัน Properties คือคอลเลกชันของคุณสมบัติทั้งหมดที่เกี่ยวข้องกับตัวควบคุม คุณสามารถอ้างถึงสมาชิกแต่ละรายของคอลเลกชันได้โดยใช้ดัชนีของวัตถุสมาชิกหรือนิพจน์สตริงที่เป็นชื่อของวัตถุสมาชิก วัตถุสมาชิกแรกในคอลเลกชันมีค่าดัชนีเป็น 0 และจํานวนรวมของวัตถุสมาชิกในคอลเลกชันคือค่าของคุณสมบัติ Count ของคอลเลกชัน Properties ลบด้วย 1

ตัวอย่าง

กระบวนงานต่อไปนี้ใช้คุณสมบัติ Properties ในการพิมพ์คุณสมบัติทั้งหมดที่เกี่ยวข้องกับตัวควบคุมบนฟอร์มไปยังหน้าต่าง Debug เมื่อต้องการเรียกใช้โค้ดนี้ ให้วางปุ่มคําสั่งที่ชื่อ 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