Cancel error

Question

Bonjour.
Il me reste juste une erreur pour mon code.
J'utilise des Common Dialog pour ShowColor, ShowOpen et ShowPrinter.
Je n'arrive pas à utiliser le CancelError.
Il est positionné à True, je mets On Error goto
et J'ai un magnifique message d'erreur comme quoi "Annulé" a été pressé et je plante.
Voici un extrait de mon code si quelqu'un peut m'aider:
'
Private Sub pr_Click()    ' Commande du menu
'
c1.CancelError = True   'c1 est ma Common Dialog
On Error GoTo fp
c1.ShowPrinter
'
PLANNING.PrintForm '
'
fp:
'
End Sub
'
Merci d'avance
M@chto

cs_DARKSIDIOUS · Answer

Ton code fonctionne bien chez moi, pas d'erreur ! Ca vient peut-être d'un autre bout de code... essaye avec un On Error Resume Next sinon voir si le message est toujours affiché.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_machto · Answer

Bonjour et merci.
C'est pareil avec Resume Next
Que peut-il y avoir avec "d'un autre bout de code"? A tu des pistes à me suggérer?
merci d'avance
M@chto

cs_rene38 · Answer

Salut

Il y a quoi entre fp:   et   End Sub ?

cs_machto · Answer

Juste un "'" pour séparer visuellement le End Sub. Tu sais je suis encore débutant et préfère voir clairement ce qui se passe quite à rajouter des ' ou des tabulations.
Le code est tel que recopié dans mon programme.
M@chto

cs_machto · Answer

J'ai fait ouvert un nouveau projet et j'ai fait ce code.
J'ai toujours le message. Ca ne marche pas. C'est tout ce qu'il y a dans le projet:

Private Sub C1_Click() ' C1= command1
'
c.CancelError = True   ' c= le Common D.
On Error GoTo f2
c.ShowPrinter
msgbox("Ca imprime")
goto f
f2:
MsgBox ("Il y a erreur!!!")
f:
End Sub
'
M@chto

crenaud76 · Answer

Dans VB6, va voir dans le menu "Outils | Options"
Va voir l'onglet "Général"
Dans le cadre "récupération d'erreur", t'aurais pas l'otion "Arrêt sur toutes les erreurs de sélectionner par hasard ?
Si oui, active plutôt "Arrêt sur les erreurs non gérées"
maintenant, cela devrait fonctionner !!
Avec cette 1ere option d'activer, aucun "On error ..." n'est traité, et toutes les erreurs (sauf dans les modules de classes) sont déclenchées

Christophe R.

cs_machto · Answer

Ben.... si. Par défaut. J'ai coché comme tu m'as dis. OK. Mais, est-ce que mon .exe fonctionnera aussi sur d'autres PC (car actuellement, en version compilée, j'avais un plantage aussi)?

M@chto

crenaud76 · Answer

Si tu utilsies un On Error Goto ... tout ira bien avec l'exe !

Christophe R.

Cancel error

8 réponses

Discussions similaires