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

- - Dernière réponse : f894009
Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
- 4 sept. 2019 à 17:11
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
Afficher la suite 

4 réponses

Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
1173
0
Merci
Bonjour,

Quel Langage svp ??
Whismeril
Messages postés
13751
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 septembre 2019
389 -
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
f894009
Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
1173 -
Salut Whismeril, ca roule?
Whismeril
Messages postés
13751
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 septembre 2019
389 -
Tranquille et toi?
Commenter la réponse de f894009
0
Merci
Autant pour moi !! je travaille sur VB6
Commenter la réponse de PhilippeF
Messages postés
13751
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 septembre 2019
389
0
Merci
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
f894009
Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
1173 -
Bonjour,

Ok pour du vb6.0

la même valeur de Font

Un peu plus de precision svp
Commenter la réponse de Whismeril
Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
1173
0
Merci
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
Commenter la réponse de f894009