Attribuer à tous les contros d'un Form la même valeur [VB6] [Résolu]

Signaler
-
Messages postés
15274
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 août 2020
-
Bonjour,
Sur un Form je voudrai faire une boucle pour que tous les controls aient la même valeur de Font

Merci


Configuration: Windows / Chrome 76.0.3809.132

4 réponses

Messages postés
15274
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 août 2020
1 328
Bonjour,

Quel Langage svp ??
Messages postés
14617
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 août 2020
563
Bonjour,
la question de f894009, pouvant surprendre, je vais préciser

quel VB?
  • VBS
  • VBA -> précisez:
    • Word
    • Excel
    • Access
    • Powerpoint
    • Autre
  • VB6 (ou antérieur, précisez)
  • VB.Net - précisez la Framework et ->
    • Winform
    • WPF
Messages postés
15274
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 août 2020
1 328
Salut Whismeril, ca roule?
Messages postés
14617
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 août 2020
563
Tranquille et toi?
Autant pour moi !! je travaille sur VB6
Messages postés
14617
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 août 2020
563
Alors, je ne sais plus faire, VB6 j'ai arrêté depuis près de 15 ans...
f894009 peut-être, ou un autre membre.
Je me suis permis d'édité ton titre, pour le rajouter

Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Messages postés
15274
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 août 2020
1 328
Bonjour,

Ok pour du vb6.0

la même valeur de Font

Un peu plus de precision svp
Messages postés
15274
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 août 2020
1 328
Re,

En attendant, un exemple:

 Dim Ctrl As Control
   
   For Each Ctrl In Form1
        With Ctrl
            .Font = "Courier"
            'ou
            '.FontName = "Courier"
            .FontBold = True        'gras
            .FontUnderline = True   'souligne
            .FontSize = 12
        End With
   Next