تقييم الموضوع :
  • 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] ارسال رسالة واتساب h2551996 0 187 07-01-24, 12:17 PM
آخر رد: h2551996
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
Photo [سؤال] ظور رسالة خطأ عند تحميل قاعدة بيانات تحتوي على صور أبو خالد الشكري 4 396 11-09-23, 09:51 PM
آخر رد: أبو خالد الشكري
Exclamation [SQL] مشكلة إضافة قاعدة بيانات SQL أبو خالد الشكري 6 590 22-08-23, 08:25 PM
آخر رد: أبو خالد الشكري
  رسالة خطأ ،، احتاج مساعدتكم assuhimi 2 473 21-05-23, 02:47 PM
آخر رد: assuhimi
  [سؤال] رسالة تظهر لى كلما قمت بتشغيل مشروع dr.programming 3 422 19-05-23, 06:21 PM
آخر رد: dr.programming
Exclamation [VB.NET] رسالة خطـأ لم أفهم معناها ، وحل مشكلتها ! أبو خالد الشكري 2 432 18-05-23, 12:05 AM
آخر رد: أبو خالد الشكري
  [VB.NET] رسالة خطأ IsMdiContainer ahmed_king2023 5 584 01-05-23, 12:45 PM
آخر رد: Dedda
Exclamation [VB.NET] رسالة خطأ في الداتا جريد فيو أبو خالد الشكري 8 752 16-04-23, 11:29 AM
آخر رد: أبو خالد الشكري

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


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