版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

来看一个列子：

 

在ToolStrip上添加按钮、选择框、进度条

 

 

 

选择框的值有100、200、500。

 

当按钮按下时，进度条依据设置的值不断增加。

 

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click

        Dim i As Integer = Integer.Parse(ToolStripComboBox1.Text)

        ToolStripProgressBar1.Maximum = i

        For j As Integer = 0 To i

            ToolStripProgressBar1.Value = j

        Next

    End Sub

 

 

获得工具栏中工具数量：

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        MessageBox.Show(ToolStrip1.Items.Count)

    End Sub

 

 

移除工具栏中最后一个工具：

 

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim itemCount As Integer = ToolStrip1.Items.Count

        ToolStrip1.Items.RemoveAt(itemCount - 1)

    End Sub

 

 

下例代码将增加一个带事件的按钮：

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim tsb As New ToolStripButton()

        tsb.Text = "增加"

        tsb.DisplayStyle = ToolStripItemDisplayStyle.Image

        tsb.Image = Image.FromFile("D:\BoldB.png")

 

        ToolStrip1.Items.Add(tsb)

        AddHandler tsb.Click, AddressOf tsb_Click

    End Sub

    Private Sub tsb_Click(sender As Object, e As EventArgs)

        MessageBox.Show("按下了新增加的按钮")

    End Sub

 

运行效果如下：

 

 

 

 

 

需要注意的是，如果移除工具后，又需要调用该工具，那么将会引发错误，例如我将ToolStripComboBox1移除后，又按下了ToolStripButton1：

 

 

 

 

 

 

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看vb.net 教程 目录

 

 

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/78927239