[waidom]

السلام عليكم و رحمة الله تعالى و بركاته
أريد أن أقوم بإضهار مجموعة من الأدوات بإستعمال Zorder لكن هذه الأدوات غير محدد عددها أي أنني يمكن أن أعمل ل 5 أدوات لضهور أو 6 أو أو أقل....
لقد فكر بالطريقة التالية لكنها لم تنفع معي :

PHP كود :

Private Sub AZE(Rex() As Object)
For Re = 0 To UBound(intArray)
 Rex(Re).ZOrder (0)
Next
End Sub 


لنفترض أن لدي مجموعة من الأدوات في الفورم و أنا ما أريده أن يضهر هو :
TextBox و Option1
بالكود التالي :

PHP كود :

Call AZE(Text1, "option1") 


لكنها لم تنفع معي
المرجوا المساعدة من فضلكم....
و شكرا مقدما ^_^

[ناجي إبراهيم]

السلام عليكم...

الإجراء يكون كالتالي:

كود :

Private Sub BringToFront(ParamArray ControlNames() As Variant)
    Dim Idx As Long
    
    On Error GoTo BringToFront_Err
    
    For Idx = 0 To UBound(ControlNames)
        ControlNames(Idx).ZOrder vbBringToFront
    Next Idx
    Exit Sub
    
BringToFront_Err:
    Err.Clear
    Err.Raise vbObjectError + 1001, App.EXEName & " - Sub BringToFront", "أحد البارامترات ليس مكوناً موجوداً أو أنه لا يدعم وظيفة الإحضار إلى الأمام"
End Sub

و يتم الاستدعاء كالتالي مثلاً:

كود :

BringToFront Text1, Frame2

نرجو الاستفادة و السلام.

[تركي الحلواني]

مشكووور أخي ناجي

[waidom]

الكود ضبط معي ... شكرا لك