تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip
#1
[COLOR="#0000CD"]السلام عليكم و رحمة الله

أخواني و أخواتي الكرام في المنتدى، لدي مشكلة في كيفية تفعيل و تعطيل (Enable = True/False) القوائم في أداة ToolStrip مرة واحد، حيث أنني لا أريد أن أكتبها قائمة تلو الأخرى للتفعيل و التعطيل.
و من محاولاتي كان هذا الكود التالي و لكنه لم ينجح
PHP كود :
Private Sub SetToolStrip(ByRef toolstrip As ToolStripByVal enable As Boolean)
        
Dim c As ToolStripItem
        Dim t 
As ToolStripSplitButton

        
For Each c In toolstrip.Items
            c
.Enabled enable
            
If c.GetType Is GetType(ToolStripSplitButtonThen
                t 
c
                SetToolStrip
(t.DropDownItemsenable)
            
End If
        
Next
    End Sub

    
Private Sub SetToolStrip(ByRef stripitem As ToolStripItemCollectionByVal enable As Boolean)
        
Dim c As ToolStripItem
        Dim t 
As ToolStripSplitButton

        
For Each c In stripitem
            c
.Enabled enable
            
If c.GetType Is GetType(ToolStripSplitButtonThen
                t 
c
                SetToolStrip
(t.DropDownItemsenable)
            
End If
        
Next
    End Sub

Private Sub Main_Form_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
SetToolStrip
(ToolStrip1True)
End Sub 

أتمنى أن ألقى الإجابة منكم و أنا ممنون لكم في الإجابة أو عدم الإجابة.
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

عملت لك كود علي السريع :
كود :
Private Sub EnabeldToolStripControls(ByVal b As Boolean)


        For Each button In ToolStrip1.Items.OfType(Of ToolStripButton)()
            button.Enabled = b
        Next


        For Each DropDown In ToolStrip1.Items.OfType(Of ToolStripDropDownButton)()
            ' DropDown.Enabled = b
            If DropDown.HasDropDownItems Then
                For Each btn In DropDown.DropDown.Items.OfType(Of ToolStripDropDownItem)()
                    btn.Enabled = b
                Next
            End If
        Next


    End Sub


إذا كان الزر من نوع DropDown وأردت تفعيل وتعطيل أزراره الداخلية فقط يمكن استخدام الكود السابق . أما إذا أردت تفعيله وتعطيله هو نفسه فاستخدم الكود أدناه :
كود :
Private Sub EnabeldToolStripControls(ByVal b As Boolean)


        For Each button In ToolStrip1.Items.OfType(Of ToolStripButton)()
            button.Enabled = b
        Next


        For Each DropDown In ToolStrip1.Items.OfType(Of ToolStripDropDownButton)()
            DropDown.Enabled = b
            'If DropDown.HasDropDownItems Then
            '    For Each btn In DropDown.DropDown.Items.OfType(Of ToolStripDropDownItem)()
            '        btn.Enabled = b
            '    Next
            'End If
        Next


    End Sub
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
جاري التجربة و ما قصرت يا كبير

تسلم يا رب و كل عام و إنت بخير يا صديقي و ينعاد عليكم بكل خير
الرد }}}}
تم الشكر بواسطة:
#4
كل عام و إنت بخير
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
للأسف أخ كسلاوي لم ينجح الأمر و مازلت أحاول فيها و في نفس الوقت هذا مثال للموضوع نفسه في المرفقات


الملفات المرفقة
.rar   ToolStripItem.rar (الحجم : 72.73 ك ب / التحميلات : 39)
الرد }}}}
تم الشكر بواسطة:
#6
كود :
If CheckBox1.Checked = True Then
            ToolStrip1.Enabled = False
        Else
            ToolStrip1.Enabled = True
        End If
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7
أخ سعود الموضوع هنا مختلف ممكن تشوف المثال و تعطيني رأيك
الرد }}}}
تم الشكر بواسطة:
#8
اطلعت على المثال ولم افهم شي معلش Smile
ان كان القصد تعطيل الاداة بالكامل فلا اريح من الكود اللي انا كتبته اما لو المقصود تعطيل عمود معين وكافة ابناءه فلم اتطرق لهذا من قبل وان شاء الله تجد الحل
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#9
مشكور على مجهودك أخ سعود و ما قصرت والله، المقصود في التعطيل هو تعطيل أو تفعيل جميع القوائم من أبناء و أحفاد لأي زر من الأداة
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        DisableAllButtons(ToolStrip1, True)


    End Sub


    Public Sub DisableAllButtons(ByVal ts As ToolStrip, ByVal b As Boolean)
        Dim i As Integer = 0
        For i = 0 To ts.Items.Count - 1
            Child(ts.Items(i), b)
        Next
    End Sub


    Private Sub Child(ByVal DDI As ToolStripDropDownItem, ByVal b As Boolean)
        For Each itm As ToolStripDropDownItem In DDI.DropDownItems
            itm.Enabled = b
            If itm.HasDropDownItems Then
                For Each it As ToolStripDropDownItem In itm.DropDownItems
                    Child(it, b)
                Next
                For Each it As ToolStripMenuItem In itm.DropDownItems
                    it.Enabled = b
                Next
            End If
        Next
    End Sub


****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information طلب كود في اداة ToolStrip soper 5 169 23-07-16, 11:29 PM
آخر رد: LoveVb
  [سؤال] Toolstrip raoe-041 2 306 13-07-14, 08:09 AM
آخر رد: raoe-041
  منهم لله ( MenuStrip و ToolStrip ) ali.alfoly 3 606 29-06-13, 12:24 AM
آخر رد: ali.alfoly

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


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