SAVOIR SI L'APPLI TOURNE SUR VB
cs_Cyrus
Messages postés
47
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
2 avril 2007
-
17 févr. 2003 à 08:55
philheiz Messages postés 117 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 11 octobre 2007 - 4 sept. 2004 à 20:53
philheiz Messages postés 117 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 11 octobre 2007 - 4 sept. 2004 à 20:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6153-savoir-si-l-appli-tourne-sur-vb
https://codes-sources.commentcamarche.net/source/6153-savoir-si-l-appli-tourne-sur-vb
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
:)
20 févr. 2003 à 14:34
Mais il est si bo ton programme !
:)
17 févr. 2003 à 22:18
17 févr. 2003 à 21:20
17 févr. 2003 à 14:38
Bonne idée ! je met 8/10 pour l'astuce.
Merci.
17 févr. 2003 à 08:55