如何得到多行文本框的实际高度

Question

简单，使用EM_GETLINECOUNT.
添加一个textbox, 设置multiline=trueOption Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
Private Sub Command1_Click()
    Dim iLines As Long
    iLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
    
    MsgBox (iLines)
End Sub

Answer 1

上面的已经得到行数了。下面就是得到高度的问题了。
你可以计算没行开头的字的高度，然后加起来。或计算一行的高度然后*行数就好了。
如：假设已经知道是N行了。
那高度=TextHeight(Left(txt, 1))*n就是高度了啊。

Answer 2

楼上的兄弟，你的TextHeight从那里来的阿？

Answer 3

我想可以通过fontsize*某个系数得到的，你去试一下

Answer 4

好的，我去看看fontsize是什么东东！ ：）大家继续阿，不要给我的思路限制死，可能有别的方法！