EST-ON EN MODE DEBUG (VB6)

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 17 juin 2003 à 12:05
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 21 juil. 2006 à 02:48
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/7505-est-on-en-mode-debug-vb6

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
21 juil. 2006 à 02:48
salut
MsgBox IIf(CBool(App.LogMode), "EXE", "IDE")
Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
21 juin 2003 à 09:33
ca peut peut etre servir
ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
18 juin 2003 à 12:41
Ah ok pas mal ;)
cs_Crazyht Messages postés 1522 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 21 août 2010 8
18 juin 2003 à 07:32
Ca sert a savoir si tu as lancer ton programme a partir de l'IDE VB6
ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015
17 juin 2003 à 21:47
C kWa le mode debug ? ça sert a kwa ?
cs_Crazyht Messages postés 1522 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 21 août 2010 8
17 juin 2003 à 12:08
Je sais en fait c t surtout pour repondre à une question du forum :)
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
17 juin 2003 à 12:05
Bonjour Crazyht,

Il y a bcp de possibilité pour determiner s'il l'on est dans un environement compilé ou non je te propose une autre methode :

Private mIsInIDE As Boolean

Public Property Get InIDE() As Boolean
Debug.Assert (IsInIDE)
InIDE = mIsInIDE
End Property

Private Property Get IsInIDE() As Boolean
mIsInIDE = True
IsInIDE = True
End Property

B@nne prog
Rejoignez-nous