求助：可不可以计算文本框的字体宽度，用来改变字体大小以适应文本框大小。

Question

在窗体中建立一个PictureBox对象，并且要让它的字体属性于文本框的字体属性保持一致（字体、字号）Dim A
A = Picture1.TextWidth(Text1.Text)
'A 即为合适的文本框宽度可惜需白白建立一个Picture1   :)

Answer 1

用textwidth就能得到字的宽度了啊。
这不就好了。

Answer 2

这个问题其实很好解决，只是文本长的时候怕字体太小了。
这样：dim X as long
Dim FZ as long
Fz=Text1.Font.sizeTrySize:
x=me.TextWidth(Text1.text)
If X > Text1.Width then  '太长
  Fz=Fz-1 '小一号字  
  Me.Font.Size = FZ
  Goto TrySize
End ifText1.Font.size=FZ

Answer 3

不一定非要用picturebox控件，form一样可以用。格式如下：
object.TextWidth(字符串表达式)。需要注意的是，宽度是用object的ScaleMode所指定的单位表达的。如果object省略，就是当前窗体。

Answer 4

6号字体相当于7.5号字体
只要把Font.Name设为“宋体”，Size设为8或7都行
Size属性自动把字号大小付给最相近的字体
字号    大小(Size)
五号    10.5
小五     9
四号    12
六号    7.5
等等

Answer 5

原来是这样啊
我好像记得
是：
font="宋体"
font.size="六号"