以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于标签Label中文本换行的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134926)
--  作者：1669607010
--  发布时间：2019/5/13 11:03:00
--  [求助]关于标签Label中文本换行的问题

哪位老师指导一下，标签Label控件如何设定指定控件宽度后，根据内容动态设置控件高度？

如果把标签Label属性“自动大小”，设置为True，此时标签自动根据其内容调整大小，不可以手动调整或通过代码设置，但是无法控制换行。

如果把标签Label属性“自动大小”，设置为False，标签内容有多有少，此时如何根据标签内容动态设置标签Label高度啊？
--  作者：有点甜
--  发布时间：2019/5/13 11:29:00
--  

计算行高，如

 

Dim str As String = "abc123你我他款窦娥宽松iuksdf卡上的佛ikoisdf"
Dim fnt As new font("宋体", 9)
Dim g = basemainform.createGraphics
Dim size = g.MeasureString(str, fnt, 50) \'宽度50
msgbox(size.height)
--  作者：1669607010
--  发布时间：2019/5/13 14:47:00
--  
明白了谢谢老师指导