Est-on en mode debug (vb6)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 571 fois - Téléchargée 35 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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
salut
MsgBox IIf(CBool(App.LogMode), "EXE", "IDE")
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
7
ca peut peut etre servir
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015

Ah ok pas mal ;)
Messages postés
1522
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
6
Ca sert a savoir si tu as lancer ton programme a partir de l'IDE VB6
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015

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.