Savoir si votre appli tourne seule ou sous vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 597 fois - Téléchargée 73 fois

Contenu du snippet

cette source permet de savoir si votre code source tourne seul (dans un fichier .exe) ou en IDE (sous visual basic)

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 autonome() As Boolean
         Dim strFileName As String
         Dim lngCount As Long
         strFileName = String(255, 0)
         lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
         strFileName = Left(strFileName, lngCount)
Dim p
p = UCase(Right(strFileName, 7))
'attention: ce code ne marche que sous VB6 !
         If p <> "VB6.EXE" Then
            'code autonome
             ideorexe = True
         Else
            'fonctionne sous VB6
             ideorexe = False
         End If

End Function

A voir également

Ajouter un commentaire Commentaires
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
23 janv. 2006 à 16:18
un peu plus complexe, pour App.LogMode (peux renvoyer 3 etc...)

If App.LogMode <> 0 Then
'# Mode Compilé
End If

mais le principe est là ^^
cs_TheHacker Messages postés 442 Date d'inscription samedi 23 novembre 2002 Statut Membre Dernière intervention 19 octobre 2005
26 avril 2003 à 14:21
ouai sinon tu fais app.logmode, + simple......... si ca retourne 0= IDE 1 = EXE
cs_KevinK Messages postés 43 Date d'inscription mardi 22 janvier 2002 Statut Membre Dernière intervention 9 janvier 2003
21 mars 2002 à 14:11
Il y a plus simple et plus sûr:
if EnIDE then msgbox "Vous êtes dans l'environnement de développement !"

------------

Function EnIDE()
on error resume next
debug.print 0/0 'debug n'est évalué que sous l'environnement de développement
EnIDE(err<>0) '> si il y a une erreur, c'est qu'on est sous VB
err.clear
End function

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.