17-10-12, 05:04 PM
كاتب الموضوع : AhmedEssawy
اضافة قائمة بالكود :كود :
Dim newMenu As New ContextMenuStrip()
Me.ContextMenuStrip = newMenu
Dim firstItem As New ToolStripMenuItem()
Dim secondItem As New ToolStripMenuItem()
firstItem.Text = "&First Item"
secondItem.Text = "&Second Item"
newMenu.Items.Add(firstItem)
newMenu.Items.Add(secondItem)كود :
ToolStripMenuItem1.ShortcutKeys = F6كود :
ToolStripMenuItem1.Checked = Trueكود :
MenuStrip1.Items.Remove(ToolStripMenuItem1)