Texte in Textboxen addieren

[Dunland]

Hallo,

folgendes: Ich arbeite zZ an einem Programm, bei dem ich das Prinzip einer "moderen" Schreibmaschine brauche.

Textbox2 ist das "leere Blatt" Papier
Textbox1 ist das Display.

d.h. ich schreibe einen Text in Textbox1, drücke Enter und dann wird der Inhalt aus Textbox1 gelöscht, und in Textbox2 geschrieben.
Wenn ich jetzt wieder einen neuen Text schreibe, soll dieser wieder in Textbox2 geschrieben werden, ohne, dass der erste Text gelöscht wird, und der neue Text in eine neue Zeile der Textbox.

Um es bildlich zu machen

Ich schreibe in Textbox1 "Hallo" ENTER
Textbox2:
Hallo

Ich schreibe dannach in Textbox1 "Wie gehts" ENTER
Textbox2:
Hallo
Wie gehts

Wäre nett, wenn ihr mir helfen könnt.

Danke.

 

[wincnc]

Hallo, versuch´s mal so.
Du benötigst 2 TextBoxen (Text1 u. Text2).
Bei Text2 MultiLine auf True und ScrollBars auf 3 - Beides stellen.

Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Text2 = Text2 & Text1 & vbCrLf
    Text1 = ""
    Text1.SetFocus
    KeyAscii = 0
  End If
End Sub

 

[MM4213]

Ich hätte da noch eine Variante:

Nimm doch statt der Textbox2 eine Richtextbox.
Die Übertragung des Textes aus der Textbox in die Richtextbox kannst du einleiten mit dem Ereignis OnEnter. dabei wird beim Drücken der Enter-Taste eine Subroutine ausgeführt, in der du aus der Textbox den Text in die Richtextbox übertragen kannst.

Warum eine Richtextbox? Darin bist du variabler mit den Zeilen und kannst sehr gut die Schriftgrößen und -farben einstellen. Informiere dich da doch mal in der Onlinehilfe:

Der code sollte etwa lauten:

Private sub textbox1_onenter ( byval...) handles textbox1.onenter
    richtextbox1.appendtext(textbox1.text)
    textbox1.text=""
end sub

Viel Spaß! MM