Problème appui 'Annuler' d'une CommonDialog ... [Résolu]

Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Dernière intervention
13 avril 2013
- - Dernière réponse : philippe laschweng 1
Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Dernière intervention
13 avril 2013
- 25 août 2005 à 08:06
Bonjour à tous,

Voilà mon problème. J'utilise une commonDialog pour afficher la palette des couleurs. Seulement, j'aimerais que lorsque je clique sur Annuler de la boîte de dialogue je sorte de ma fonction (exit sub). J'ai essayer avec la méthode des MsgBox :
Mess= Msgbox("blablabla .., VbYesNo,....)
if (Mess=VbYes) then
....

Mais Mess=Commondialog1.ShowColor n'est pas accépté !

Alors je suis sûr que c'est tout bête mais comment détecter l'appui sur Annuler ??

Merci d'avance !

Philippe
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Dernière intervention
31 mars 2015
16
3
Merci
si on positionne CancelError à True ça provoque une erreur si l'utilisateur fait annuler.

c'elle ci est donc captée par une gestion d'erreur classique.









On Error GoTo Error

CDial.CancelError = True

' CDial.Flags = cdlCCRGBInit '1

' CDial.Flags = cdlCCFullOpen '2

' CDial.Flags = cdlCCPreventFullOpen '4

' CDial.Flags = cdlCCHelpButton '8

CDial.Flags = 7

CDial.ShowColor



Rouge = CDial.Color And 255

Vert = CDial.Color \ 256 And 255

Bleu = CDial.Color \ 65536

Exit Sub

Error:

If Err = 32755 Then Exit Sub

MsgBox Err.Description & " (" & Err & ")", vbExclamation, "ShowColor Erreur"

End Sub

Daniel

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Messages postés
278
Date d'inscription
jeudi 14 avril 2005
Dernière intervention
13 avril 2013
0
Merci
Encore une fois, merci Daniel !
On en apprend tous les jours, j'ignorais le .CancelError !

Merci !

Philippe

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.