تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تفعيل وإلغاء تفعيل Toolstripmenuitem
#1
أخواني الأعزاء..

لدي شريط قوائم MenuStrip يحتوي على عدة قوائم وكل قائمة تحتوي عنوان رئيسي ويتفرع من كل عنوان عدد من الـ Items ما أريده هو إمكانية تفعيل وإلغاء تفعيل الـ Items فقط بدون العناوين الرئيسية وذلك دفعة واحدة لكل القوائم

مع العلم اني توصلت من خلال البحث إلى الكود التالي لكنه يؤثر على كل قوائم الـ MenuStrip حتى العناوين الرئيسية وهذا ما لا أريده .. إليكم الكود:

كود :
Private Sub SetAllMenuItems(ByRef menuStrip As MenuStrip, ByVal enable As Boolean)
        Dim c As ToolStripItem
        Dim t As ToolStripMenuItem

        For Each c In menuStrip.Items
            c.Enabled = enable

            If c.GetType Is GetType(ToolStripMenuItem) Then
                t = c
                SetAllMenuItems(t.DropDownItems, enable)
            End If
        Next
    End Sub


    Private Sub SetAllMenuItems(ByRef menus As ToolStripItemCollection, ByVal enable As Boolean)
        Dim c As ToolStripItem
        Dim t As ToolStripMenuItem

        For Each c In menus
            c.Enabled = enable

            If c.GetType Is GetType(ToolStripMenuItem) Then
                t = c
                SetAllMenuItems(t.DropDownItems, enable)
            End If
        Next
    End Sub

        SetAllMenuItems(Me.MenuStrip1, True)
الرد }}}}
تم الشكر بواسطة:
#2
[h=3]كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip[/h]
الرد }}}}
تم الشكر بواسطة:
#3
موضوعك مكرر
الرد }}}}
تم الشكر بواسطة:
#4
أخي العزيز M.Sami.AK جزاك الله خيراً .. إلا أن موضوعي لا يتعلق بالـ ToolStrip بل يتعلق بقوائم الـ MenuStrip

وشكرأ جزيلاً لاهتمامك
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

كود :
Private Sub EnabeldMenuStripControls(ByVal b As Boolean)
        Dim MS As ToolStripMenuItem
        Try


            For Each MS In MenuStrip1.Items
                If MS.HasDropDownItems Then
                    For Each m As ToolStripMenuItem In MS.DropDown.Items
                        m.Enabled = b
                    Next
                End If
            Next


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub


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

الرد }}}}
تم الشكر بواسطة:
#6
شكراً جزيلاً أخي العزيز kaslawy .. كثر الله من أمثالك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من طريقة لتوليد كود تفعيل مدى الحياة abas010 5 259 11-06-17, 11:07 PM
آخر رد: Ratchinko
  تفعيل اومر البرنامج حتي لو كان في شريط الويندوز lval6402@gmail.com 0 118 10-06-17, 05:45 AM
آخر رد: lval6402@gmail.com
  مشكلة تفعيل ظهور checkbox في الفورم عامر الجبوري 4 229 21-05-17, 02:22 PM
آخر رد: alma2
  [VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني m r M T D R 1 240 12-03-17, 01:56 PM
آخر رد: الماجيك مسعد
Rainbow [كود] كود التحكم بمنفذ USB ( تفعيل - تعطيل ) من الريجستري محمد مسافر 5 646 24-09-16, 06:24 PM
آخر رد: محمد مسافر
Rainbow [كود] التحكم بمنفذ usb ( تفعيل - تعطيل ) محمد مسافر 2 359 17-09-16, 03:34 PM
آخر رد: جميل علي
Wink تفعيل البرنامج Active Product للحماية من السرقة ims.ataya 4 920 22-04-15, 01:02 AM
آخر رد: ims.ataya
  [VB.NET] كيف يتم تفعيل زر Enter على مستوى الـ Form ؟ prgrammer_01 3 1,156 08-04-15, 09:11 AM
آخر رد: prgrammer_01
  تجميد تفعيل ليبل djelloul 1 569 12-10-14, 12:42 AM
آخر رد: djelloul
  [سؤال] ايقاف تفعيل الفورم الاساسية عنداظهار فورم ثانية أبو الحسن 3 1,074 11-05-14, 01:56 PM
آخر رد: Sniper.ps

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


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