منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [سؤال] طريق التعامل عن طريق الكود مع ContextMenuStrip
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] طريق التعامل عن طريق الكود مع ContextMenuStrip
alims غير متصل
Aly Spisy
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة : 21
الشكر: 279
تم شكره 267 مرات في 103 مشاركات
#1
08-11-21, 02:34 PM
السلام عليكم ورحمة الله وبركاته 
اعملت هذا الكود مع الاداء 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
Anas Mahmoud غير متصل
عضو نشيط
*
المشاركات : 474
المواضيع 33
الإنتساب : Mar 2014
السمعة : 175
الشكر: 364
تم شكره 1395 مرات في 471 مشاركات
#2
08-11-21, 03:00 PM
استخدم مصمم الفيجوال ستوديو مباشرة لاضافة الازرار بطريقة سهلة جدا

   


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

   

البحث
الرد }}}
تم الشكر بواسطة: alims , alims , asemshahen5 , أشرف كريم 2
alims غير متصل
Aly Spisy
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة : 21
الشكر: 279
تم شكره 267 مرات في 103 مشاركات
#3
08-11-21, 03:03 PM
(08-11-21, 03:00 PM)Anas Mahmoud كتب : استخدم مصمم الفيجوال ستوديو مباشرة لاضافة الازرار بطريقة سهلة جدا




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

شكرا ليك اخى العزيز على سرعه الرد و لكن اريد التعامل عن طريق الكود علشان انا عندى اكتر من لغة وجدوال فى قاعدة البيانات و افضل طريق للتعامل مع الاداء هو الكود فقط للاسف علشان كده بدور ازاى اقدر اعمل كده بالكود وفقط
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الموقع البحث
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , أشرف كريم 2
Anas Mahmoud غير متصل
عضو نشيط
*
المشاركات : 474
المواضيع 33
الإنتساب : Mar 2014
السمعة : 175
الشكر: 364
تم شكره 1395 مرات في 471 مشاركات
#4
08-11-21, 03:05 PM
إذا كنت مصر على استخدام الكود لتوليد ازارا القائمة لامشكلة

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

كود :
AddHandler item1.Click, Sub(s, ee) Form2.Show()

البحث
الرد }}}
تم الشكر بواسطة: alims , alims , asemshahen5 , أشرف كريم 2
alims غير متصل
Aly Spisy
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة : 21
الشكر: 279
تم شكره 267 مرات في 103 مشاركات
#5
08-11-21, 03:11 PM
شكر ليك ممكن سؤال تانى
انا استخدام الكود فى 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
Anas Mahmoud غير متصل
عضو نشيط
*
المشاركات : 474
المواضيع 33
الإنتساب : Mar 2014
السمعة : 175
الشكر: 364
تم شكره 1395 مرات في 471 مشاركات
#6
08-11-21, 03:16 PM
كده
حط السطر عادي وسط الكود

كود :
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
alims غير متصل
Aly Spisy
المشاركات : 186
المواضيع 67
الإنتساب : Sep 2013
السمعة : 21
الشكر: 279
تم شكره 267 مرات في 103 مشاركات
#7
08-11-21, 03:46 PM (آخر تعديل لهذه المشاركة : 08-11-21, 03:56 PM {2} بواسطة alims.)
شكرا ليك واسف على الاطالة سؤال اخر وهو انا استخدام الكود التالى و هو شغال بدون مشكلة
كود :
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
Anas Mahmoud غير متصل
عضو نشيط
*
المشاركات : 474
المواضيع 33
الإنتساب : Mar 2014
السمعة : 175
الشكر: 364
تم شكره 1395 مرات في 471 مشاركات
#8
08-11-21, 04:21 PM
اذا كنت ستستخدم 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information ما هو الخطاء في الكود ProgressBar1 Mostafa201255411 1 191 26-11-25, 08:19 PM
آخر رد: asmarsou
  فائدة بخصوص التعامل مع علامات التنصيص مع {سؤال} justforit 4 271 02-11-25, 11:19 PM
آخر رد: justforit
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 209 08-10-25, 02:20 PM
آخر رد: salamandal
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 2 1,051 28-08-25, 09:13 AM
آخر رد: محمد مسافر
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 0 841 27-08-25, 04:05 PM
آخر رد: محمد مسافر
  ما هو الخطأ فى هذا الكود خالد كامل1 10 1,138 28-05-25, 09:16 PM
آخر رد: خالد كامل1
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 676 03-04-25, 02:44 PM
آخر رد: princelovelorn
  مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت سيد أحمد 5 820 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 620 05-02-25, 01:51 AM
آخر رد: new_programer
  ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود new_programer 4 603 30-01-25, 08:26 AM
آخر رد: new_programer

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


يقوم بقرائة الموضوع: