بسم الله الرحمن الرحيم
الاخوة الافاضل لا احب ان اثقل عليكم ما قصدت عن صلاحيات المستخدمين على شكل شجرة لا اريد كيف عمل الصلاحيات وربطها في البرنامج واستدعائها من قاعدة البيانات لا اريد هذا كله الموضوع بسيط ان شاء الله هو كيف اجعل اسم الشاشة كـ أب والادوات بداخليها كـ بناء لتوضيح اكثر يوجد مرفق
بسم الله الرحمن الرحيم
احبابي في المنتدى ما اريده هو كيف يمكن عمل شجرة الصلاحيات كما هي مرفقة في المشاركة السابقة هل هذه الشجرة مستخدم بها dadagridview أو treeview أو listview وكيف يمكن عمل التفرعات
(02-02-15, 10:54 AM)البراء كتب : [ -> ]بسم الله الرحمن الرحيم
احبابي في المنتدى ما اريده هو كيف يمكن عمل شجرة الصلاحيات كما هي مرفقة في المشاركة السابقة هل هذه الشجرة مستخدم بها dadagridview أو treeview أو listview وكيف يمكن عمل التفرعات
هل هذه الشجرة مستخدم بها dadagridview أو treeview أو listview وكيف يمكن عمل التفرعات
بسم الله الرحمن الرحيم
هل من مستجيب لمعرفة طريقة عمل شكل الشجرة والتفرعات فقط ؟
السلام عليكم
ما أحد رد عليك خالص ...؟
طيب :
مع أني مشغول كثير , لكن أنا رايح اساعدك لسببين :
1 أنا أبن البلد مثلك
2 الصمت الرهيب في المنتدى
هو الموضوع مش سهل .... وما ينفعش احلها لك هنا بالكود لانه في كثير أسئلة لازم تجاوب عليها
بتلاقي عنواني في التوقيع بتاعى .... تعال وبصير خير
مشكور وبارك الله فيك وكثر الله خيرك
الظاهر ان الجميع مشغول
الله المستعان
يعطيك العافية
بما ان كود كيف تعبي الشجرة انظر
كود :
Public Function FindAllChildren(ByRef StartingContainer As System.Windows.Forms.Form)
As List(Of System.Windows.Forms.Control)
Dim Children As New List(Of System.Windows.Forms.Control)
Dim oControl As System.Windows.Forms.Control
For Each oControl In StartingContainer.Controls
Children.Add(oControl)
If oControl.HasChildren Then
Children.AddRange(oControl.FindAllChildren())
End If
Next
Return Children
End Function
هذه الدالة لجلب كل الادوات الفي الفورم لكن في ادوات داخل الفوم لها ادوات اخرى مثل groupbox
لذلك محتاجين دالة ثانية تابع معي
كود :
Public Function FindAllChildren(ByRef StartingContainer As System.Windows.Forms.Control)
As List(Of System.Windows.Forms.Control)
Dim Children As New List(Of System.Windows.Forms.Control)
If StartingContainer.HasChildren = False Then
Return Nothing
Else
Dim oControl As System.Windows.Forms.Control
For Each oControl In StartingContainer.Controls
Children.Add(oControl)
If oControl.HasChildren Then
Children.AddRange(oControl.FindAllChildren())
End If
Next
End If
Return Children
End Function
هذه كل القصة لجلب القائمة او غيره ممكن تستخدم الداله الثانية
والامور طيبة ^_^