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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array (/showthread.php?tid=4174)



الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array - waidom - 17-09-12

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


الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array - ناجي إبراهيم - 20-09-12

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

الإجراء يكون كالتالي:
كود :
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

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


الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array - تركي الحلواني - 20-09-12

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


الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array - waidom - 20-09-12

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