Appel de la palette de couleur...

Commenter

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

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 (cs_kojack)