Toolstripmenu добавить элемент - PullRequest
0 голосов
/ 08 января 2011

Я знаю, как динамически добавлять элемент (флажок) в панель инструментов, но я хочу добавить флажок, который существует в форме.Я попытался использовать код

Dim chkboxhost As ToolStripControlHost
chkboxhost = New ToolStripControlHost(CheckBox1)
toolStrip1.Items.Add(chkboxhost)

, но это делает уже существующий флажок, перейдите в верхний левый угол экрана и, когда щелкнет панель инструментов, появится.Поэтому я хочу добавить флажок в меню, не заходя в верхний левый угол, есть идеи?

1 Ответ

0 голосов
/ 02 августа 2011

Ответ BlueRaja - это ответ, вы можете сделать это несколькими способами, вот два:

Во-первых:

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    ToolStripButton2.Checked = ToolStripButton1.Checked
    'Do whatever you want with your buttons
End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
    ToolStripButton1.Checked = ToolStripButton2.Checked
    'Do whatever you want with your buttons
End Sub

Другой подход:

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    'Do whatever you want with your buttons
End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
    'Do whatever you want with your buttons
End Sub

Private Sub ToolStripButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.CheckedChanged
    ToolStripButton2.Checked = ToolStripButton1.Checked
End Sub  

Private Sub ToolStripButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.CheckedChanged
    ToolStripButton1.Checked = ToolStripButton2.Checked
End Sub

Я предпочитаю первый, очевидно.

...