Common dialog Cancel

Question

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

cs_rene38 · Answer

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

Sarumann · Answer

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)

Common dialog Cancel

2 réponses

Discussions similaires