Rubrik: TextBox, ListBox & ComboBox | 01.09.02 |
Text an einen bestehenden Text anhängen VB-Version: VB5, VB6 | ||
Views: 12.783 |
Wie bekomme ich es hin, dass ich Text an einen schon bestehenden Text ineinem Textfeld anhängen kann? Und vor allem: wie schaffe ich es, dassautomatisch weitergescrollt wird, wenn der Inhalt die Größe des Textfeldesüberschreitet? Vor allem bei einem WinChat-Proggi ist es doch ausgesprochenlästig, wenn alles funktioniert, nur die Textbox muss nach jeder neuen Eingabewieder nach unten gescrollt werden. Das können Sie wie folgt beheben:
Zum Test platzieren Sie auf einer Form zwei TextBoxen - eine zur Anzeige desTextes bei der MultiLine = True und ScrollBars = 2 - Vertikal, gesetzt sind undeine kleinere Textbox für die Eingabe des Textes. Dann fügen Sie diesen Code ein:
Private Sub Text2_KeyPress(KeyAscii As Integer) ' wenn Eingabetaste gedrückt If KeyAscii = 13 Then ' Piepston unterdrücken KeyAscii = 0 With Text1 ' Cursor am Ende des Textes positionieren .SelStart = Len(Text1.Text) .SelLength = 0 ' Inhalt von Text2 in Text1 übernehmen und Zeilenschaltung anhängen .SelText = Text2.Text & vbCrLf End With ' Inhalt von Text2 löschen Text2.Text = "" End If End Sub
Natürlich funktioniert das auch mit einer RichTextBox.