以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]如何用代码判断字符长度是否超过了列宽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178022)

--  作者：昱飞哥 --  发布时间：2022/6/15 10:14:00 --  [求助]如何用代码判断字符长度是否超过了列宽 如题

--  作者：有点蓝 --  发布时间：2022/6/15 10:33:00 --   参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=160924 Dim r As Row = Tables("表B").Current Dim g As Graphics = basemainform.CreateGraphics Dim size As Object size = g.MeasureString(r("第一列"), Tables("表B").Font, Tables("表B").grid.Cols(Tables("表B").ColSel+1).WidthDisplay) if size.height>30 then msgbox("超过列宽") end if