以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]分区面板的代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160248)
--  作者：宇哥
--  发布时间：2021/1/26 12:03:00
--  [求助]分区面板的代码问题
分区分栏处放置了一个多选框（样式为按钮），窗口全局事件的checkedchanged中代码如下：
应用后FOXTABLE直接关闭跳出

Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
sp.SplitterDistance = sp.width / 2

Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox0")

If e.sender.checked Then
    chk.checked = False
    e.Sender.Image =  "..\\image\\折叠3.png"
    sp.SplitterDistance = e.Sender.Width=20
Else
    chk.checked = True
    e.Sender.Image =  "..\\image\\折叠4.png"
    sp.SplitterDistance = sp.width / 2
End If


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210126120206.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/1/26 13:33:00
--  
chk.checked = xxx这2句去掉
--  作者：宇哥
--  发布时间：2021/1/26 15:16:00
--  


\'Forms("主窗口").Controls("SplitContainer2").Panel2.


\'Dim p As WinForm.SplitPanel = e.Form.Controls("SplitContainer2").Panel2
\'p.ExtendSize = New Size(500,40)
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
sp.SplitterDistance = sp.width / 2

Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox0")

If e.sender.checked Then
   \' chk.checked = False
    e.Sender.Image =  "..\\image\\折叠3.png"
    sp.SplitterDistance = e.Sender.Width=20
    
    
Else
    \'chk.checked = True
    e.Sender.Image =  "..\\image\\折叠4.png"
    sp.SplitterDistance = sp.width / 2
    
End If
[此贴子已经被作者于2021/1/26 22:21:09编辑过]
--  作者：有点蓝
--  发布时间：2021/1/26 15:47:00
--  
http://www.foxtable.com/webhelp/topics/0772.htm
--  作者：宇哥
--  发布时间：2021/1/26 16:21:00
--  
 已解决，果然是需要getimage（），谢谢
--  作者：宇哥
--  发布时间：2021/1/26 17:02:00
--  
 老师！分区解决了，满满成就感！谢谢！我还发了分享帖