Knüller: vb@rchiv Offline-Reader - Die Offline-Wissensdatenbank

Tools & Components Anzeigen

Unser Tipp: Alle Online-Forenbeiträge aus dem vb@rchiv - gesammelt in einer Offline-Wissendatenbank, mit Internet-Update-Funktion, u.v.m.

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Sendmessage: EM_GETLINE
Autor: fin
Datum: 21.05.08 18:08
Hi, so funktioniert das beispiel ohne Probleme bei mir Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As String) As Long Private Const EM_GETLINECOUNT = &HBA Private Const EM_GETLINE = &HC4 Private Const MAX_CHAR_PER_LINE As Long = &H100& Private Sub Command1_Click() Dim sLine As String sLine = tbGetLine(RichTextBox1.hWnd, 3)'zB 3. zeile auslesen MsgBox sLine End Sub ' Änderung der Funktion "tbGetLine" Public Function tbGetLine(ByVal hWnd As Long, _ ByVal nLine As Long) As String Dim nLineCount As Long Dim nLen As Long Dim sLine As String Dim Lo As Long Dim Hi As Long ' zunächst die Anzahl der Zeilen ermitteln nLineCount = SendMessage(hWnd, EM_GETLINECOUNT, 0, 0&) If nLine > 0 And nLine <= nLineCount Then ' Jetzt Zeile auslesen Lo = MAX_CHAR_PER_LINE And &HFF Hi = Int(MAX_CHAR_PER_LINE / &H100) sLine = Chr$(Lo) & Chr$(Hi) & Space$(MAX_CHAR_PER_LINE - 2) nLen = SendMessage(hWnd, EM_GETLINE, nLine - 1, sLine) tbGetLine = Left$(sLine, nLen) Else ' Ungültiger Zeilen-Index tbGetLine = vbNullString End If End Function Mfg fin

Sendmessage: EM_GETLINE	422	SenZe	21.05.08 17:09
Re: Sendmessage: EM_GETLINE	182	fin	21.05.08 18:08
Re: Sendmessage: EM_GETLINE	218	SenZe	21.05.08 18:11
Re: Sendmessage: EM_GETLINE	182	VBStein	21.05.08 21:08
Re: Sendmessage: EM_GETLINE	175	SenZe	22.05.08 17:20
Re: Sendmessage: EM_GETLINE	174	SenZe	22.05.08 17:30
Re: Sendmessage: EM_GETLINE	173	VBStein	22.05.08 20:05

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