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
Ah c'est cool !Vraiment class et simple !Allez, 10 !
super simple.
bravo ce que cherchai en mieux XD merci
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 798 membres 22 nouveaux aujourd'hui 16 152 membres club