|
| |
 | 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! |
Fragen zu Tipps & Tricks und Workshops im vb@rchiv| 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 | |
| Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
