在TextBox中如何得知所有的行数

在TextBox中如何得知所有的行数

作者: cww　

呼叫方式

  Dim LineCnt as Long

  LineCnt = TextBoxLineCnt(Text1)

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,  _
        lParam As Any) As Long
Public Const EM_GETLINECOUNT =