[VB6]Passer le focus à une instance précedente

Version imprimable

02/09/2003, 15h13
Jeremiah

[VB6]Passer le focus à une instance précedente

Citation:

If (app.previnstance = True) Then
.....End
End If

Avant le End, j'aimerais passer le focus à l'instance précédente. Y a-t-il une commande précise ? Ou il faut passer par l'API ?
Bref, j'en sais rien et j'ai besoin de vous...
04/09/2003, 09h47
khany

:D salut !

Si tu veux remettre le focus sur un contrôle, utilise MonControle.SetFocus, c'est tout !
04/09/2003, 12h15
Jeremiah

Citation:

Envoyé par khany

:D salut !

Si tu veux remettre le focus sur un contrôle, utilise MonControle.SetFocus, c'est tout !

Non, c'est passer le focus à une autre application que je veux faire.

Si mon application est déjà lancée, et que l'utilisateur veut la relancer, la nouvelle instance vérifie l'existence d'une précédente, et réactive celle-ci...
(p.ex.: MSN Messenger (sans le Polygamy))
06/09/2003, 17h08
khany

:D salut !

Sorry, j'avais pas bien compris !

Je crois qu'il existe une méthode (ou API) qui te permet de trouver ce qui est en cours d'exécution mais je ne sais plus quoi !!!

As-tu regarder dans la liste des API ???
06/09/2003, 18h44
Jeremiah

Ben, en fait, j'y pige rien (ou presque) à l'API ... donc, si une bonne âme pouvait m'aider à trouver mon chemin ...

moi, j'ai essayer un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim aName As String
    Dim hwndPrev 'As SysInt
 
    aName = Me.Caption  ' nom de fenêtre a rechercher
    If App.PrevInstance Then    ' cherche une instance de programme précédente
        Me.Caption = "" 'masque le nom de la fenêtre active
        hwndPrev = FindWindow(vbNullString, aName)  ' recherche l'handle de l'instance précedente
        If hwndPrev <> 0 Then   ' si instance trouvée
            MsgBox "Le programme est déjà lancé"
            Call ShowWindow(hwndPrev, SW_SHOWMAXIMIZED)
            Call SetFocusAPI(hwndPrev)
            Unload Me
            End
        End If
    End If

mais, ça ne faisais pas toujours ce que je voulais ... j'ai mis ça en suspend pour l'instant, mais ça peut surement t'aider !

pour ce qui est des déclaration :

Code:

1
2
3
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Public Declare Function SetFocusAPI Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long

08/09/2003, 11h15
Jeremiah

Michi bieng, je vais tester d'ici peu... tout de suite en fait...
08/09/2003, 11h27
Jeremiah

Après test, ben, ... y a un sacré bug ... lorsque la 2e instance se lance, G bien le MsgBox, une des instances (je sais pas encore laquelle) se termine mais l'application restante ne prends pas le focus et disparait de la barre des tâches...

EDIT : Impossible d' "activer" l'instance restante... Même avec le gestionnaire des tâches de WinXP : Mettre au premier plan, Basculer vers, agrandir, rien ne marche.
08/09/2003, 11h38
bhaal76

oula, moi j'avais essayer a l'époque sur le 98se, pas sous xp ...

ainsi, c'est différent, c'est toujours bon a savoir ... les API(s) ont dut changé
08/09/2003, 11h42
Jeremiah

Citation:

Envoyé par bhaal76

oula, moi j'avais essayer a l'époque sur le 98se, pas sous xp ...

ainsi, c'est différent, c'est toujours bon a savoir ... les API(s) ont dut changé

Certaines, oui, ce qui est vacjhement ch**** :evil:
15/09/2003, 21h55
Jeremiah

Citation:

Envoyé par Jeremiah

Personne ne sait ou tout le monde s'en fout :?: :cry:
16/09/2003, 08h36
bhaal76
je viens de me rendre compte que je ne t'ai pas tout donné l'autre jour, scuse moi :oops:

il te manque çà
Code:

1 2 3 4 5 6 Public Const SW_HIDE = 0 Public Const SW_SHOWNORMAL = 1 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_RESTORE = 9 Public Const SW_MINIMIZE = 6
d'ou la disparission de ta fenetre ... :?

par contre, si je me souviens bien, j'avais parfois le même probleme que toi, c'est à dire que la fenetre ne prenait pas le focus ... je crois que çà se passais lorsque la fenetre qui devais prendre le focus etait minimiser !
16/09/2003, 08h43
bhaal76

rectification, je viens de tester a nouveau et je n'ai plus le problème ...

il y a toutefois une différence entre mon test et l'appli que j'avais a l'époque : mon appli était une MDI

je vais pousser plus loin pour voir, mais le code que je t'ai donné marche sous 98SE
16/09/2003, 10h01
Jeremiah

Yoo-Hoo, ça marche comme ça ...

Merci bhall, et je ne t'en veux pas...