Gambas France BETA


Pas de compte ? Incription

Gestion des Erreurs :

La Gestion des Erreurs :





Les outils de gestion des erreurs :


CATCH :
1
2
CATCH '<-------------------------------------------------------------' attrape erreur
Message.Error(Str(Error.Class) & ", code : " & Error.Code & ", " & Str(Error.Backtrace) & " à " ' & Error.Where & " | " & Error.Text) '<-------- l'apostrophe en trop, après "à", c'est pour le site.

DEBUG :
Quasi idem à Print.

Error :
Voir aussi ce lien : gb.error pour une liste des propriétés.

FINALLY :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SUB PrintFile(FileName AS STRING)

DIM hFile AS File
DIM sLig AS STRING

hFile = OPEN FileName FOR READ

WHILE NOT Eof(hFile)
LINE INPUT #hFile, sLig
PRINT sLig
WEND

FINALLY ' Toujours exécuté, même si une erreur est levée. Attention : FINALLY doit précéder CATCH !
CLOSE #hFile

CATCH ' Exécuté seulement s'il y a une erreur
PRINT "Je ne peux pas afficher le fichier "; FileName

END

TRY :
1
2
3
4
5
6
TRY hLock = LOCK User.home & FMain.Panel5.Tag
IF ERROR THEN
Message.Title = ("Attention!")
Message(("Une seule instance du Programme est possible."))
QUIT
ENDIF

Application_Error :
Voir l'ensemble des propriétés.


====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--
<-- Développement <--

====================

La Documentation :



==============================