Est-on en mode debug (vb6)

0/5 (7 avis)

Snippet vu 7 771 fois - Téléchargée 37 fois

Contenu du snippet

Petite fonction qui renvoi True si on est en mode debug :)

Source / Exemple :


Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String,ByVal nSize As Long) As Long

Public Function DebugMode() As Boolean
   Dim strFileName As String
   strFileName = String(255, 0)
   DebugMode = Not (UCase(Right(Left(strFileName, GetModuleFileName(App.hInstance, strFileName, 255)), 7)) <> "VB6.EXE")
End Function

Conclusion :


Bonne prog

@++

A voir également

Ajouter un commentaire Commentaires
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
49
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 ?
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.