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.767 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 März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||
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. |