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

Soyez le premier à donner votre avis sur cette source.

Vue 3 111 fois - Téléchargée 248 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
Messages postés
21
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
21 juin 2004

Oui ça doit être ça, il est codé en vb6. Dommage... je regarderais de plus près une autre fois... peut-être :p
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

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 @+
Messages postés
21
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
21 juin 2004

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
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

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.