Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Je cherche à rendre actif une appli déjà lancée au préalable par une autre appli

2 réponses
Avatar
bouchito
Bonjour,

je travaille sous VB6.
J'ai deux appli diff=E9rente.
Avec la premiere appli je lance la seconde via un shell. Je r=E9cup=E8re
donc le descriptif de la seconde appli.
Je retourne dans la premi=E8re appli sans fermer la seconde.
Et lorsque que j'appuie sur un bouton j'aimerai que la seconde appli (
d=E9j=E0 lanc=E9e ) prenne le focus et soit au premier plan.

Est-ce qu'une personne pourrait m'aider ?

Merci beaucoup de votre aide

PS: Pourrai-je avoir vos r=E9ponses en copie sur l'email suivant :
olivier.bouchard@statigest.fr

2 réponses

Avatar
Jacques93
Bonjour ,
a écrit :
Bonjour,

je travaille sous VB6.
J'ai deux appli différente.
Avec la premiere appli je lance la seconde via un shell. Je récupère
donc le descriptif de la seconde appli.
Je retourne dans la première appli sans fermer la seconde.
Et lorsque que j'appuie sur un bouton j'aimerai que la seconde appli (
déjà lancée ) prenne le focus et soit au premier plan.

Est-ce qu'une personne pourrait m'aider ?

Merci beaucoup de votre aide

PS: Pourrai-je avoir vos réponses en copie sur l'email suivant :




Tu peux essayer :

' ---------------------------------------------
Option Explicit

Dim TaskID As Long

Private Sub Command1_Click()
TaskID = Shell("notepad.exe", vbNormalFocus)
End Sub

Private Sub Command2_Click()
AppActivate TaskID
End Sub

' ---------------------------------------------

Appactivate peut prendre comme paramètre :

- soit le titre de la fenêtre
- soit l'identifieur de tâche retourné par Shell

Si ce n'est pas suffisant, il faudra peut être utiliser les API, pour
restaurer un fenêtre mise en icône par exemple ...
--
Cordialement,

Jacques.
Avatar
bouchito
Merci.
ce cette aide mais malheureusement l'appli rappelée ne se met pas au
premier plan.
Je vais essayer d'y intégrer la méthode zorder au niveau de
l'activate.

Merci je vous tiens au courant.