Hi,
wie kann ich Exit-Ereignis prüfen, wieviele Zeilen in einer Textbox (multiline = true und word wrap = true) beschrieben sind?
Danke und Gruss
Wilhelm
Hi,
hab eine Textbox1 und ein Label1 zum Anzeigen
in Button1 steht folgendes
Me.TextBox1.SetFocus
Label1.Caption = Str(Me.TextBox1.LineCount)
offensichtlich muss man vorher kurz den Focus draufsetzen sonst
funzt das nicht. andere Möglichkeit sehe ich grad nicht.
Alex
Probier das hier:
Private Sub Text1\_LostFocus()
Dim intPos As Integer
Dim intRows As Integer
intPos = 1
intRows = 0
'CR LF suchen
If InStr(1, Text1.Text, vbCrLf) \> 0 Then
'solange die letzte Zeile nicht gefunden wurde
'weiter suchen
While InStr(intPos, Text1.Text, vbCrLf) \> 0
intPos = InStr(intPos, Text1.Text, vbCrLf) + 1
intRows = intRows + 1
'letztes CR LF gefunden, aber es folgt noch Text
'in der nächsten Zeile (ohne CR LF am Ende)
If InStr(intPos, Text1.Text, vbCrLf) = 0 Then
If intPos ""
ElseIf Len(Text1.Text) \> 0 Then
intRows = 1
End If
MsgBox intRows
End Sub
Gruß Andreas
… arrggghhh …
Text1.linecount
kannte ich auch nocht nicht, aber es funkt
Danke für die Hilfe! owT Gruss Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]