以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口table控件内容的格式问题?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77542)

--  作者:ehomecd
--  发布时间:2015/11/20 9:01:00
--  窗口table控件内容的格式问题?
窗口table控件内容的格式问题?
如何让table自动缩放填满窗口,并且让标题和表内容垂直居中?

图片点击可在新窗口打开查看此主题相关图片如下:2015年11月20日.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/11/20 9:10:00
--  

Dim t As Table = Tables("表A")
Dim w As Integer = (t.grid.width-20) / t.cols.count
For Each c As object In t.cols
c.width = w
Next

Dim h As Integer = (t.grid.height-20) / (t.rows.count+1)
t.DefaultRowHeight = h


--  作者:ehomecd
--  发布时间:2015/11/20 10:38:00
--  
按照代码修改后的效果,是不是哪里不对?
另外居中的问题如何解决呢?

图片点击可在新窗口打开查看此主题相关图片如下:2015年11月20日2.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/11/20 10:57:00
--  

细节自己调整

 

Dim t As Table = Tables("表A")
Dim w As Integer = (t.grid.width-30) / (t.getColVisibleWidth.split("|").length / 2)
For Each c As Col In t.cols
    c.width = w
    c.TextAlign  = TextAlignEnum.Center
Next

Dim h As Integer = (t.grid.height) / (t.rows.count+1)
t.DefaultRowHeight = h