vb.net 教程 3-7 窗体编程菜单和工具栏 4 ToolStrip 2

当前位置:

来看一个列子：

在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

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 教程目录

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

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

栏目列表

vb.net 教程 3-7 窗体编程 菜单和工具栏 4 ToolStrip 2