Button-Click---Variable---Performclick()

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Button-Click---Variable---Performclick()

    Hallo, ich versuche meine Frage zu formulieren, mir fehlen die Fachbegriffe....
    Ich habe es in Bild und Code Form zur Darstellung gemacht

    Quellcode

    1. Public Class Form1
    2. Dim farbe1 As String
    3. Dim farbe2 As String
    4. Dim count As Integer
    6. 'Buttons Farbe 1
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. farbe1 = "rot"
    9. End Sub
    11. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    12. farbe1 = "grün"
    13. End Sub
    15. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    16. farbe1 = "blau"
    17. End Sub
    19. 'Buttons Farbe 2
    20. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    21. farbe2 = "rot"
    22. End Sub
    24. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    25. farbe2 = "grün"
    26. End Sub
    28. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    29. farbe2 = "blau"
    30. End Sub
    32. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    33. count = count + 1
    35. 'angenommen wir haben oben farbe1=grün und farbe2=blau
    36. 'Abfrage
    37. 'ist count gerade dann
    38. Button2.PerformClick() 'einfacher wäre doch wenn farbe1 den Namen des Buttons kennt und hier steht farbe1.PerformClick()
    39. Button5.PerformClick()
    40. 'else
    41. Button3.PerformClick()
    42. Button6.PerformClick()
    44. 'ich könnte jetzt eine lange If schreiben.....
    45. 'if farbe1=grün then Button2.PerformClick() usw usw.
    46. 'geht das nicht einfacher?
    48. End Sub
    49. End Class


    Ich hoffe es ist etwas verständlich was ich meine,
    Danke Heiko
    Bilder

    • Unbenannt-2.png

      15,5 kB, 579×390, 43 mal angesehen

    Warum heißen die Buttons Button1 usw.? Gute Benennung ist ein wichtiger Punkt.
    PerformClick - jedes Mal, wenn ich das sehe, denk ich mir nur: wozu wurde der Blödsinn eingeführt?

    Was soll das Programm denn inhaltlich eigentlich machen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    ​wozu wurde der Blödsinn eingeführt?

    wenn ich unter dem Button Click Ereignis Werte zuordne, diese dann evtl an einen Empfänger sende, dazu noch in der Form/Oberfläche irgendwelche Sachen farblich ändere oder Slider Values zuordne, DANN kann ich das von überall im Programm einfach mit einem PerformClick Event auslösen, find ich nicht unnütz.

    Meines Erachtens sollte es aber so laufen:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. ChangeFirstColorToRed()
    3. End Sub
    5. Private Sub ChangeFirstColorToRed()
    6. farbe1 = "rot"
    7. End Sub

    Dann kann man nämlich in anderen Methoden ebenfalls ChangeFirstColorToRed() aufrufen und muss nicht überlegen, was da bei Button1.PerformClick so alles passiert. Denn der Name der Methode sagt bereits sehr detailliert, was dann passiert: Die erste Farbe wird zu Rot.
    Und was Dein Programm nun machen soll, weiß ich immer noch nicht, daher keine sinnvolle Hilfe möglich.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ich habe verstanden was du meinst, ich schreibe das gerade um, ist recht viel zu tippen.....
    Ich mach jetzt unter dem ButtonClick Ereignis ein Event mit Übergabe von Werten, wie in deinem Bsp.
    nur eben
    ChangeColor1(11,127,0,0)...so in der Art

    diese "Auswert"Sub kann ich ja später auch mit entsprechenden Werten aufrufen

    Danke, guter Hinweis von dir....

    VaporiZed schrieb:

    wozu wurde der Blödsinn eingeführt?
    Button1_Click(...) funktioniert immer.
    Button1.PerformClick() funktioniert nur, wenn der Button sichtbar und enabled ist.
    @kollimann Du brauchst keinen Timer, wenn Du beim Klicken die betreffende Prozedur aufrufst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Öhm … und inwieweit begründet diese Aussage den Sinn von PerformClick?
    Das mit dem Timer interpretier ich als gewollt, der Zusammenhang mit den ButtonClicks ist wohl nur eine Krücke, um die Farben zu ändern.
    Was das Programm aber überhaupt machen, bleibt weiter im Dunkeln, daher bin ich stiull, bis da ne konkrete, detaillierte Beschreibung vom TE kommt, sonst ist das hier für mich voradventliches Spekulatiusbacken.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed die Äquivalenz zum Drücken des Buttons mit der Maus im Gegensatz zur generellen Abarbeitung einer Prozedur.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das ist mir durchaus bewusst. Ich kann mir trotzdem keine sinnvolle Verwendung dafür vorstellen. Hat jemand ein praktisches und sinnvolles Beispiel dafür? UIAutomation zählt nicht ;)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Das ist Teil einer Lichtsteuerung.
    Sinn Beispielhaft.......
    Farbe1 = Lampen 1.Reihe, Farbe2=Lampen 2.Reihe
    1.Reihe soll rot leuchten, also Farbe anwählen im Bild links (bei klickButton werden entsprechende Werte in Variablen1 gesetzt, RGB z.B. 127,0,0)
    2.Reihe soll blau leuchten also Farbe anwählen im Bild rechts (bei klickButton werden entsprechende Werte in Variablen2 gesetzt, RGB z.B. 0,127,0)
    per Tasten für Reihe1 und Reihe2 (NICHT IM BILD) manuell Lampen an aus in gewählter Farbe mit den Werten der Variablen 1 oder 2, je nach Taste.

    Der Timer, wenn auto Modus, TimerTick - 1.Durchlauf = ALLE LAMPEN mit gewählter Farbe 1, 2.Durchlauf = ALLE LAMPEN mit gewählter Farbe 2 , und so weiter im Wechsel.
    Da ich die Werte im Sub ButtonClick Ereignis hatte, wollte ich den Auto Modus einfach mit dem PerformClick Event auslösen, das habe ich jetzt geändert, so wie im beispiel oben von VaporiZed......
    funktioniert alles Problemlos

    Danke

Facebook
Telefonspende