جلب جميع العناصر الموجودة علي النموذج

كمايلي :

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        printName(Me.Controls)

    End Sub


    Sub printName(ByVal oCon As Object)
        For Each objControls As Control In oCon

            If objControls.HasChildren Then
                Debug.WriteLine(objControls.Name)

                printName(objControls.Controls) 'recursive

            Else
                Debug.WriteLine(objControls.Name)
            End If

        Next

    End Sub

لا حول ولا قوه الا بالله !!!!

هذا هو ما أفعله بالفعل !!!

ألم يوجد طريقة أخري مباشرة ؟؟؟

ما الغرض من الفكره

ليس هناك غرض محدد ... لكنني كنت أعتدت علي الفيجوال 6.0 بأن أمر علي كل العناصر مباشرتاً ... هذه هي كل الفكرة !!!

علي كل حال شكراً لكم جميعاً

أخي العزيز لا أعتقد أن هناك عيب في طول الكود أو قصره ..

لا أعلم إن كان هناك إمكانية في VB6 للحصول على أسماء الـ Controls الموجودة داخل الـ Containers بكود قصير كما هو الحال مع الكود الذي وضعته ..

اقتباس

لا أعلم إن كان هناك إمكانية في VB6 للحصول على أسماء الـ Controls الموجودة داخل الـ Containers بكود قصير كما هو الحال مع الكود الذي وضعته ..

في vb6 كانت كل الادوات موجودة في Controls بغض النظر عن وجودها داخل محتوى آخر

TareqVB كتب:

في vb6 كانت كل الادوات موجودة في Controls بغض النظر عن وجودها داخل محتوى آخر

نستطيع القول إذن أن VB.NET انتبهت لهذه النقطة ، وبالتالي فالكود الطويل هنا لمصلحة المبرمج ولتسهيل عمل المبرمج .. أليس كذلك ؟

عاشق للبرمجة كتب:

نستطيع القول إذن أن VB.NET انتبهت لهذه النقطة ، وبالتالي فالكود الطويل هنا لمصلحة المبرمج ولتسهيل عمل المبرمج .. أليس كذلك ؟

كما قال الأخ TareqVB ، فكانت كل الأمور مفتوحة !!!

لكن حكاية الميزة والعيب فأحياناً ميزة وأحياناً عيب !!!

هقول لحضرتك فكرة بسيطة ... في الفيجوال 6.0 هناك دالة تدعي RmDir لحذف فولدر في مسار محدد ((كما هو الحال في الدوت نيت)) ... وهناك تابع وظيفي API يدعي DeleteFolder ... التابع الوظيفي ينفذ فقط لا غير دون أن يعرض خطأ بالفيجوال ((فقط مجرد رقم خطأ)) ... أما الدالة RmDir ، فكانت مفوحة وإن لم يكن هناك الفولدر في مسارة الطبيعي يحدث خطأ !!!

هنا يأتي دور المبرمج في عملية الإختبار !!!

يعني كان مطول أيضاً في حالة لو أردنا جمع جميع العناصر الموجودة بداخل حاوية محددة ، مثال بسيط :

Dim obj As Object
For Each obj In Me.Controls
    If (obj.Container.Name = "Frame1") Then
        MsgBox obj.Name
    End If
Next

عكس الدوت نيت !!!

Dim obj As Object
For Each obj In GroupBox1.Controls
    MsgBox (obj.Name)
Next

علي كل حال الغرض واحد !!! وكل مشكله ولها حلها بغض النظر عن الطريقة نفسها !!!

شكراً لحضرتكم جميعاً