Text kleben + Line feed        Zurück       

Dieses Programm klebt 2 Textteile aneinander und fügt eine neue Zeile dazwischen.

Das Ergebnis wird in einer dritten TextArea ausgegeben.

Holen Sie sich drei TextAreas aus der Werkzeugkiste . Dann noch zwei Buttons. Benennen Sie die Buttons bei den Properties ( = Eigenschaften mit F4 Taste aufrufen) um.

Der Linefeed erfolgt mit & Chr$(10) & Chr$(13) &

Der Programmcode schaut so aus:

PUBLIC SUB Button1_Click()

TextArea1.Text = "1.Teil "

TextArea2.Text = "2.Teil "

END

PUBLIC SUB Button2_Click()

TextArea3.Text = "1.Teil " & Chr$(10) & Chr$(13) & " und 2.Teil "

END

Man kann den Text nicht einfach mit folgendem Trick an einanderkleben, denn das Plus Zeichen + funktioniert nicht so unsauber wie in Visual Basic .

TextBox1.Text = "1.Teil und"

TextBox3.Text = TextBox1.Text + " 2.Teil "