Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zeilen der TextBox begrenzen
Autor: anfaenger_michael
Datum: 10.01.02 09:19
moin moin, hi dieter mein GURU bist du es wieder ? sorry wenn ich wieder nerve mein problem: ich möchte die zeilen-anzahl einer TextBox begrenzen. habe dank dem forum auch was gefunden. der tip beinhaltet auch functions. aber wo muss ich den code einfuegen damit es auch funktioniert. habe es eingefügt..., aber leider bring er immer fehler. ' Folgende API-Deklaration wird benötigt Private 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 Private Const EM_GETLINECOUNT = &HBA '' Beispiel: Max. 3 Zeilen Private Const MAXLINE = 3 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim rVal As Long ' Anzahl Zeilen ermitteln und prüfen rVal = SendMessage(Text1.hWnd, EM_GETLINECOUNT, -1, 0&) If KeyAscii = 13 Then If rVal >= MAXLINE Then KeyAscii = 0 Else If rVal > MAXLINE Then KeyAscii = 0 End If End Sub danke. gruss michael

Zeilen der TextBox begrenzen	41	anfaenger_michael	10.01.02 09:19
Re: Zeilen der TextBox begrenzen	282	Dieter	10.01.02 09:30
Re: Zeilen der TextBox begrenzen	23	anfaenger_michael	10.01.02 11:01

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