08-11-21, 02:34 PM
السلام عليكم ورحمة الله وبركاته
اعملت هذا الكود مع الاداء ContextMenuStrip و هو يعمل بدون اى مشكلة و لكن ارويد عند الضغط مثلا على الغرفة العامة يتم اظهر Form2 و اذا ضغط على ااعدادات يتم اForm3 وهكذا للكل item لى موجوده كيفية عمل هذا ؟؟؟!!
اعملت هذا الكود مع الاداء 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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ