Mise en form générale d'une formRésolu

Question

Bonjours tous, alors voil&#224; le probl&#232;me : j'ai une form avec plusieur
objet (CommandeButton et Fram) dont je ne connait pas les noms.
Existe-il une fronction/ un objet qui regroupe toute ces objet pour que
je puisse leur appliquer des modification type backcolor.

jpleroisse · Accepted Answer

Re,

> Icarius44, si tu ne veux agir que sur les contr&#244;les Frame par exemple, tu mets.



Private Sub Command1_Click()

    Dim obj As Object

        For Each obj In Me.Controls

        If TypeName(obj) = "Frame" Then

         obj.BackColor = vbBlue

          obj.ForeColor = vbWhite

       End If

Next

End Sub



jpleroisse

jpleroisse · Answer

Bonsoir,

Pour les contr&#244;les CommandButton, la propri&#233;t&#233; Style, doit-&#234;tre mise &#224; 1-Graphical.



Private sub Command1_Click

Dim obj As Object

    For Each obj In Me.Controls

        obj.BackColor = vbRed

    Next 

End If

End Sub



jpleroisse

Icarius44 · Answer

Merci, Ca marche Nickel pour les commandesButton, mais j'ai essayer de
faire de m&#234;me avec les frame et ca n'a pas marcher. Es qu'il existerais
quelque chose du type "Frames" pour les frame comme il existe
"Controls" pour les commandesbutton?

Et deja merci pour les "controls".



Icarius44

cs_ITALIA · Answer

Je Viens de Tester et &#231;a fonctionne aussi pour les Frames.

Biensur le code de jpleroisse comporte un "End If" en trop

It@li@

jpleroisse · Answer

Bonjour,

Exact It@li@, j' ai extrait ce code d'une partie d'un code que j'ai utilis&#233; et j'ai oubli&#233; d'enlever le  End If .



jpleroisse

Icarius44 · Answer

Merci beaucoup tout marche.

Mise en form générale d'une form

6 réponses

Discussions similaires