comment faire un (error trap) piège à erreur? aidez moi svpRésolu

Question

bon voila j'ai fait un petit soft qui fait des captures d'&#233;cran &#224; r&#233;p&#233;tition et qui les analyse. Mais il arrive que j'obtienne une message d'erreur du type:(l'erreur d'ex&#233;cution 521 impossible d'ouvrir le presse papier!) (sachez que le logiciel tourne en boucle et que ce message apparait compl&#233;tement au hasard: d&#233;foi au bout de dix minutes comme au bout de 5 heurs alors???)
et j'ai essayer de sovoir pourquoi il y avait ce probl&#232;me mais avec peu de succ&#233; et j'ai ensuite, trouv&#233; &#231;a:

Can't open Clipboard (Error 521)
Specifics

The Clipboard has already been opened by another application. This error has the following cause and solution: 

Another application is using the Clipboard and won't release it to your application. 
Set an error trap for this situation in your code and provide a message box with Retry and Cancel buttons to allow the user to try again after a short pause


sur msdn en acc&#233;s libre

il me conseille donc d'utiliser un error trap, un pi&#232;ge a erreur mais je ne sai absolument pas comment mi prendre  (faut dire que je d&#233;bute juste) donc si quelqu'un pouvait me donner quelques conseils se serait vraiment trop cool car sinon mon soft ne servira a rien

crenaud76 · Accepted Answer

Alors allons-y pour du VB6 ...

On Error Goto ErrHdlr
... ici tu places la ou les lignes de code qui risque de planter
Exit Function ' ou Exit Sub selon le cas
ErrHdlr:
... ici tu places le code a executer en cas d'erreur ou rien du tout si tu ne veux rien faire de spécial en cas d'erreur ...
End Function ' ou End Sub selon le cas

crenaud76 · Answer

LA méthode vca dépendre de la version de VB que tu utilises : VB6, VB.NET, VBA ?

Christophe.

zwarul · Answer

c'est vb6 merci

cs_cbu · Answer

Si tu d&#233;butes, je t'ai fais une proc&#233;dure ou tu comprendras tout bien 



Private Sub AnError()

'////////////////////////////////////

'/ Proc&#233;dure qui G&#233;n&#232;re une erreur

'/ Avec gestion d'erreur

'////////////////////////////////////

Dim lintZero As Integer



On Error GoTo FlagError



    lintZero = 0

    lintZero = 8/lintZero

    

ResumeError:

    MsgBox "Ici on passe toujours Erreur ou pas Erreur ;)" & vbCrLf & Err.Description, vbCritical

Exit Sub



FlagError:

    MsgBox "[debug : AnError]" & vbCrLf & Err.Description, vbCritical

    Resume ResumeError



End Sub



Bye bye

cs_cbu · Answer

Oui une division par 0 il aime pas trop ...

zwarul · Answer

merci!!!!!!!!!!!!!!!!

Comment faire un (error trap) piège à erreur? aidez moi svp

6 réponses

Discussions similaires