vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: TextBox, ListBox & ComboBox01.09.02
Text an einen bestehenden Text anhängen

VB-Version:  VB5, VB6
 Views:  12.140 

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.140 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel