input自动换行并自适应高度 VB怎样获取text的行数，包括自动换行的？

VB怎样获取text的行数，包括自动换行的？

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 EMu GETLINECOUNT=&HBA

Private Sub Command1u Click（）

txtLineCount=SendMessage（Text1.hwnd，EMu GETLINECOUNT，0，0）“Msgbox txtLineCount

结束Sub”

input自动换行并自适应高度 textarea换行属性 textarea根据宽度自动换行

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。