Metacolorex : editeur de couleur hexadécimal soigné pour le web

Soyez le premier à donner votre avis sur cette source.

Vue 3 195 fois - Téléchargée 285 fois

Description

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. ;-)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Zak888 Messages postés 21 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 21 juin 2004
18 juin 2004 à 11:47
Oui ça doit être ça, il est codé en vb6. Dommage... je regarderais de plus près une autre fois... peut-être :p
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
18 juin 2004 à 11:45
re bonjour,

en fait, j en'ai rien changé au code, je l'ai téléchargé et testé comme ça.

J'utilise Visual Basic 5.0. c'est peut être ça.

Merci et @+
Zak888 Messages postés 21 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 21 juin 2004
18 juin 2004 à 11:20
Je n'ai pas ce message d'erreur c'est bizarre... tu ne peux pas afficher la palette ?
Re-télécharge la source tu as peut-etre du modifier le code sans faire exprès :p
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
18 juin 2004 à 10:27
salut,

très bonne idée ton code mais il y a un petit problème quand même et c'est dommage.

Si tu cliques sur Palette, un message d'erreur apparaît :

Membre de méthode introuvable.

Peux-tu corrige rce bug

Merci d'avance.

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.