Appel de la palette de couleur...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 969 fois - Téléchargée 60 fois

Contenu du snippet

Mettre sur votre forme un PictureBox du nom de "Picture1" un CommonDialog du nom de "dlg" et un boutton du nom de "Command1".

Source / Exemple :


Private Sub Command1_Click()
    dlg.CancelError = True
    dlg.Color = RGB(255, 0, 0)
    dlg.Flags = cdlCCFullOpen Or cdlCCRGBInit
'appel de la boite couleur
On Error Resume Next
    dlg.ShowColor
    If Err <> cdlCancel Then
Picture1.BackColor = dlg.Color
 End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

eckostreet
Messages postés
26
Date d'inscription
lundi 12 avril 2010
Statut
Membre
Dernière intervention
3 octobre 2016

bravo ce que cherchai en mieux XD merci
spirit33
Messages postés
26
Date d'inscription
mercredi 14 novembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009

super simple.
z980x
Messages postés
898
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
Ah c'est cool !

Vraiment class et simple !
Allez, 10 !

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.