vb.net 教程 3-7 窗体编程 菜单和工具栏 4 ToolStripContainer 2
上一节例子中的两个工具条可以随意摆放,当然还可以摆放到左边右边或者下面: 显然这种设计不是我们需要的,那么怎么防止工具条被拖放在四周某个位置呢? 只需要设置那个位置的ToolStripPanelVisible为False即可。这个属性如果按照字母排序是在ToolStripPanel属性的下面 例如BottomToolStripPanelVisible是在BottomToolStripPanel下面: 请将BottomToolStripPanelVisible、LeftToolStripPanelVisible、RightToolStripPanelVisible设置为False后再运行测试是否能将工具条拖放到左、右、下面。 下面的代码将演示如何在底部添加一个工具条: Private Sub Form6_Load(sender As Object,e As EventArgs) Handles Me.Load ToolStripContainer1.BottomToolStripPanelVisible = True Dim newToolStrip As New ToolStrip() Dim tsl As New ToolStripLabel() tsl.Text = "这是工具条3" tsl.DisplayStyle = ToolStripItemDisplayStyle.Text newToolStrip.Items.Add(tsl) Dim tsb As New ToolStripButton() tsb.Image = Image.FromFile("d:BoldB.png") newToolStrip.Items.Add(tsb) ToolStripContainer1.BottomToolStripPanel.Controls.Add(newToolStrip) AddHandler tsb.Click,AddressOf newButton_Click End Sub Private Sub newButton_Click(sender As Object,e As EventArgs) MessageBox.Show("按下了新的按钮") End Sub
由于设置了BottomToolStripPanelVisible=True,所以工具条可以任意放置于窗口顶部或底部: 由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看vb.net 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |