vb.net SplitContainer控件增加自动拆分的小箭头

最新推荐文章于 2023-01-31 16:38:51 发布

xjnzhidao

最新推荐文章于 2023-01-31 16:38:51 发布

阅读量2.6k

点赞数

分类专栏： vb-net 文章标签：控件 vb.net

本文链接：https://blog.csdn.net/xjnzhidao/article/details/47340633

版权

本文介绍了如何在VB.NET的SplitContainer控件上添加自动展开和折叠功能的小箭头。通过创建SplitContainerExt类，实现了在拆分条上显示两个三角形按钮，单击这些按钮可以控制上下两个Panel面板的展开和折叠。此外，当鼠标靠近箭头时，鼠标形状会变为箭头形状，提供更好的交互体验。关键属性包括SplitContainerExt的Panel1MinSize和Panel2MinSize，用于设置面板与拆分条的最小距离。

摘要由CSDN通过智能技术生成

SplitContainer控件如何在拆分条上实现两个三角按钮，单击这个按钮实现上下两个panel面板自动展开或折叠功能？如图所示：
这里写图片描述
首先定义一个SplitContainerExt类，代码如下：

Public Class SplitContainerExt
    Inherits SplitContainer

    Public Sub New()
        initArrows()
        MyBase.SplitterWidth = 10
    End Sub

    'splitter width must be 10 or higher to fit current icons
    Public Overloads Property SplitterWidth() As Integer
        Get
            Return MyBase.SplitterWidth
        End Get
        Set(ByVal value As Integer)
            If (value <> MyBase.SplitterWidth) Then
                If (value < 10) Then
                    Throw New ArgumentOutOfRangeException("SplitterWidth", "Invalid lower bound, must be 10 or higher.")
                End If
                MyBase.SplitterWidth = value