Inversion de couleur

Résolu
masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
- 6 nov. 2007 à 14:09
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
- 7 nov. 2007 à 11:30
VB6
Bonjour,
Voila j'aimerais créé un bouton qui me permette d'inverser les couleurs de ma form pour l'impression.
Exemple ma form est en fond bleu avec les écritures blanches et j'aimerais que ca s'imprime en fond blanc avec les ecritures bleus.

Merci d'avance pour vos idées.

Masterpopeye

3 réponses

cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
6 nov. 2007 à 21:47
Salut,

Joue avec les propriété de la Form et label(si j'ai bien compris) : BackColor et ForeColor

Voici un exemple, tu as besoin d'une Form, un Label, un CommandButton

Private Sub Command1_Click()
Form1.BackColor = 16711680
Label1.ForeColor = -2147483633
End Sub


Private Sub Form_Load()
Form1.BackColor = vbRed
Label1.ForeColor = vbGreen
End Sub

La couleur est exprimée en : Long


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
3
masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
1
7 nov. 2007 à 10:47
Salut, exploreur,
Merci de ta réponse j'avais déjà pensé à une astuce du genre mais je pensais qu'il y aurait peut être une solution moins bourrin.
Quoi qu'il en soit merci de ta solution et @+++

PS: J'aime beaucoup ta sitation....
Masterpopeye
3
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
7 nov. 2007 à 11:30
Re,

Maitenant, si tu veux appliquer la même couleur à tes label(s'il y en a plusieurs sur ta form), utilise une boucle for..Each..

Exemple :

             Dim Ctrl As Control
        
             For Each Ctrl In Me ' Me représente ton formulaire en cours
                 If TypeOf Ctrl Is Label Then
                     Ctrl.ForeColor = vbRed
                 End If
             Next Ctrl
            
             Set Ctrl = Nothing

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
3