GESTION DES ERRORLEVEL EN VB
cs_Patrice99
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
8 avril 2005 à 08:16
Xipheon Messages postés 1 Date d'inscription lundi 29 septembre 2003 Statut Membre Dernière intervention 5 juillet 2007 - 5 juil. 2007 à 11:03
Xipheon Messages postés 1 Date d'inscription lundi 29 septembre 2003 Statut Membre Dernière intervention 5 juillet 2007 - 5 juil. 2007 à 11:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30614-gestion-des-errorlevel-en-vb
https://codes-sources.commentcamarche.net/source/30614-gestion-des-errorlevel-en-vb
5 juil. 2007 à 11:03
Public Sub ExitProcess(uExitCode As Long)
'If isDEV Then ExitProcessA uExitCode
If Not isDEV Then ExitProcessA uExitCode
Msgbox "ERRORLEVEL:" & uExitCode
End
End Sub
8 avril 2005 à 08:16
Public Function bIDE() As Boolean
' Retourner True si on est en mode debug dans l'IDE, sinon False (mode compilé .exe)
' (bIDE IsIDE Not IsCompiled)
' www.vbarchiv.net/forum/id2_i68236t68232.html
On Error Resume Next
Debug.Print 1 / 0
bIDE = (Err <> 0)
On Error GoTo 0
End Function