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

Résolu/Fermé
PhilippeF - 3 sept. 2019 à 12:58
f894009 Messages postés 17204 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 octobre 2024 - 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

4 réponses

f894009 Messages postés 17204 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 octobre 2024 1 709
3 sept. 2019 à 17:28
Bonjour,

Quel Langage svp ??
0
Utilisateur anonyme
3 sept. 2019 à 18:16
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
0
f894009 Messages postés 17204 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 octobre 2024 1 709
3 sept. 2019 à 18:30
Salut Whismeril, ca roule?
0
Utilisateur anonyme
3 sept. 2019 à 18:33
Tranquille et toi?
0
Autant pour moi !! je travaille sur VB6
0
Utilisateur anonyme
Modifié le 4 sept. 2019 à 07:23
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

0
f894009 Messages postés 17204 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 octobre 2024 1 709
Modifié le 4 sept. 2019 à 10:38
Bonjour,

Ok pour du vb6.0

la même valeur de Font

Un peu plus de precision svp
0
f894009 Messages postés 17204 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 octobre 2024 1 709
4 sept. 2019 à 17:11
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
0