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

philippe laschweng 1 278 Messages postés jeudi 14 avril 2005Date d'inscription 13 avril 2013 Dernière intervention - 24 août 2005 à 23:38 - Dernière réponse : philippe laschweng 1 278 Messages postés jeudi 14 avril 2005Date d'inscription 13 avril 2013 Dernière intervention
- 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
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 24 août 2005 à 23:56
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

Merci Gobillot 3

codes-sources a aidé 87955 internautes ce mois-ci

philippe laschweng 1 278 Messages postés jeudi 14 avril 2005Date d'inscription 13 avril 2013 Dernière intervention - 25 août 2005 à 08:06
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.