Focus sur application

Version imprimable

Bonjour à tous,

Je n'arrive pas à faire revenir mon application en "bringtofront" lorque je reclick sur mon .exe.

J'ai besoin qu'elle puisse revenir lorsque j'essais de la relancer.

Donc je créé un singleton de mon appli pour avoir une instace unique.

Lorsque je relance mon appli, je regarde si elle est lance et je fais un SetWindowsPos, mais ça ne fonctionne pas.

regardez plutot
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Sub Main() '--- creer une seule instance de l'application avec un mutex Dim z_app As SingleInstanceApp = New SingleInstanceApp("{ae144f-fd5fs1fd-fd1sf1s-d4fsd}") '-- handle Dim z_Handle As Integer Try If z_app.IsRunning Then '--- retour sur l'application si lancer l'appli une seconde fois z_Handle = FindWindow("", My.Application.Info.AssemblyName) SetWindowPos(z_Handle, 0&, 0&, 0&, 0&, 0&, &H40) Else ...
Je crois que j'utilise mal FindWindow....

Auriez vous une idée?
....

15/06/2009, 22h52
The_badger_man

Tuto ici : http://blogs.msdn.com/dev/archive/20...-e-2-fois.aspx

Petit probleme

Merci de ta réponse rapide.

J'ai donc adapter la classe à mon code mais la fonction SetForegroundWindow
ne fonctionne pas....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Sub Main()
        '--- creer une seule instance de l'application avec un mutex
        Dim z_app As SingleInstanceApp = New SingleInstanceApp("{dfs4f6sef-sfs-f1s-ef1s-e}")
        '-- barre tache windows
 
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
 
 
        Try
            If z_app.IsRunning Then
 
                ' On récupère la liste des process avec le bon nom
                Dim z_ProcessName As String = Process.GetCurrentProcess().ProcessName
                Dim z_processes As Process() = Process.GetProcessesByName(z_ProcessName)
 
                ' On va récupérer l'objet Process pour la première instance (ie la plus vieille)
                Dim z_oldestTime As DateTime = DateTime.Now
                Dim z_oldestProcess As Process = Nothing
 
                For Each p As Process In z_processes
                    If p.StartTime < z_oldestTime Then
                        z_oldestTime = p.StartTime
                        z_oldestProcess = p
                    End If
                Next
 
                ' Si on a trouvé la plus vieille instance
                If z_oldestProcess IsNot Nothing Then
                    ' On lui donne le focus
                    Try
                        SetForegroundWindow(z_oldestProcess.MainWindowHandle) 
                    Catch ex As Exception
                        DspErr(ex, "UH1ModCom", "Main")
                    End Try
 
                End If
 
 
            Else

Alors qu'elle trouve bien mon handle...
Bizarre, plus qu'étrange...

16/06/2009, 13h44
Jphilip74

J'ai trouvé! :)

Plutot qu'utiliser la fonction SetForegroundWindow, il faut utiliser la fonction AppActivate qui rend le focus de l'application.