以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  行高随内容变化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101556)

--  作者:kaituozhe
--  发布时间:2017/6/2 15:59:00
--  行高随内容变化
怎么写代码能让行高随内容增加而增高?
--  作者:有点色
--  发布时间:2017/6/2 16:16:00
--  

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))


--  作者:kaituozhe
--  发布时间:2017/6/2 16:43:00
--  
2楼代码在表A不能实现内容变化后,根据内容变化自动调整行高
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.foxdb


--  作者:有点色
--  发布时间:2017/6/2 17:19:00
--  

1、不能粘贴进去,不能用代码赋值。只有手动打入的才行。

 

2、你可以在DataColChanged事件写代码 Tables("表A").AutoSizeRows


--  作者:kaituozhe
--  发布时间:2017/6/3 18:09:00
--  

在表中没有问题了,只是窗口中表怎么实现自动变化。


--  作者:kaituozhe
--  发布时间:2017/6/4 2:43:00
--  

根据内容调整到适当行高,怎么能够实现打开软件时行高也不变呢?


--  作者:有点色
--  发布时间:2017/6/4 11:27:00
--  
以下是引用kaituozhe在2017/6/4 2:43:00的发言:

根据内容调整到适当行高,怎么能够实现打开软件时行高也不变呢?

 

执行代码 Tables("表A").AutoSizeRows