Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 454 fois - Téléchargée 71 fois
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
If App.LogMode <> 0 Then
'# Mode Compilé
End If
mais le principe est là ^^
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.