ROSTAM2
جمعه 07 مهر 1402, 20:06 عصر
در این ویدئوی آموزشی کار با MenuStrip و اضافه کردن ToolStripMenuItem به اون و همچنین اضافه کردن آیتم های DropDown به یک ContextMenuStrip و اختصاص به ToolStripMenuItem خاص در حالت اجرا (RunTime) توضیح داده شده...
https://aparat.com/v/wP1Fv (https://aparat.com/v/wP1Fv)
Public Class Form1
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = False Then Exit Sub
Me.DropDownMenuItem.DropDown = Me.DropDown1MenuStrip
Me.CustomizeToolStripMenuItem.DropDown = Me.DropDown1MenuStrip
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = False Then Exit Sub
Me.DropDownMenuItem.DropDown = Me.DropDown2MenuStrip
Me.CustomizeToolStripMenuItem.DropDown = Nothing
End Sub
End Class
https://aparat.com/v/wP1Fv (https://aparat.com/v/wP1Fv)
Public Class Form1
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = False Then Exit Sub
Me.DropDownMenuItem.DropDown = Me.DropDown1MenuStrip
Me.CustomizeToolStripMenuItem.DropDown = Me.DropDown1MenuStrip
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = False Then Exit Sub
Me.DropDownMenuItem.DropDown = Me.DropDown2MenuStrip
Me.CustomizeToolStripMenuItem.DropDown = Nothing
End Sub
End Class