تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة تحذيرية عند إضافة الفاصل Separator
#1
أخواني الأفاضل..
عند قيامي بإضافة Separators إلى قوائم الشريط MenuStrip ظهرت لي فجأة الرسالة التحذيرية التالية:

[ATTACH=CONFIG]1349[/ATTACH]


مع العلم أن البرنامج كان يعمل بشكل طبيعي على الرغم من وجود الفواصل في القوائم
فماذا حدث وما هو الخطأ الذي ربما ارتكبته بدون علم؟!!!

أرجو الإفادة جزاكم الله خيراً.


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
[COLOR="#008000"]السلام عليكم ورحمة الله وبركاته

الصراحة اخي لم تواجهي من قبل هذه المشكلة
اذا تحب ارفع برنامجك او جزء منه لنرى المشكلة
وان شاء الله خير
بأذن الله
ربي يحفظك[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#3
شكراً جزيلاً أخي العزيز "مبرمج بلا حدود"
بعد عدة محاولات اكتشفت بفضل الله سبب الرسالة التحذيرية حيث أنني قد وضعت في كود إلغاء تفعيل قوائم الشريط MenuStrip الرسالة التالية:

كود :
Try
            '
                '
                    '
                        '
                    '
                '
            '
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, MainFm.Text)
        End Try
الرد }}}}
تم الشكر بواسطة:
#4
[COLOR="#008000"]
abuzzouz كتب :شكراً جزيلاً أخي العزيز "مبرمج بلا حدود"
بعد عدة محاولات اكتشفت بفضل الله سبب الرسالة التحذيرية حيث أنني قد وضعت في كود إلغاء تفعيل قوائم الشريط MenuStrip الرسالة التالية:

كود :
Try
            '
                '
                    '
                        '
                    '
                '
            '
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, MainFm.Text)
        End Try

الحمدلله
بالتوفيق ان شاء الله
ربي ىيحفظك ويبارك فيك
ربي يجزيك خير[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#5
أخواني..

لا زالت المشكلة موجودة حيث أن الأمر يتعلق بكود إلغاء تفعيل قوائم الشريط MenuStrip دفعة واحدة تلقائياً عند تنفيذ أمر معين

كود :
Public Sub EnabeldMenuStripControls(ByVal b As Boolean)
        Dim MS As ToolStripMenuItem
        Try
            For Each MS In MainFm.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, MainFm.Text)
        End Try
    End Sub

إلا أن هذا الكود لا يتعرف على الفواصل Separators كـ Items موجودة في تلك القوائم، بمعنى أنه بدون هذه الفواصل يعمل الكود بشكل سليم ويلغي تفعيل كل القوائم في الشريط المذكور
فهل من إضافة على هذا الكود لاستثناء الفواصل من عملية إلغاء التفعيل تلك

مع جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم
أخي الكريم الخطأ الذي وقعت به هو أنك حددت نوع المتغير كمتغير من نوع ToolStripMenuItem
الحل:
امسح التحديد وسيعمل الكود بشكل جيد

وهذا هو الكود بعد الحذف

كود :
Public Sub EnabeldMenuStripControls(ByVal b As Boolean)
       Try
            For Each MS1 In MainFm.MenuStrip1.Items
                If MS1.HasDropDownItems Then
                    For Each m In MS.DropDown.Items
                        m.Enabled = b
                    Next
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, MainFm.Text)
        End Try
    End Sub
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

الــكــود بعـــد التعــديــــل :
كود :
Public Sub EnabeldMenuStripControls(ByVal b As Boolean)
        Dim MS As ToolStripMenuItem
        Try
            For Each MS In Me.MenuStrip1.Items
                If MS.HasDropDownItems Then
                    For Each m In MS.DropDownItems
                        If TypeOf m Is ToolStripMenuItem Then
                            m.Enabled = b
                        End If
                    Next
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub


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

الرد }}}}
تم الشكر بواسطة:
#8
شكراً أخواني الأفاضل Kslawy , sooriaty03 ..الله يديمكن
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 49 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع أبووسم 4 128 10-11-16, 10:32 PM
آخر رد: أبووسم
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 266 05-11-16, 12:00 PM
آخر رد: Adrees
  [VB.NET] رقم رسالة الخطا العواد الصغير 3 101 28-10-16, 11:39 PM
آخر رد: العواد الصغير
  تكست بوكس اذا بها جمل اظهر رسالة هاوي1995 8 124 24-10-16, 04:46 PM
آخر رد: هاوي1995
  كيفية إضافة فورم داخل بانل في الفورم الرئيسي bidaya 4 124 21-10-16, 04:40 AM
آخر رد: silverlight
  [VB.NET] ملف exe لا يعمل عند تشغيله ويعطي رسالة الخطأ المرفقة نسيم 4 117 13-10-16, 09:57 PM
آخر رد: ممدوح
  [VB.NET] الفزعة ياجماعة الخير ... إضافة Parameter لل sqlcommadn superawdi 6 194 22-09-16, 12:01 AM
آخر رد: ابراهيم النعيمي
  لا يمكن ارسال رسالة باللغة العربية samer_hameed 5 148 15-09-16, 03:50 PM
آخر رد: samer_hameed
  رسالة خطأ في حدث ComboBox1_SelectedIndexChanged نسيم 3 161 11-07-16, 08:01 PM
آخر رد: الوادي

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


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