تقييم الموضوع :
  • 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 ..الله يديمكن
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ظهور رسالة خطأ: نوع البيانات غير متطابق في تعبير المعايير. Waleed Al-Khamesy 13 155 أمس, 10:22 PM
آخر رد: wale90
  رسالة خطا حول system.drawing سعود 3 116 09-08-17, 07:28 PM
آخر رد: سعود
  [VB.NET] ظهور رسالة خطأ لم افهمها مبرمج مبتدا 5 160 29-07-17, 02:55 AM
آخر رد: مبرمج مبتدا
  [سؤال] شباب ليه رسالة الخطا دى بتظهر احمد عبد الحكيم 1 87 24-07-17, 09:05 PM
آخر رد: silverlight
Heart [VB.NET] مشكل عند إرسال رسالة إلى الإميل EMAIL sniperjawadino 1 137 15-06-17, 11:31 PM
آخر رد: silverlight
  رسالة خطأ salah mansour 1 116 02-06-17, 04:45 PM
آخر رد: boudyonline
  [سؤال] كيف يتم إضافة برنامجي في خيارات الملفات Easy4ever 2 190 27-05-17, 02:12 AM
آخر رد: Easy4ever
  ظهور رسالة خطأ في هذا الكود ahmedfa71 3 178 20-04-17, 11:37 PM
آخر رد: IBRA939
  رسالة عند فتح فورم يحتوي على تقرير تناسيم 0 122 20-04-17, 11:29 AM
آخر رد: تناسيم
  [VB.NET] الانتقال من windows application إلى web application (((تم إضافة درس))) اليوم مبتدئة وغداً محترفة 6 543 14-03-17, 02:36 PM
آخر رد: اليوم مبتدئة وغداً محترفة

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


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