1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Savoir si l'appli tourne sur vb

Savoir si l'appli tourne sur vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 731 fois - Téléchargée 40 fois

Commenter

Contenu du snippet

Un code tout simple qui détermine si l'appli est en train de tounée sur VB6 ou en .exe

Source / Exemple : 


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

Conclusion :


C'est tout

A voir également

Ajouter un commentaire Commentaires
philheiz Messages postés 117 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 11 octobre 2007 1
4 sept. 2004 à 20:53
t'as raison.
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)
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
28 août 2004 à 16:45
Plus pro, je suis pas sûr car la mienne est plus simple.
philheiz Messages postés 117 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 11 octobre 2007 1
24 août 2004 à 21:38
J'aime bien ! Mais voilà une version peut-être un peu plus "pro":

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
cs_Appil Messages postés 208 Date d'inscription mercredi 10 avril 2002 Statut Membre Dernière intervention 11 juin 2014
27 févr. 2003 à 10:18
Alors là ! c'est le top :))))
cs_Appil Messages postés 208 Date d'inscription mercredi 10 avril 2002 Statut Membre Dernière intervention 11 juin 2014
21 févr. 2003 à 15:23
Mais comment ta fais ?
:)
Afficher les 10 commentaires
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_max12)