已知一种字体的名称(Name)、大小(Size)、是否粗体(Bold)。。怎么获得字的高度(Height)？

Question

如题！！
最好是借助一两个函数或方法（不要借助label空间和autosize属性。）
有这样的方法吗？？？~~~谢谢。~~~

Answer 1

Private Sub Command1_Click()
    Me.Font.Bold = True
    Me.Font.Size = 20
    MsgBox Me.TextHeight("叶帆")
    
End Sub

Answer 2

好像是 FontSize*20, 1缇=1/20磅

Answer 3

另外这样好像更精确些：Private Sub Command1_Click()
    Printer.Font.Bold = True
    Printer.Font.Size = 20
    Msgbox Printer.TextHeight("叶帆")
    
End Sub

Answer 4

Private Sub Command1_Click()
    Me.Font.Bold = True
    Me.Font.Size = 20
    MsgBox Me.TextHeight("叶帆")
    
End Sub
-------------------
5555
我的100就这样送你了。555
都怪我笨努力ing。

Answer 5

1英寸=72磅=1440缇Font.Size，FontSize的单位是磅。TextHeight=FontSize*20(twips)