以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何让多个表在分区中平均分配宽度高度对齐  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92600)

--  作者:HappyFt
--  发布时间:2016/11/8 9:16:00
--  如何让多个表在分区中平均分配宽度高度对齐


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20161108090241.jpg
图片点击可在新窗口打开查看

 

如上图,在分区面板的一个分区中有几个表控件,打开窗口时如何让这几个表均匀分布?当分区面板的大小改变时表的大小也自动变化均匀分布在分区中?

 

谢谢!


--  作者:有点蓝
--  发布时间:2016/11/8 9:39:00
--  
SplitterMoved事件

Dim width As Integer = e.Sender.Panel2.Width

Dim ct1 As WinForm.Table = e.Form.Controls("Table1")
Dim ct2 As WinForm.Table = e.Form.Controls("Table2")
Dim ct3 As WinForm.Table = e.Form.Controls("Table3")
Dim w As Integer = (width-20)/3
ct1.Width = w
ct1.Left = 5
ct2.Width = w
ct3.Width = w
ct2.Left = ct1.Width +15
ct3.Left = ct1.Width + ct2.Width  +25