什么叫文本文件 VB怎样获取text的行数，包括自动换行的？

2021-03-17

1622

VB怎样获取text的行数，包括自动换行的？Private Declare Function SendMessage Lib“user32”Alias“SendMessageA”（ByVal hwnd

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”