在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 = &HBA

Public Function TextBoxLineCnt(ctl As TextBox) As Long
TextBoxLineCnt

原文转自：http://www.ltesting.net