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

前端之家收集整理的这篇文章主要介绍了vb.net 教程 3-7 窗体编程 菜单和工具栏 4 ToolStripContainer 2前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

上一节例子中的两个工具条可以随意摆放,当然还可以摆放到左边右边或者下面:

显然这种设计不是我们需要的,那么怎么防止工具条被拖放在四周某个位置呢?

只需要设置那个位置的ToolStripPanelVisible为False即可。这个属性如果按照字母排序是在ToolStripPanel属性的下面

例如BottomToolStripPanelVisible是在BottomToolStripPanel下面:

请将BottomToolStripPanelVisible、LeftToolStripPanelVisible、RightToolStripPanelVisible设置为False后再运行测试是否能将工具条拖放到左、右、下面。


下面的代码将演示如何在底部添加一个工具条:

  1. Private Sub Form6_Load(sender As Object,e As EventArgs) Handles Me.Load
  2. ToolStripContainer1.BottomToolStripPanelVisible = True
  3.  
  4. Dim newToolStrip As New ToolStrip()
  5. Dim tsl As New ToolStripLabel()
  6. tsl.Text = "这是工具条3"
  7. tsl.DisplayStyle = ToolStripItemDisplayStyle.Text
  8. newToolStrip.Items.Add(tsl)
  9.  
  10. Dim tsb As New ToolStripButton()
  11. tsb.Image = Image.FromFile("d:\BoldB.png")
  12. newToolStrip.Items.Add(tsb)
  13.  
  14. ToolStripContainer1.BottomToolStripPanel.Controls.Add(newToolStrip)
  15.  
  16. AddHandler tsb.Click,AddressOf newButton_Click
  17. End Sub
  1. Private Sub newButton_Click(sender As Object,e As EventArgs)
  2. MessageBox.Show("按下了新的按钮")
  3. End Sub


运行时如下图:

由于设置了BottomToolStripPanelVisible=True,所以工具条可以任意放置于窗口顶部或底部



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

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

猜你在找的VB相关文章