主题：分区面板显示与隐藏

我的需求：

Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim sp3 As WinForm.SplitContainer = e.Form.Controls("SplitContainer3")
static pheight As Integer
If e.Sender.text = "∧∧∧∧" Then
    pheight = sp.SplitterDistance
    sp.SplitterDistance = sp3.height+sp.SplitterWidth*2-5
    e.sender.text = "∨∨∨∨"
Else
    sp.SplitterDistance = pheight
    e.sender.text = "∧∧∧∧"
End If

老师不对的，多点击几次，按钮逐渐变小了，如何处理？

 

设置这个地方，改成具体的数值。

 

sp.SplitterDistance = 50