منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array

السلام عليكم و رحمة الله تعالى و بركاته
أريد أن أقوم بإضهار مجموعة من الأدوات بإستعمال 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

ناجي إبراهيم

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

waidom