IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

[VBA-W] Mettre des couleurs ds un label


Sujet :

VBA Word

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 25
    Par défaut [VBA-W] Mettre des couleurs ds un label
    Bonjour,
    Je cherche à mettre la premiere lettre de mon label en une autre couleur.
    Es ce possible?

    Merci

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Alors il te faut 2 labels, un pour la première lettre et un second pour le reste...
    Mais je suis encore sous VB97, je ne connais pas les derniers développement en matière de format de label

    A+

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 25
    Par défaut
    Oups ca m arrange pas.
    Pe avec un bookmarks

    Une idee?

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Quelle est ta version ? P'têtre qu'il existe un "RichLabel" (comme il existe le RichTextBox) qui te permettrait de faire un arc-en-ciel avec ton texte...

    Bonne chance et si tu trouves, n'hésite pas à donner la solution.

    A+

  5. #5
    Membre Expert
    Avatar de méphistopheles
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    1 551
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 1 551
    Par défaut
    connais pas les "rich labels".

    par contre, c'est tout afait réalisable en faisant un lable avec un index et en utilisant la methode "load" et "textwidth"...

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Février 2004
    Messages
    25
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 25
    Par défaut
    Merci
    mais je vois pas du tout cmt faire.

  7. #7
    Membre Expert
    Avatar de méphistopheles
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    1 551
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 1 551
    Par défaut
    tu prend un label, tu lui met l'index (0). disons qu'il s'appelle label1.

    tu peux en construire d'autres avec la procédure load:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    load label1(index)
    label1(index).visible=true
    où index est le numero que tu donne à ton label1.

    pour ton aplication, c'est trés facile de faire cela à condition que tu connaisse la largeur d'un caractere.
    le code est:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private sub label1load(texte as string)
    dim eachletters() as string
    dim i as integer
    redim eachletters (1 to len(texte))
    for i=1 to len(texte)
       load label1(i)
       label1(i).visible=true.
       eachletters(i)=mid(texte,i,1)' sait plus, l'ordre. peut-être mid(texte,1,i)
       label1(i).width= textwidth
       label1(i).left=label1(i-1).left+ label1(i-1).width
       label1(i-1).caption=eachletters(i)
    next i
    end sub
    ensuite, tu n'a plus qu'a atribuer des couleurs à tes labels.

    salut

Discussions similaires

  1. Réponses: 6
    Dernier message: 01/10/2007, 12h29
  2. Mettre des couleur dans un sous-formulaire
    Par seaosiris dans le forum VBA Access
    Réponses: 4
    Dernier message: 26/07/2007, 08h41
  3. Réponses: 5
    Dernier message: 02/04/2007, 11h45
  4. Réponses: 5
    Dernier message: 08/12/2006, 00h09
  5. Comment mettre des couleurs a printf ( )
    Par damien42 dans le forum C
    Réponses: 27
    Dernier message: 31/03/2005, 23h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo