تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريق التعامل عن طريق الكود مع ContextMenuStrip
#1
السلام عليكم ورحمة الله وبركاته 
اعملت هذا الكود مع الاداء ContextMenuStrip و هو يعمل بدون اى مشكلة و لكن ارويد عند الضغط مثلا على الغرفة العامة يتم اظهر Form2 و اذا ضغط على ااعدادات يتم اForm3 وهكذا للكل item لى موجوده كيفية عمل هذا ؟؟؟!!



كود :
 Dim item, item1, item2, item3, item4, item5, item6 As New ToolStripMenuItem


  Sub menufor()
                   item.Text = ""
            item1.Text = ""
            item2.Text = ""
            item3.Text = ""
            item4.Text = ""
            item5.Text = ""
            item6.Text = ""
            item.Text = "الغرفة العامة"
            item1.Text = "البحث عن صديق"
            item2.Text = "الاعدادات"
            item3.Text = "المساعدة"
            item6.Text = "تصغير البرنامج"
            item4.Text = "الخروج من الحساب"
            item5.Text = "اغلاقة البرنامج"
            item.Image = My.Resources.public_room
            item.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(item)
            item1.Image = My.Resources.Find_a_friend
            item1.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(item1)
            Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
            Form1.ContextMenuStrip1.Items.Add(item2)
            item2.Image = My.Resources.settings
            item2.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
            Form1.ContextMenuStrip1.Items.Add(item3)
            item3.Image = My.Resources.Help
            item3.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
            Form1.ContextMenuStrip1.Items.Add(item6)
            item6.Image = My.Resources.Minimize
            item6.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
            Form1.ContextMenuStrip1.Items.Add(item4)
            item4.Image = My.Resources.Sign_out
            item4.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
            item5.Image = My.Resources.close_the_program
            item5.ImageScaling = ToolStripItemImageScaling.SizeToFit
            Form1.ContextMenuStrip1.Items.Add(item5)
            Form1.ContextMenuStrip = Form1.ContextMenuStrip1
            Form1.ContextMenuStrip1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: asemshahen5 , أشرف كريم 2
#2
استخدم مصمم الفيجوال ستوديو مباشرة لاضافة الازرار بطريقة سهلة جدا

   


اضغط ضغطا مزدوجا على الزر المطلوب ليفتح لك حدث الضغط عليه

   
الرد
تم الشكر بواسطة: alims , alims , asemshahen5 , أشرف كريم 2
#3
(08-11-21, 03:00 PM)Anas Mahmoud كتب : استخدم مصمم الفيجوال ستوديو مباشرة لاضافة الازرار بطريقة سهلة جدا




اضغط ضغطا مزدوجا على الزر المطلوب ليفتح لك حدث الضغط عليه

شكرا ليك اخى العزيز على سرعه الرد و لكن اريد التعامل عن طريق الكود علشان انا عندى اكتر من لغة وجدوال فى قاعدة البيانات و افضل طريق للتعامل مع الاداء هو الكود فقط للاسف علشان كده بدور ازاى اقدر اعمل كده بالكود وفقط
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , أشرف كريم 2
#4
إذا كنت مصر على استخدام الكود لتوليد ازارا القائمة لامشكلة

اضف السطر التالي لكل زر بحسب ماتريد

كود :
AddHandler item1.Click, Sub(s, ee) Form2.Show()
الرد
تم الشكر بواسطة: alims , alims , asemshahen5 , أشرف كريم 2
#5
شكر ليك ممكن سؤال تانى
انا استخدام الكود فى Module menu
كيفية استخدام هذا الكود فى الفروم العادية
AddHandler item1.Click, Sub(s, ee) Form2.Show()
كود :
Module menu
   Dim item, item1, item2, item3, item4, item5, item6 As New ToolStripMenuItem
   Sub menufor()
       If My.Settings.LangName.ToString = "العربية".ToString Then
           item.Text = ""
           item1.Text = ""
           item2.Text = ""
           item3.Text = ""
           item4.Text = ""
           item5.Text = ""
           item6.Text = ""
           item.Name = "11"
           item.Text = "الغرفة العامة"
           item1.Text = "البحث عن صديق"
           item2.Text = "الاعدادات"
           item3.Text = "المساعدة"
           item6.Text = "تصغير البرنامج"
           item4.Text = "الخروج من الحساب"
           item5.Text = "اغلاقة البرنامج"
           item.Image = My.Resources.public_room
           item.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(item)
           item1.Image = My.Resources.Find_a_friend
           item1.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(item1)
           Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
           Form1.ContextMenuStrip1.Items.Add(item2)
           item2.Image = My.Resources.settings
           item2.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
           Form1.ContextMenuStrip1.Items.Add(item3)
           item3.Image = My.Resources.Help
           item3.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
           Form1.ContextMenuStrip1.Items.Add(item6)
           item6.Image = My.Resources.Minimize
           item6.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
           Form1.ContextMenuStrip1.Items.Add(item4)
           item4.Image = My.Resources.Sign_out
           item4.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
           item5.Image = My.Resources.close_the_program
           item5.ImageScaling = ToolStripItemImageScaling.SizeToFit
           Form1.ContextMenuStrip1.Items.Add(item5)
           Form1.ContextMenuStrip = Form1.ContextMenuStrip1
           Form1.ContextMenuStrip1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
 End Sub
End Module
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: أشرف كريم 2 , asemshahen5
#6
كده
حط السطر عادي وسط الكود

كود :
Module menu
  Dim item, item1, item2, item3, item4, item5, item6 As New ToolStripMenuItem
  Sub menufor()
      If My.Settings.LangName.ToString = "العربية".ToString Then
          item.Text = ""
          item1.Text = ""
          item2.Text = ""
          item3.Text = ""
          item4.Text = ""
          item5.Text = ""
          item6.Text = ""
          item.Name = "11"
          item.Text = "الغرفة العامة"
          item1.Text = "البحث عن صديق"
          item2.Text = "الاعدادات"
          item3.Text = "المساعدة"
          item6.Text = "تصغير البرنامج"
          item4.Text = "الخروج من الحساب"
          item5.Text = "اغلاقة البرنامج"

    AddHandler item.Click, Sub(s, ee) Form2.Show()
    AddHandler item1.Click, Sub(s, ee) Form3.Show()
    AddHandler item2.Click, Sub(s, ee) Form4.Show()
    AddHandler item3.Click, Sub(s, ee) Form5.Show()
    AddHandler item4.Click, Sub(s, ee) Form6.Show()
    AddHandler item5.Click, Sub(s, ee) Form7.Show()
    AddHandler item6.Click, Sub(s, ee) Form8.Show()

          item.Image = My.Resources.public_room
          item.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(item)
          item1.Image = My.Resources.Find_a_friend
          item1.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(item1)
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item2)
          item2.Image = My.Resources.settings
          item2.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item3)
          item3.Image = My.Resources.Help
          item3.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item6)
          item6.Image = My.Resources.Minimize
          item6.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item4)
          item4.Image = My.Resources.Sign_out
          item4.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          item5.Image = My.Resources.close_the_program
          item5.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(item5)
          Form1.ContextMenuStrip = Form1.ContextMenuStrip1
          Form1.ContextMenuStrip1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
End Sub
End Module
الرد
تم الشكر بواسطة: alims , asemshahen5 , asemshahen5 , أشرف كريم 2
#7
شكرا ليك واسف على الاطالة سؤال اخر وهو انا استخدام الكود التالى و هو شغال بدون مشكلة
كود :
AddHandler item6.Click, Sub(s, ee) item66()
وقومت بعمل هذا الكود اريد فى حالة ان الفروم مخيفة تظهر و العكس صحيح  لكن هناك خطاء ممكن مساعدتى
كود :
Sub item66()
       If Form1.Show Then


           Form1.Hide()
       Else
           Form1.Show()

       End If

   End Sub

قومت بعمل هذا الكود و هو شغل و لكن هل يوجد افضل من هذا ام لا
كود :
 Sub item66()
       If Form1.ShowInTaskbar Then
           Form1.Hide()
           Exit Sub
       Else
           Form1.Show()
       End If
   End Sub
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: أشرف كريم 2 , asemshahen5 , asemshahen5
#8
اذا كنت ستستخدم sub خارجي يجب اضافة AddressOf

كود :
      AddHandler item1.Click, AddressOf item66

كود :
   Sub item66()
       If Form2.Visible Then


           Form2.Hide()
       Else
           Form2.Show()

       End If

   End Sub
الرد
تم الشكر بواسطة: alims , alims , أشرف كريم 2 , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن شرح او رابط افضل طرق عرض البيانات في الداتاجريد و التعامل معها غدير الصليحي 2 430 19-01-22, 01:46 AM
آخر رد: رضوان الجماعي
Brick [VB.NET] اختصار الكود EMADSS 1 126 12-01-22, 12:52 AM
آخر رد: أبو خالد الشكري
  رغم تنشيط Devexpress لكن مع تشغيل الكود يعطى هذه الرسالة shrarf_eg 2 174 28-12-21, 03:21 AM
آخر رد: DR.YASER
  ما هو الخطأ في هذا الكود haithammoftah 0 136 19-12-21, 09:29 PM
آخر رد: haithammoftah
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 754 17-12-21, 04:41 AM
آخر رد: new_programer
  [سؤال] كود لتغيير خلفية الفروم عن طريق زر وليس من الخصائص عادل جودة 1 154 15-12-21, 02:00 AM
آخر رد: ابو انس
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 352 30-11-21, 07:37 AM
آخر رد: E100
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 808 30-11-21, 07:26 AM
آخر رد: E100
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 218 29-11-21, 06:53 PM
آخر رد: جيولوجي مبتدئ
  اريد كود نفس هذا الكود للاكسس غدير الصليحي 4 432 28-11-21, 11:29 PM
آخر رد: غدير الصليحي

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


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