Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Anzahl zeilen eines Dokumentes
Autor: herbert.px
Datum: 05.04.04 15:22
Hi, schreib mal folgende Deklaration bzw. Konstantendefinition in ein Modul: Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long Public Const EM_GETLINECOUNT = &HBA Public Const EM_GETLINE = &HC4 Public Const DT_BOTTOM = &H8 Public Const DT_CALCRECT = &H400 Public Const DT_CENTER = &H1 Public Const DT_LEFT = &H0 Public Const DT_TABSTOP = &H80 Public Const DT_TOP = &H0 Public Const DT_WORDBREAK = &H10 Public Const DT_VCENTER = &H4 Public Const DT_SINGLELINE = &H20 Public Const DT_RIGHT = &H2 Public Const DT_NOPREFIX = &H800 Public Const DT_EXPANDTABS = &H40 Zum Auslesen der Zeilenanzahl kannst Du dann die Funktion Function Zeilenzahl&(c As RichTextBox) Zeilenzahl = SendMessage(c.hWnd, EM_GETLINECOUNT, 0&, 0&) End Function nehmen und zum Auslesen des Zeileninhalts die Funktion Function Zeile(c As RichTextBox, ByVal nr As Long) As String Dim puffer As String, n& puffer = Chr$(255) & Chr$(0) & Space$(253) n = SendMessage(c.hWnd, EM_GETLINE, nr, puffer) Zeile = Left(puffer, n) End Function (Beachte, dass die erste Zeile die Zeilennummer 0 hat!!!) Viel Spaß beim Probieren!

Anzahl zeilen eines Dokumentes	535	SteS	04.04.04 17:38
Re: Anzahl zeilen eines Dokumentes	319	herbert.px	05.04.04 15:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen