Discussion :

[arnaud61]

Bonjour,
je cherche à créer une procedure pour changer le backColor de plusieur boutton lors du clic

j'ai fait un code qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Private Sub Bt_Color_AA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Color_AA.Click
        If Me.Bt_Color_AA.BackColor = Color.Transparent Then
            Me.Bt_Color_AA.BackColor = Color.Cyan
        Else
            Me.Bt_Color_AA.BackColor = Color.Transparent
        End If
 
 
    End Sub

comme je vais avoir 169 boutton qui vont fonctionner de la meme maniere,
j'ai essayé de faire une fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  Private Sub Bt_Color_KQo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Color_KQo.Click
 
        Bt_Color(Bt_Color_KQo)
 
    End Sub
    Sub Bt_Color(ByRef Btcolor As Button)
 
        If Btcolor.BackColor = Color.Transparent Then
            BackColor = Color.Cyan
        Else
            BackColor = Color.Transparent
        End If
 
    End Sub

Le code change le backColor de ma userfrom au lieux du button.
Merci de m'éclairer sur ce qui na va pas.

[Kangourex]

Soit tu fais une liste des boutons qui auront une réaction similaire List(Of Button) et tu For Each dessus.
Ou alors si vraiment tous tes boutons ont la même réaction tu peux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each button As Button In Me.Controls
    button.BackColor = Color.Red;
Next

Tous les bouttons de ta Form sera changé de couleur bon après tu peux If ceci cela.

[arnaud61]

merci pour ton aide