换了个思路、、用DrawText、不过有点问题、、代码如下:
Dim a As RECT
Dim TextHeight As Long
Me.Cls
GetClientRect Me.hwnd, a
TextHeight = DrawText(Me.hdc, "这里的文本长一些", -1, a, DT_LEFT Or DT_WORDBREAK)
If TextHeight > Me.Height / 15 Then MsgBox "大于窗体"
Debug.Print TextHeight
Debug.Print Me.Height / 15
无论如何、都不会弹出提示、而且好像DrawText不受窗体AutoRedraw属性影响、希望大家能开导我一下、、