[VB] Boucle sur boutons d'un Form (V. Studio 2017)

PHP, JavaScript, Python, C#, VB.NET, C++, etc, y compris d'autres types de langages (HTML, CSS, SQL)
Avatar du membre
ced_le_dingue
Membre habitué
Membre habitué
Messages : 108
Inscrit le : 2 avril 2013
Version d'Excel : 2010

Message par ced_le_dingue » 17 janvier 2019, 11:25

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

Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message