تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

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


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