Codes rgb

0/5 (1 avis)

Vue 3 881 fois - Téléchargée 342 fois

Description

Source très simple qui affiche le code rgb de la couleur choisie et qui permet de trouvre une couleur à partir d'un code rgb.Je sais ce code source n'est pas révolutionnaire mais ca peut servir de temps en temps.

Source / Exemple :


Private Sub Command1_Click()
   CMD.CancelError = True
   CMD.Flags = &H2& + &H1&   'On accède à la boite de dialogue complète
   CMD.Color = QBColor(1)   'Couleur par défaut ---> bleu --->1
On Error GoTo Annuler
  CMD.ShowColor 'On ouvre la boite de dialogue des couleurs
      Text1.Text = "Le code RGB de la couleur sélectionnée est " + Str(CMD.Color) + " ."

      GoTo Suite
Annuler:
   Text1.Text = "Vous n'avez pas sélectionné de couleurs" 'gestion des erreurs
Suite:
  lbl1.BackColor = CMD.Color  'le label 1 prend la couleur sélectionnée du CMD
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
      On Error GoTo Annuler
      fra2.BackColor = Text2.Text 'le frame2 prend la couleur écrite dans le text2
GoTo Suite
Annuler:
             strErreur = MsgBox("Vous n'avez pas sélectionné de code RGB", vbOKOnly, "                        !!! ||| !!!")
Suite:
End Sub

Conclusion :


Si vous n'avez pas compris(je pense pas que ca va être le cas lol) j'ai mis le zip à votre disposition.
PS: je suis intéressé par des contacts (en rapport avec VB) pour des projets divers (pas trop compliqués, je suis pas un pro....)
Merci
Aurélien

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Une couleur RGB affiche trois chiffres correspondant respectivement au valeur de Rouge, Vert et Bleu d'une couleur déterminée, et pouvant prendre les valeurs comprises entre 0 et 255 soit une valeur byte.

Tu est sur que ton code fasse çà... Sinon, il y a une source sur ce site qui separe une couleur de type Integer en RGB.

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.