Nom de l'application parente ? [Résolu]

cs_wsixpo 6 Messages postés vendredi 9 mai 2003Date d'inscription 6 mai 2010 Dernière intervention - 4 janv. 2006 à 16:36 - Dernière réponse : PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention
- 5 janv. 2006 à 18:36
Bonjour,

Je ne suis pas certain que mon premier message soit passè alors ..

Voila mon problème. Je dois créer un contrôle activeX pour d'autres dévelopeurs. L'objectif de ce contole est de vérifier la version du soft en-cours. J'ai besoin pour ça de connaître le nom de l'application. Comment, à partir de mon contrôle, connaître le nom de l'application parent. Je pensais utiliser la fonction App.ExeName mais elle me retourne le nom de mon contrôle OCX. Si j'utilise Parent.App.eXename ça ne marche pas.

Avez vous une idée ??

Merci
Afficher la suite 

5 réponses

Meilleure réponse
cs_rt15 3982 Messages postés mardi 8 mars 2005Date d'inscription 7 novembre 2014 Dernière intervention - 5 janv. 2006 à 10:26
3
Merci
Milles excuse, je suis même pas arrivé à utiliser GetCommandLine depuis VB6.

Par contre l'API GetModuleFileName semble fonctionner (Je l'ai testé avec succès depuis une dll ActiveX, je me souvenais plus que c'était un contrôle).

Public Sub allo()
Dim a As String
a=Space$(250)
Call GetModuleFileName(0,a,251)
MsgBox a
End Sub

Merci cs_rt15 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

cs_rt15 3982 Messages postés mardi 8 mars 2005Date d'inscription 7 novembre 2014 Dernière intervention - 4 janv. 2006 à 18:55
0
Merci
Peut être avec l'API GetCommandLine.
Elle renvoie la ligne qui à été tapée pour lancer l'appli (Chemin d'accès plus nom généralement, mais parfois il y a des paramètres.
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 4 janv. 2006 à 20:12
0
Merci
salut

ouai je vois, un truc du genre...







Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Dim F As Object

Set F = UserControl.Parent

MsgBox F.App.EXEName

End Sub



le problème est que le App n'est pas lié à la Form par elle-même. je doute que cela soit réalisable...

mais si tu trouves, je suis preneur également ;)
cs_wsixpo 6 Messages postés vendredi 9 mai 2003Date d'inscription 6 mai 2010 Dernière intervention - 5 janv. 2006 à 10:43
0
Merci
ça marche bien chez moi aussi.

Bravos et merci de votre aide a tous les deux.

Wsixpo
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 5 janv. 2006 à 18:36
0
Merci
ok en compilé,

merci rt15, çà me servira sans doute^^

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.