1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Savoir si votre appli tourne seule ou sous vb

Savoir si votre appli tourne seule ou sous vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 397 fois - Téléchargée 71 fois

Commenter

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

Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 65
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à ^^
Signaler
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
Signaler
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
S'inscrire maintenant

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.

Du même auteur (cs_painkiller)