Sujet Précédent Sujet Suivant

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 - 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
Attribuer une lettre à un disque dur - Guide
Valeur relative et absolue ✓ - Forum Webmastering
Colombe souhaite utiliser cette image comme illustration. quel texte doit-elle ajouter pour attribuer correctement la photographie à son auteur ? - Forum Photofiltre
Attribuer une valeur à une cellule texte excel ✓ - Forum Excel

4 réponses

Réponse 1 / 4

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

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 17417 Date d'inscription Statut Membre Dernière intervention 1 717

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 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

Réponse 4 / 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

Discussions similaires

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

Comment donner accès à un Google Form sans compte Gmail

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

Tri les lettres d'un mot par ordre alphabétique

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

Discussions similaires

Newsletters