Common dialog Cancel

Comment gerer le bouton annuler sur un common dialog de couleur
J'ai essaye ca

On error go to erreur

commondialog.showcolor
.
.traitement
.
erreur:
if err.number = 37255
exit sub
endif
le probleme c'est que ca ne rentre jamais dans mon etiquette d'erreur

Bonjour.
Essaie ça, ça marche chez moi (VB6)

Private Sub Teinte_Click()
CommonDialog.CancelError = True'<<<<<<
On Error GoTo ErrHandler
CommonDialog.Flags = cdlCCRGBInit Or cdlCCPreventFullOpen
CommonDialog.ShowColor
Couleur = CommonDialog.Color
Exit Sub
ErrHandler:
Exit Sub
End Sub




-------------------------------
Réponse au message :
-------------------------------

> Comment gerer le bouton annuler sur un common dialog de couleur
> J'ai essaye ca
>
> On error go to erreur
>
> commondialog.showcolor
> .
> .traitement
> .
> erreur:
> if err.number = 37255
> exit sub
> endif
> le probleme c'est que ca ne rentre jamais dans mon etiquette d'erreur

Voilà une fonction "nettoyée":

Private Sub Teinte_Click()
CommonDialog.CancelError = True
On Error GoTo ErrHandler
CommonDialog.Flags = cdlCCRGBInit
CommonDialog.ShowColor
Couleur = CommonDialog.Color

ErrHandler:
End Sub

Le "Or cdlCCPreventFullOpen" c'est uniquement pour désactiver le choix d'une couleur personnalisée. Les exit sub ne sont pas nécessaire car ils sont situés à la fin de la fonction!!!!

Pour info culturelle, le CommonDialog.CancelError = True "sélectionne" le bouton Cancel (Annuler pour les puristes). Le fait d'appuyer sur le bouton Annuler, "sélectionne" le bouton. Mais comme le bouton est déjà "sélectionné", une erreur est générée. Donc, le "On Error" est utilisé pour récupérer l'erreur.

Sarumann
"Magie, Magie! Et les Sorciers sont des génies!!!" (fameuse pub pour Magiciens)