巧用三个SplitContainer做框架式页面(含顶部左侧显示隐藏按钮)实例

巧用三个SplitContainer做框架式页面(含顶部左侧显示隐藏按钮)实例

        '//最大化窗口,设置窗体不显示边框//----------------------------------------------------------------------
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = False
        '//将SplitContainer设置不能调整大小----------------------------------------------------------------------
        Me.SplitContainer1.IsSplitterFixed = True
        Me.SplitContainer2.IsSplitterFixed = True
        Me.SplitContainer3.IsSplitterFixed = True
        '//设置SplitContainer1的大小-----------------------------------------------------------------------------
        Me.SplitContainer1.Parent.Width = Me.Width    'S1 宽度
        Me.SplitContainer1.Parent.Height = Me.Height  'S1 高度
        '//------------------------------------------------------------------------------------------------------
        Me.SplitContainer1.Panel1MinSize = 200      '上侧菜单高度
        Me.SplitContainer2.Panel1MinSize = 200      '左侧菜单宽度
        Me.SplitContainer3.Panel1MinSize = 13       '中间显示、隐藏按钮panel1宽度 
        Me.SplitContainer3.SplitterDistance = 13
        '//设置中间显示、隐藏左侧按钮的坐标及样式----------------------------------------------------------------
        Button4.Location = New Point(0, Int(Me.SplitContainer2.Panel2.Height / 2))
        Button4.FlatStyle = FlatStyle.Flat
        '需将SplitContainer1、SplitContainer2、SplitContainer3的 FixedPanel 值必备设置为:Panel1-----------------
        Label1.Text = "顶部菜单SplitContainer1.panel1:宽" & Label1.Parent.Parent.Width & " * 高:" & SplitContainer1.Panel1.Height
        Label2.Text = "左侧菜单SplitContainer2.panel1:宽" & SplitContainer2.Panel1.Width & " * 高:" & SplitContainer2.Panel1.Height
        Label3.Text = "显示、隐藏按钮SplitContainer3.panel1:宽" & SplitContainer3.Panel1.Width & " * 高:" & SplitContainer3.Panel1.Height
        Label4.Text = "右侧内容展示SplitContainer3.panel2:宽" & SplitContainer3.Panel2.Width & " * 高:" & SplitContainer3.Panel2.Height
        Label5.Text = "注意事项:" & vbCrLf &
       "1、需将SplitContainer1、SplitContainer2、SplitContainer3 的 FixedPanel 值必须设置为:Panel1 ;" & vbCrLf &
       "2、本程序为全屏,如果有其他需求,请修改代码 ;" & vbCrLf &
       "3、其他代码及设置请参照本程序对应代码对比;"



猜你喜欢

转载自blog.csdn.net/qq_20382625/article/details/80055038