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. Diese Seite wurde bereits 12.799 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |