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