Hallo Community!
Ich versuche gerade ein Problem zu lösen, bei dem ich jetzt leider nicht mehr weiter komme. Im Grunde ist es einfach, aber bei mir will es nicht klappen.
Und zwar habe ich auf meinem Formular eine Reihe von normalen Buttons, die ich als RadioButtons verwenden möchte.
D.h. wenn ich auf Button1 klicke, soll die Hintergrundfarbe des Buttons blau gefärbt werden, alle anderen Buttons sollen grau bleiben. Klicke ich auf Button2 soll dessen Farbe geändert werden, und die anderen Buttons auf grau gestellt werden.
Ich denke einmal, dass ich das mit einer Übergabe des Buttons als Parameter am besten lösen kann, habe aber noch kaum mit Werteübergaben gearbeitet (außer indem ich sie in einer Variable zwischengespeichert habe die ich global deklariert habe).
Kann mir vielleicht jemand zeigen, wie ich das machen kann? Mein Code, siehe unten, ist wieder einmal totaler Mist.
Private Sub AddressButtonsClick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button7.Click, Button13.Click, Button14.Click, _
Button15.Click, _
Button16.Click, Button25.Click, Button26.Click, Button27.Click, _
Button28.Click, Button29.Click, Button30.Click, Button31.Click, _
Button32.Click, Button33.Click, _
Button3.Click, Button4.Click, Button35.Click, Button36.Click
If sender(Button7.Text) = "1" Then
Button7.BackgroundImage = My.Resources.button1
Button13.BackgroundImage = My.Resources.button1
Button14.BackgroundImage = My.Resources.button1
Button15.BackgroundImage = My.Resources.button1
Button16.BackgroundImage = My.Resources.button1
Button25.BackgroundImage = My.Resources.button1
Button26.BackgroundImage = My.Resources.button1
Button27.BackgroundImage = My.Resources.button1
Button28.BackgroundImage = My.Resources.button1
Button29.BackgroundImage = My.Resources.button1
Button30.BackgroundImage = My.Resources.button1
Button31.BackgroundImage = My.Resources.button1
Button32.BackgroundImage = My.Resources.button1
Button33.BackgroundImage = My.Resources.button1
Button3.BackgroundImage = My.Resources.button1
Button4.BackgroundImage = My.Resources.button1
Button35.BackgroundImage = My.Resources.button1
Button36.BackgroundImage = My.Resources.button1
End If
End Sub |