Discussion :

[Bouchito]

16 msg
Bonjour.

J'ai un programme VB6 géré avec une feuille mdiprincipale et des feuille filles. Ce programme se trouve dans la barre des tâches.
Je lance un programme externe en mode non bloquant dont je récupère l'id du process.Je programme principale en VB6 n'est pas iconisé mais passe juste en arrière plan.

Je laisse tourner ce programme externe et je passe à autre chose (style lecture d'email, ...etc ) de complètement différents de mes deux programmes.

J'aimerai savoir comment ré-afficher le programme externe lancé précédemment si je clique sur l'icone du programme VB6 si mon process existe toujours.
Je n'arrive pas à déterminer à quel évènement je fais appel quand on clique dans la barre des tâches pour réactiver un programme.

J'espère avoir été clair.

Il faudrait que les deux programmes ( le principale en VB6 et le second lancé en mode non bloquant ) donne l'ilusion de ne faire qu'un programme quand on manipule la barre des tâches.

Merci de votre aide

[XylonAkau]

___Ia ora na.

Je laisse tourner ce programme externe et je passe à autre chose (style lecture d'email, ...etc ) de complètement différents de mes deux programmes.

J'aimerai savoir comment ré-afficher le programme externe lancé précédemment si je clique sur l'icone du programme VB6 si mon process existe toujours.

___Faut-il comprendre qu'entre les deux paragraphes, le programme VB et le programme externe ont été réduits en icône dans la barre des tâches ?
A] Si oui,
1) vous pouvez utiliser la procédure Form_Resize qui est exécutée (notamment) à chaque fois que la propriété WindowState de la feuille est modifiée ;
2) pour accéder au programme externe, vous pouvez utiliser l'instruction AppActivate suivie du titre de la fenêtre ou de l'identificateur que vous avez récupéré. Reste à restaurer le programme ; je n'ai trouvé que cette solution - bien peu élégante, mais qui fonctionne dans mon test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim IPr as Long   '<- id du programme externe
 
Private Sub Form_Resize()
 
If WindowState <> 1 Then
  DoEvents: AppActivate IPr: DoEvents: SendKeys "% R": DoEvents: SendKeys "% R"
      ' VB semble dur de la feuille --^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
End If
 
End Sub

___Cela étant, si au lieu de cliquer sur l'icône du programme VB, on clique sur celle du programme externe, seul ce dernier sera évidemment restauré.
B] sinon,
1) le comportement est peut-être différent en dehors de XP mais
2) sous XP, il suffit de cliquer sur l'icône du programme choisi (VB ou externe) pour le remettre au premier plan, puisque

Le programme principal en VB6 [...] passe juste en arrière plan.

les deux programmes VB et externe n'ont apparemment pas à se trouver ensemble au premier plan ;
3) s'il faut malgré tout placer les deux programmes en avant-plan simultatnément, vous pouvez utiliser la même méthode qu'en A], en plaçant le code dans la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Paint()
 
DoEvents: AppActivate IPr: DoEvents: SendKeys "% R": DoEvents: SendKeys "% R"
   ' ^^^^^ ---  à simplifier  ---^^^    ---^^^    ---^^^
 
End Sub

C] dans les deux cas, une instruction on error goto... (ou on error resume next) pourrait être envisagée, pour pallier une éventuelle disparition (voulue ou non) du programme externe.
___Bonne réalisation de votre projet.