begin process at 2012 02 16 07:23:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Modules

 > EST-ON EN MODE DEBUG (VB6)

EST-ON EN MODE DEBUG (VB6)


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Modules Niveau :Débutant Date de création :17/06/2003 Date de mise à jour :17/06/2003 11:28:23 Vu :5 586

Auteur : Crazyht

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note


 Description

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

Source

  • 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
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

@++


 Sources du même auteur

Source avec Zip Source .NET (Dotnet) DEMO BACKGROUNDWORKER & PING
Source avec Zip CLASSE SOMME MD5 EN VB6
MSN LOGGER
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE DE SAISIE DES IP EN VB.NET
Source avec Zip Source .NET (Dotnet) CALCUL DE LA TAILLE DES FICHIERS DANS UN DOSSIER

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) CRYPTAGE ET DECRYPTAGE par jerichez
Source avec Zip Source avec une capture Source .NET (Dotnet) EXEMPLE MODBUS POUR MODULES ADAM, BECKHOFF, WAGO par mnmsjaune
Source avec Zip Source .NET (Dotnet) CRÉER SON PROPRE DESIGNER COMME CELUI DE VISUAL STUDIO par ShareVB
Source avec Zip Source .NET (Dotnet) CONVERSION UTM VERS LAT/LONG par BarresLTD
Source avec Zip CPROPGROUP : COLLECTION FAITE MAISON par Flocreate

Commentaires et avis

Commentaire de EBArtSoft le 17/06/2003 12:05:44 administrateur CS

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

Commentaire de Crazyht le 17/06/2003 12:08:29 administrateur CS

Je sais en fait c t surtout pour repondre à une question du forum :)

Commentaire de ICIoBRa le 17/06/2003 21:47:21

C kWa le mode debug ? ça sert a kwa ?

Commentaire de Crazyht le 18/06/2003 07:32:25 administrateur CS

Ca sert a savoir si tu as lancer ton programme a partir de l'IDE VB6

Commentaire de ICIoBRa le 18/06/2003 12:41:48

Ah ok pas mal ;)

Commentaire de Tilois le 21/06/2003 09:33:35

ca peut peut etre servir

Commentaire de PCPT le 21/07/2006 02:48:46 administrateur CS

salut
MsgBox IIf(CBool(App.LogMode), "EXE", "IDE")

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,452 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales