In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Beliebige Zeile einer (Rich-)TextBox auslesen
Autor: Phoenixx1976
Datum: 21.04.08 11:18
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_GETLINE = &HC4 Private Const EM_GETSEL = &HB0 Private Const EM_LINEFROMCHAR = &HC9 Private Const EM_LINEINDEX = &HBB Private Const EM_LINELENGTH = &HC1 Private Function GetRowContent(hwnd As Long, _ Optional ByVal nLine As Long = 0) As String Dim CursorPos As Long Dim FirstChar As Long Dim RowLength As Long Dim Buffer() As Byte ' Falls keine Zeilennummer angegeben, ' Inhalt der aktuellen Zeile ermitteln If nLine < 1 Then CursorPos = SendMessage(hwnd, EM_GETSEL, 0, ByVal 0&) \ 65536 nLine = SendMessage(hwnd, EM_LINEFROMCHAR, CursorPos, ByVal 0&) Else nLine = nLine - 1 End If ' Zeilenlänge ermitteln FirstChar = SendMessage(hwnd, EM_LINEINDEX, nLine, ByVal 0&) RowLength = SendMessage(hwnd, EM_LINELENGTH, FirstChar, ByVal 0&) ' Puffer vorbereiten ReDim Buffer(RowLength + 1) Buffer(0) = RowLength + 1 ' Zeileninhalt in Puffer auslesen SendMessage hwnd, EM_GETLINE, nLine, Buffer(0) ' Inhalt als String zurückgeben GetRowContent = Left$(StrConv(Buffer, vbUnicode), RowLength) End Function Aufgerufen wird das ganze per Clickevent der TextBox: Private Sub rtfText_Click() Dim sLine As String sLine = GetRowContent(rtfText.hWnd) WriteRichTextBoxText sLine, frmState.rtfText, RGB(0, 0, 0) ''vorläufige ausgabe End Sub

Tipp 996: Beliebige Zeile einer (Rich-)TextBox auslesen	4.624	Phoenixx1976	21.04.08 10:13
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.622	Dieter	21.04.08 10:18
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.436	Phoenixx1976	21.04.08 10:41
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.444	Dieter	21.04.08 10:43
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.429	Phoenixx1976	21.04.08 10:51
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.616	Dieter	21.04.08 10:56
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.474	Phoenixx1976	21.04.08 11:18
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.497	Dieter	21.04.08 11:30
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.421	Phoenixx1976	21.04.08 11:54
Re: Beliebige Zeile einer (Rich-)TextBox auslesen	2.491	Phoenixx1976	21.04.08 12:21

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen