以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Table单元格自动换行,自动调整行高  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74587)

--  作者:machle
--  发布时间:2015/9/14 19:39:00
--  Table单元格自动换行,自动调整行高
Table当前行,本来只有一行高,

想实现的是:输入文字后,自动换行,行高自动调整成两行,依次类推,请问有什么好方法没有?

谢谢!

在AfterEdit中加入autorowsize,仅实现了输完,点击其它单元格才会自动调整行高。

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

没办法,这个,你在StartEdit事件设置一个大小吧。

 

If e.Col.Name = "第二列" Then
    e.Table.grid.rows(e.Row.Index+1).Height += 100
End If


--  作者:machle
--  发布时间:2015/9/14 20:13:00
--  回复:(大红袍)没办法,这个,你在StartEdit事件设置...
点击一下,行高+100。这个方法凑合着也还好。要是能再只能一些就好了。谢谢!
--  作者:大红袍
--  发布时间:2015/9/14 20:33:00
--  

mark 自动换行

 

ChangeEdit事件

 

Dim gc As Graphics = BaseMainform.CreateGraphics()
Dim size As SizeF = gc.MeasureString(e.Text, e.Table.Font)

e.Table.grid.rows(e.Row.Index+1).Height = 20 + size.Height * math.Floor(size.width / iif(e.Col.width=-1,98, e.Col.width))


--  作者:hotday1972
--  发布时间:2019/7/28 8:45:00
--  
不行,试了
--  作者:有点蓝
--  发布时间:2019/7/28 22:10:00
--  
参考:http://www.foxtable.com/webhelp/topics/1564.htm