تقييم الموضوع :
  • 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
الكود ضبط معي ... شكرا لك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة حول منع تشغيل فورم بحالة عمل آخر sh.hasan 3 68 منذ 7 ساعة مضت
آخر رد: sh.hasan
  [vb6.0] مساعدة في الفورم الثاني بالمشروع سمير الجبالي 3 259 17-07-18, 12:04 AM
آخر رد: سمير الجبالي
  [كود] سؤال بخصوص الطباعة عمور2016 5 386 05-04-18, 04:26 PM
آخر رد: عمور2016
  مساعدة في رسالة خطاء VB.NET 5 347 27-03-18, 08:03 PM
آخر رد: VB.NET
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 354 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري
  [سؤال] تم الحل: مساعدة اخي احمد منصور علي مثالك لنسخ قاعدة البيانات والاتصال بها awidan76 7 248 28-01-18, 06:56 PM
آخر رد: awidan76
  مساعدة في الوينسوك VB.NET 7 327 16-12-17, 02:10 AM
آخر رد: VB.NET
  مساعدة في فتح ملفات جاهزة في فورم Visual Basic 0 214 06-12-17, 07:19 PM
آخر رد: Visual Basic
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 796 15-04-17, 04:13 AM
آخر رد: sendbad100
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 3 908 14-03-17, 01:02 AM
آخر رد: عبد العزيز البسكري

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


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