In Need of Help

[SamarthK]

Is there any method from which I can get the line count in a

RichTextBox?

[MarkT]

I'm not sure if this is what you are after.

Option Explicit
 
Private Sub Command1_Click()
Dim LineCount
 
    On Error GoTo LineErr
    LineCount = Split(RichTextBox1.Text, vbCrLf)
    MsgBox "Line count = " & UBound(LineCount) + 1
    
    Exit Sub
LineErr:
    MsgBox "Line count = 0"
End Sub

[abdul]

You can also use API like this:

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 EM_GETLINECOUNT = &HBA
Dim linecount As Integer
'////////////////////////////////////////////////////////
 
linecount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)
MsgBox linecount

[da_silvy]

Faster:

Private Const EM_GETLINECOUNT = &HBA
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 Sub Command1_Click()
MsgBox SendMessage(Me.RichTextBox1.hwnd, EM_GETLINECOUNT, ByVal CLng(0), ByVal CLng(0))
End Sub

[MarkT]

Damn API again, I have to learn about them someday.

[da_silvy]

oh well,

win some lose some