巧用三个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、其他代码及设置请参照本程序对应代码对比;"
需要源代码的亲们可以加我Q:191277042