Voilà, c'est ma première source sur vbfrance. :-)
J'ai soigné ce programme ; il nétait pas destiné à l'Open Source au départ. Par contre je n'ai mis aucun commentaire mais le code n'est pas trop compliqué.
Alors ce programme permet de choisir des couleurs en jouant sur la norme RVB. Le code Hexa est donné immédiatement. Il est marche bien sur dans l'autre sens : vous donnez une couleur Hexa et la couleur s'affiche.
Ce programme permet de faciliter la tache des webamsters. Je l'ai créé à l'origine pour moi puis j'ai décider de le proposer sur mon site et voilà que je met la source sur VBfrance.
Dites moi ce que vous en pensez.
Source / Exemple :
'Voici un aperçu du code :
Private Sub cmdpalette_Click()
CMD.ShowColor
ColorVB_to_RGB (CMD.Color)
txtr.Text = R
txtv.Text = G
txtb.Text = B
End Sub
Function ColorVB_to_RGB(Backcolor As Long)
B = Int(Backcolor / 65536)
G = Int((Backcolor - 65536 * B) / 256)
R = Int(Backcolor - (B * 65536) - (G * 256))
End Function
Private Sub Form_Load()
On Error Resume Next
Randomize
txtr.Text = Int(Rnd * 255)
txtv.Text = Int(Rnd * 255)
txtb.Text = Int(Rnd * 255)
End Sub
Private Sub couleur()
On Error Resume Next
rge = S(0).Value
vrt = S(1).Value
ble = S(2).Value
txtr.Text = rge
txtv.Text = vrt
txtb.Text = ble
piccolor.Backcolor = RGB(rge, vrt, ble)
changergb
End Sub
Conclusion :
Je mettrais des mises à jour autant de fois qu'il sera necessaire, mais pour ça il me faut vos commentaires. ;-)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.