Hi guys,
I really need help. This is what i try to do:
The problem is :Code:For i = 0 To lngCount lngLength = SendMessage(hwnd, EM_LINELENGTH, i, 0) strBuffer = Space$(lngLength) Call SendMessageStr(hwnd, EM_GETLINE, i, ByVal strBuffer) strRichText = strRichText & strBuffer Next MsgBox (strRichText)
the strRichtext don't concatenate the 2 or 3 lines together.
+ For some reason lngLength return max 109 event that the line is longer than that.




Reply With Quote