版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

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

 

 

 

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

 

只需要设置那个位置的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 教程 目录

 

 

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

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

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