Discussion :

[djoumusic]

Bonjour,
j'ai un usf avec une image fait sur photoshop,
j'ai le code couleur rgb du fond de mon image,
comment la convertir pour retrouver la meme dans le backcolor ?
je ne comprends pas dans quel format nous sommes, j'ai trouvé des convertisseur RGB to LONG... marche pas...
pouvez-vous m'aider...?

Merci

[rvtoulon]

Bjr,
pour changer la couleur de fond d'un userform c bien la fonction backcolor qui d'après l'aide est égale un LONG.

dans un userform tu met un bouton de commande et ce code dans le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
r = val(InputBox$("Red Value"))
B = val(InputBox$("Blue Value"))
G = val(InputBox$("Green Value"))
Lng$ = B * 65536 + G * 256 + r
MsgBox Lng$
End Sub

ceci va te permettre d'entrer le code rgb (255, 255, 255, pour le blanc) et va afficher dans un msgbox le résultat sous forme d'un long (16777215, pour le blanc)
tu récupère le résultat et dans ton userform a initialize tu met ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
Me.BackColor = 16777215
End Sub

et c'est bon.
@+

[djoumusic]

ben non... ca ne marche pas,
j'avais recuperer ce prog pour connaitre le LONG

en prenant ton code dans initialize..
la couleur prioritaire rest celle des propriete de l'usf.. pas celle de initialize...
ou alors il y a un parametres a mettre dans le cadre backcolor...????

[rvtoulon]

Re,
j'ai essayé le code que j'ai mis et il m'affiche bien le userform en blanc, sans changer quoi que ce soit dans le cadre des propriétés .

Met nous ton code de l'userform, et le code couleur peux-etre que pourras t'aider plus.

[djoumusic]

Désolé..
mauvaise manip de ma part, ca marche tres bien !
merci,
encore désolé,
j'ai fait trop vite !!!!


Merci