Bonjour à tous,
J'ai un petit soucis en VB, je veux boucler sur tous les boutons contenus dans un form en faisant un for each mais ça me pointe une erreur sur l'occurence "bouton" en me mettant "Flat apparence n'est pas un membre de "control". (Cf. code ci dessous)
Je débute en VB et je pense que je n'utilise pas la bonne syntaxe pour agir sur les paramètres de mes boutons contenu dans un form.... Sauriez vous quelle est la bonne syntaxe pour que je puisse modifier mes paramètres flatappearence ?
Merci beaucoup pour votre aide.
Ced
Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
boucle_survolage_des_boutons()
End Sub
Sub boucle_survolage_des_boutons()
For Each bouton As Control In Form1.Controls
If TypeOf bouton Is Windows.Forms.Button Then
bouton.FlatAppearance.MouseDownBackColor = Color.FromArgb(175, 17, 23)
bouton.FlatAppearance.MouseOverBackColor = Color.FromArgb(241, 105, 111)
End If
Next
End Sub