Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

Button Click text

 ???

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:

 

Zitat
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
 
 
« Letzte Änderung: 20.02.10, 11:46:22 von Necromanius »

Antworten zu Button Click text:

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Du müsstest die Texte vorher zusammensetzen vor der Anzeige. Wenn du pro Button die Anzeige wieder neu setzt, kommt auch nur das neue Stück Text raus.

Also besteht nicht die Möglichkeit, im Textfeld, die buttons nacheinander zu listen?

 :-[ Ich hab mir das wohl zu leicht vorgestellt^^ ():-)

Die Idee ist, das wenn das Programm gestartet wird, ich nach beliben die Buttons anklicke, und das die werte dann nacheinander im Textfeld gelistet werden können. Damit man danach Copy&Past machen kann.
Oder ist dafür mein Ansatz schon der Falsche?

  

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button
Das wird schon gehen, nur musst du den zusammengestellten Text dir auch zwischenmerken.



Text Ausgabe = Button1+Button5 - MerkenVariable - Anzeigen.

Text Ausgabe = MerkenVariabel + Button 7 - Anzeigen

usw.

Zum Löschen wieder die Variable auf "" setzen.


 

achsoooo ;D jetzt hab ichs verstanden ::)

Ich werd mich mal drann versuchen^^

wenns nciht klappt schreib ich wieder :D

Danke für den Input

 


« PHP-MySQL HilfeGleichung selbst eingeben? »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
BASIC
BASIC steht für "Beginners All Purpose Symbolic Instruction Code", eine der ersten weit verbreiteten Programmiersprachen. Die einfache Anfänger-Sprache hat dazu...

Internet-Zugriffsprogramm
Ein Internet-Zugriffsprogramm, auch Browser genannt, stellt Internetseiten für den Benutzer dar. Am bekanntesten ist der Microsoft Internet Explorer, gefolgt vom kos...

Programm
Siehe Software...