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

相关文章
相关标签/搜索
每日一句
    每一个你不满意的现在,都有一个你没有努力的曾经。