Question

我知道如何在工具中增加一个项目(盒子),但我想增加一个以表格形式存在的检查箱。 I ve Trial using the Code

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

但是,这使得现有的检查箱能够进入屏幕顶部,当工具上点击时。因此,我想在菜单上添加检查箱,而不去上左上角,任何想法?

Answer 1

“蓝拉贾”的对策是答案,你可以采取几种方式,这里有两个方面:

首先:

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

我很显然赞成第一点。

友情链接