Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 731 fois - Téléchargée 40 fois
Public Function VBRun() As Boolean On Error GoTo Bogue Debug.Print 1 / 0 VBRun = False 'Si l'appli est compilé Exit Function Bogue: VBRun = True 'Si l'appli tourne sur VB6 End Function
4 sept. 2004 à 20:53
mais la solution que je présente n'est pas dénuée d'intérêt: elle détermine réellement l'application qui execute la procédure courante.
ta source est plus simple, mais elle ne détermine pas directement l'appli en cours. elle reconnait une différence de traitement entre l'interprétation faite pas vb6 d'un code non compilé et un code compilé /executé.
mais je le répète: ta source me plait.
comment as-tu découvert ca ? (Debug.Print 1/0)
28 août 2004 à 16:45
24 août 2004 à 21:38
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Function IsInIDE() As Boolean
Dim strFileName As String
Dim lngCount As Long
strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)
IsInIDE = UCase$(Right$(strFileName, 8)) Like "\VB#.EXE"
End Function
27 févr. 2003 à 10:18
21 févr. 2003 à 15:23
:)
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.