Codes rgb

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (katarhackt669)