OpenOffice.info

Private Sub txtFreitextRind_Change()
   If txtFreitextRind.LineCount > 5 Then
       txtFreitextRind = Left(txtFreitextRind, Len(txtFreitextRind) - 1)
   End If
End Sub

Hallo zusammen,

ich möchte in einem Textfield die max. Anzahl an einzugebenden Zeilen auf fünf beschränken.
In VBA habe ich das folgendermaßen gelöst:
[code]Private Sub txtFreitextRind_Change()
If txtFreitextRind.LineCount > 5 Then
txtFreitextRind = Left(txtFreitextRind, Len(txtFreitextRind) - 1)
End If
End Sub[/code]

Gibt es eine Eigenschaft wie .LineCount auch in Starbasic?

Gruß

Thomas