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

Résolu
PhilippeF -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Quel Langage svp ??
    0
    1. Utilisateur anonyme
       
      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
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Salut Whismeril, ca roule?
      0
    3. Utilisateur anonyme
       
      Tranquille et toi?
      0
  2. PhilippeF
     
    Autant pour moi !! je travaille sur VB6
    0
  3. Utilisateur anonyme
     
    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
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      Ok pour du vb6.0

      la même valeur de Font

      Un peu plus de precision svp
      0
  4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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