???
Ich bin verwirrt, ich versuch mich grad ein wenig an Visual Basic.
Ich möchte mir ein Programm erarbeiten, welches mir die arbeit ein wenig erleichtert.
und zwar sollen oben einige Buttons bereitstehen, unten ein Textfeld. wen mann dann die Buttons drückt, soll ein gesamter Text entstehen. Leider wird der Text immer ersetzt anstatt hinten angefügt zu werden.
Also meine frage, wie bekomme ich die buttontexte hintereinandergeschaltet???
xx; xy; yy; usw.
hier der Code:
ublic Class Form1
Public Sub New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click
ausgabe.Text = "ASR;"
End Sub
Private Sub Button_abs_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_abs.Click
ausgabe.Text = "ABS;"
End Sub
Private Sub Button_esp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_esp.Click
ausgabe.Text = "ESP;"
End Sub
Private Sub Button_zentral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_zentral.Click
ausgabe.Text = "Zentralveriegelung;"
End Sub
Private Sub Button_allrad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_allrad.Click
ausgabe.Text = "Allradantrieb;"
End Sub
Private Sub Button_schiebe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_schiebe.Click
ausgabe.Text = "Schiebedach;"
End Sub
Private Sub Button_fab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_fab.Click
ausgabe.Text = "Fahrerairbag;"
End Sub
Private Sub Button_bab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_bab.Click
ausgabe.Text = "Beifahrerairbag;"
End Sub
Private Sub Button_tuv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_tuv.Click
ausgabe.Text = "TÜV/AU neu;"
End Sub
Private Sub Button_sitz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_sitz.Click
ausgabe.Text = "Fahrer- und Beifahrersitztheizung;"
End Sub
Private Sub Button_klima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_klima.Click
ausgabe.Text = "Klimaanlage;"
End Sub
Private Sub Button_fenster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_fenster.Click
ausgabe.Text = " elektr. Fensterheber;"
End Sub
Private Sub Button_sab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_sab.Click
ausgabe.Text = "Seitenairbags;"
End Sub
Private Sub Button_spiegel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_spiegel.Click
ausgabe.Text = "elektrische Außenspiegel;"
End Sub
Private Sub Button_sitze_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_sitze.Click
ausgabe.Text = "elektr. Sitzverstellung;"
End Sub
Private Sub Button_navi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_navi.Click
ausgabe.Text = "Navigationssystem;"
End Sub
Private Sub Button_umwg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_umwg.Click
ausgabe.Text = "Umweltplakette Grün;"
End Sub
Private Sub Button_umwge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_umwge.Click
ausgabe.Text = "Umweltplakette Gelb;"
End Sub
Private Sub Button_umwr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_umwr.Click
ausgabe.Text = "Umweltplakette Rot;"
End Sub
Private Sub Button_weg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_weg.Click
ausgabe.Text = "elekrt.Wegfahrsperre;"
End Sub
End Class