تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الافتراضي من فضلكم أريد مساعدة بخصوص الـ Array
#1
السلام عليكم و رحمة الله تعالى و بركاته
أريد أن أقوم بإضهار مجموعة من الأدوات بإستعمال 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"
لكنها لم تنفع معي
المرجوا المساعدة من فضلكم....
و شكرا مقدما ^_^
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...

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

نرجو الاستفادة و السلام.
الرد }}}
تم الشكر بواسطة:
#3
مشكووور أخي ناجي
الرد }}}
تم الشكر بواسطة:
#4
الكود ضبط معي ... شكرا لك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تغيير حجم الفورم حسب دقة عرض الشاشة amazonette 3 588 30-03-23, 02:47 PM
آخر رد: amazonette
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  [سؤال] اريد مساعدة donia hamdan 2 971 03-09-22, 10:23 AM
آخر رد: سعود
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,507 01-12-20, 08:54 PM
آخر رد: tareqhabib15
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 10 11,621 31-10-20, 01:00 AM
آخر رد: ryadd
  مساعدة بالربط layan2000 6 3,663 21-06-19, 05:52 PM
آخر رد: layan2000
  [Acces2010] استفسار بخصوص الفيجول بيسك والاكسس issamsaidd 1 2,200 19-12-18, 01:24 AM
آخر رد: elgokr
  مساعدة حول منع تشغيل فورم بحالة عمل آخر sh.hasan 3 2,072 15-12-18, 12:37 AM
آخر رد: sh.hasan
  [vb6.0] مساعدة في الفورم الثاني بالمشروع سمير الجبالي 3 2,431 17-07-18, 12:04 AM
آخر رد: سمير الجبالي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم