Ein Button klickt/aktiviert den anderen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von mindfreak.

    Ein Button klickt/aktiviert den anderen

    Hallo ich bin ein sehr großer Anfänger^^,
    ich möchte wissen wie mache ich es dass wen ich ein Button klicke, das dadurch ein anderer geklickt wird?
    Also z.B. Klick auf Button3 soll klick auf button4 auslösen.

    Ich hab nämlich vor das sich mein Programm sich bei einem Buttonklick (+richtiges wort in Textbox2 "del") löscht.
    Also: Wenn in TextBox2 del steht und dann Button3 geklickt wird soll der Button4 geklickt werden (durch Button3).
    Und weil Button4 geklickt wurde soll die Löschung ausgelöst werden.

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. If TextBox2.Text = "del" Then
    3. `Also hier soll der Befehl hin, dass der Button4 geklickt wird
    4. End If
    5. End Sub
    7. Private Sub MyApplication_Shutdown(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    8. Using srm As New IO.StreamWriter(System.Windows.Forms.Application.StartupPath & "\unistall.bat")
    9. With srm
    10. .WriteLine("@ECHO Datei """ & IO.Path.GetFileName(System.Windows.Forms.Application.ExecutablePath) & """ wird entfernt...")
    11. .WriteLine("@CD /D %~d0%~p0")
    12. .WriteLine("@ERASE /Q /F """ & IO.Path.GetFileName(System.Windows.Forms.Application.ExecutablePath) & """")
    13. .WriteLine("@ECHO Vorgang abgeschlossen.")
    14. .WriteLine("@ERASE /Q /F unistall.bat")
    15. End With
    16. End Using
    17. Process.Start(System.Windows.Forms.Application.StartupPath & "\unistall.bat")
    18. End Sub
    20. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    21. End Sub


    (Button4 ist unsichtbar)

    MfG PrestigeKirby

    Beispiel mit einer TextBox und zwei Buttons:


    PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Button1.Enabled = True Then Button2.PerformClick()
    If Button2.Enabled = True Then TextBox1.Text = "hallo"
    EndSub

    MfG

Facebook
Telefonspende