wie kann ich meiner textbox (bei Multiline=true) sagen, dass diese maximal 2 Zeilen erlaubt?
Gruss
daniel
Private Sub TextBox1_Change()
Dim i As Integer
If AnzStr(TextBox1, vbNewLine) > 1 Then
With TextBox1
i = .SelStart
.Text = Left(.Text, .SelStart) & Mid(.Text, .SelStart + 3)
.SelStart = i - 1
End With
End If
End Sub
Private Function AnzStr(str As String, s As String) As Integer
Dim tmp As Integer, i As Integer
Dim t As String
t = str
i = InStr(t, s)
Do While i > 0
tmp = tmp + 1
t = Mid(t, i + Len(s))
i = InStr(t, s)
Loop
AnzStr = tmp
End Function
Private Function AnzStr(ByVal str As String, ByVal s As String) As Integer