vb.net 教程 3-7 窗体编程 菜单和工具栏 4 ToolStrip 2
发布时间:2020-12-16 23:52:55 所属栏目:大数据 来源:网络整理
导读:来看一个列子: 在ToolStrip上添加按钮、选择框、进度条 选择框的值有100、200、500。 当按钮按下时,进度条依据设置的值不断增加。 Private Sub ToolStripButton1_Click(sender As Object,e As EventArgs) Handles ToolStripButton1.Click Dim i As Integer
来看一个列子: 在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 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |