الخاصية "خصائص"

ينطبق على

تنطبق خاصية Properties على عناصر AccessObject وCodeProject وCurrentProject.

وتُرجع مرجعاً إلى مجموعة AccessObjectProperties لعنصر AccessObject أو CurrentProject أو CodeProject.

expression.Properties

expression Required. تعبير يقوم بإرجاع أحد العناصر المذكورة أعلاه.

ملاحظات

إن عنصر مجموعة AccessObjectProperties عبارة عن مجموعة كل الخصائص المتعلقة بعنصر AccessObject أو CurrentProject أو CodeProject. يمكنك الإشارة إلى أعضاء فردية في المجموعة باستخدام فهرس العنصر العضو أو تعبير سلسلة يكون اسم العنصر العضو. يتضمن أول عنصر عضو في المجموعة قيمة الفهرس 0 ويكون إجمالي عدد العناصر الأعضاء في المجموعة هو قيمة خاصية Count لمجموعة AccessObjectProperties ناقص 1.

لا يمكنك استخدام خاصية Properties لإرجاع خصائص من عنصر AccessObject الذي يكون عضو في مجموعة يتم الوصول إليها من عنصر CurrentData.

خاصية Properties كما تنطبق على عنصر SmartTag.

تقوم بإرجاع مجموعة SmartTagProperties التي تمثل مجموعة الخصائص لعلامة ذكية معينة.

expression.Properties()

expression Required. تعبير يقوم بإرجاع عنصر SmartTag.

خاصية Properties كما تنطبق على كل العناصر الأخرى في قائمة "ينطبق على".

تقوم بإرجاع مرجع إلى عنصر مجموعة Properties لعنصر تحكم.

expression.Properties

expression Required. هو تعبير يقوم بإرجاع أحد العناصر الموجودة في القائمة "ينطبق على".

ملاحظات

إن عنصر مجموعة Properties هو مجموعة كل الخصائص المرتبطة بعنصر تحكم. يمكنك الإشارة إلى أعضاء فردية في المجموعة باستخدام فهرس العنصر العضو أو تعبير سلسلة يكون اسم العنصر العضو. يتضمن أول عنصر عضو في المجموعة قيمة الفهرس 0 ويكون إجمالي عدد العناصر الأعضاء في المجموعة هو قيمة خاصية Count لمجموعة Properties ناقص 1.

مثال

يستخدم الإجراء التالي خاصية Properties لطباعة كافة الخصائص المقترنة بعناصر التحكم الموجودة في نموذج إلى نافذة "تتبع الأخطاء". لتشغيل هذه التعليمة البرمجية، ضع زر الأمر المسمى 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