Savoir si votre appli tourne seule ou sous vb

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

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)