Text vor einem bestehenden Eintrag in einer Textbox einfügen VB-Version:  VB5, VB6
	Views:  456

Sehr oft wurde schon gefragt, wie man einen Text an einen bestehenden Text ineiner Textbox anhängt. Weniger häufig wird die umgekehrte Variante benötigt, nämlich Text vor einem bestehenden Eintrag einfügen. Aber ab und zuwird auch danach gefragt. Um nachfolgenden Code auszuprobieren benötigen Sieeine Textbox, deren MultiLine-Eigenschaft = True ist und einen CommandButton.

Private Sub Form_Load()
   ' zuerst benötigen wir ein paar Einträge in der TextBox ...
   Text1.Text = "Zucker" & vbCrLf & "Mehl" & vbCrLf & "Salz"
End Sub
 
Private Sub Command1_Click()
   ' ... dann fällt uns ein, dass wir an 
   ' oberster Stelle was vergessen haben :-)
   Text1.Text = "Dringend besorgen" & vbCrLf & Text1.Text
End Sub