Savoir si votre appli tourne seule ou sous vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 344 fois - Téléchargée 71 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
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
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
-
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
-
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.