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

Question

Bonjour &#224; tous,

Voil&#224; mon probl&#232;me. J'utilise une commonDialog pour afficher la palette des couleurs. Seulement, j'aimerais que lorsque je clique sur Annuler de la bo&#238;te de dialogue je sorte de ma fonction (exit sub). J'ai essayer avec la m&#233;thode des MsgBox :
Mess= Msgbox("blablabla .., VbYesNo,....)
if (Mess=VbYes) then
   ....

Mais Mess=Commondialog1.ShowColor n'est pas acc&#233;pt&#233; !

Alors je suis s&#251;r que c'est tout b&#234;te mais comment d&#233;tecter l'appui sur Annuler ??

Merci d'avance !

Philippe

Gobillot · Accepted Answer

si on positionne CancelError &#224; True &#231;a provoque une erreur si l'utilisateur fait annuler.

c'elle ci est donc capt&#233;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

philippe laschweng 1 · Answer

Encore une fois, merci Daniel !
On en apprend tous les jours, j'ignorais le .CancelError !

Merci !

Philippe

Problème appui 'Annuler' d'une CommonDialog ...

2 réponses

Discussions similaires