以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何让按钮的宽度随着text的大小自动适应  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85405)
--  作者：rjh4078
--  发布时间：2016/5/25 10:27:00
--  如何让按钮的宽度随着text的大小自动适应

我动态添加了一些按钮 让他根据对应记录来变化宽度

代码是

btn.width=s.length*15

但是现在发现 有的大小差不多 有的差几个字符 宽度差很多
--  作者：大红袍
--  发布时间：2016/5/25 10:29:00
--  

参考

 

Dim fnt As New Font("宋体",20)
Dim msg As String = "我爱你"
Dim gc = basemainform.CreateGraphics
Dim size = gc.MeasureString(msg, fnt)
msgbox(size.width)