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

Résolu

PhilippeF -
f894009 Messages postés 17413 Statut Membre - 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

A voir également:

Attribuer à tous les contros d'un Form la même valeur [VB6]
Vb6 - Télécharger - Divers Utilitaires
Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
Google form sans compte google ✓ - Forum Google Docs
Colombe souhaite utiliser cette image comme illustration. quel texte doit-elle ajouter pour attribuer correctement la photographie à son auteur ? - Forum Photofiltre
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel

4 réponses

Réponse 1 / 4

f894009 Messages postés 17413 Statut Membre 1 715

Bonjour,

Quel Langage svp ??

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

f894009 Messages postés 17413 Statut Membre 1 715

Salut Whismeril, ca roule?

Utilisateur anonyme

Tranquille et toi?

Réponse 2 / 4

PhilippeF

Autant pour moi !! je travaille sur VB6

Réponse 3 / 4

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

f894009 Messages postés 17413 Statut Membre 1 715

Bonjour,

Ok pour du vb6.0

la même valeur de Font

Un peu plus de precision svp

Réponse 4 / 4

f894009 Messages postés 17413 Statut Membre 1 715

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

Discussions similaires

Comment affecter une valeur à une cellule contenant du texte

Table des matières dont les titres n'apparaissent pas..

Problème de restrictions

[EXCEL] - Attribuer une valeur numérique à un mot

Boucle sur la première diapositive d'une présentation

Votre réponse

Discussions similaires