Richtextbox

17/06/2008 - 14:07 von George Löwer | Report spam
Hi @ll,

wie wird denn die Zeilenanzahl in einer Richtextbox von Sendmessage
(EM_GetlineCount) ermittelt?

Ich habe eine Richtextbox mit 4 Zeilen Text drin.

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

Anzahl_Zeilen = SendMessage(Richtextbox.hwnd, EM_GETLINECOUNT, 0, 0&)


Anzahl_zeilen liefert mir eine 12 zurück.
Woran kann das liegen?

Gruß George
 

Lesen sie die antworten

#1 Christian Zimmermann
17/06/2008 - 14:45 | Warnen spam
Hallo George,

George Löwer schrieb:

wie wird denn die Zeilenanzahl in einer Richtextbox von Sendmessage
(EM_GetlineCount) ermittelt?



WYSIWYG, d. h. Zeilenumbrüche werden sowohl weich als auch hart gezàhlt.

Ich habe eine Richtextbox mit 4 Zeilen Text drin.

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

Anzahl_Zeilen = SendMessage(Richtextbox.hwnd, EM_GETLINECOUNT, 0, 0&)


Anzahl_zeilen liefert mir eine 12 zurück.
Woran kann das liegen?



Evt. hast du Leerzeilen am Ende. Bis wohin wandert denn der Cursor wenn
du ihn bewegst? Nur bis zur vierten Zeile?

Gruß

Christian

Ähnliche fragen