Inversion de couleurRésolu

Question

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

cs_Exploreur · Accepted Answer

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

masterpopeye · Answer

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

cs_Exploreur · Answer

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

Inversion de couleur

3 réponses

Votre réponse