Rendre active une form

Version imprimable

03/11/2025, 12h13
Pyrof

Rendre active une form

Bonjour
J'ai crée une application, une forme (en vb) qui lance une autre application, en occurrence XnviewMP (pour visualiser des photos).
Ceci fonctionne correctement.
Mon soucis est que c'est la fenêtre XnviewMP qui reste active, je souhaiterai que mon appli redevienne active automatiquement.

Merci
03/11/2025, 13h22
bacelar

Qu'entendez-vous par "active"?
Avoir le focus clavier ?
Le plus simple, c'est de voir si le programme lancé dispose des options en ligne de commende pour "annuler" cette prise de focus (-background ou consort).
03/11/2025, 14h29
Pyrof

Rendre active une form

Bonjour,
Effectivement c'est le focus. Pour info je suis débutant, autodidacte et "retraité", ce qui explique que je ne maitrise pas le vocabulaire informatique.
Dans mon application, j'ai créer un raccourci sur la touche F2. Cette application lance l'application Xnview. Si a ce moment je fais F2, c'est le raccourci d'Xnview qui s'exécute et pas ce de mon application.
Il faut comme vous le dite après le lancement Xnview rendre le focus
Merci
04/11/2025, 11h53
bacelar

C'est l'un des nombreux inconvénients d'utiliser des application "complète" plutôt que des composants logiciels plus polyvalents, le manque de contrôle du bidule.
Si vous voulez vraiment utiliser un programme autonome, regardez les options en ligne de commande qu'offre ce programme.
Avec beaucoup de chance, il y aura l'option qui va bien.
Sinon, il y a beaucoup d'autre moyens mais rien de très fiable.
04/11/2025, 12h25
fred1599

Hello,

Citation:

J'ai crée une application, une forme (en vb) qui lance une autre application, en occurrence XnviewMP (pour visualiser des photos).

Très bien, où est le code reproduisant cette situation ?

Citation:

Mon soucis est que c'est la fenêtre XnviewMP qui reste active, je souhaiterai que mon appli redevienne active automatiquement.

Très bien, où est le code ?

Bonjour,

Si tu veux ouvrir ton application photo pendant x secondes puis revenir à ton application sans pouvoir utiliser les handles de ton application 'complète' il faut procéder autrement. De plus si la fermeture ne se produit pas il faut aussi prévoir une roue de secours avec kill.

Je te donne un exemple complet à adapter que j'utilise. Tu ouvre un nouveau form1 et tu y met un button1 :

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
41
42
43
44
45
46
47
 Imports System.Diagnostics
Imports System.Threading.Tasks
 
' Colle ce Sub dans la classe Form1.
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim proc As Process = Nothing
    Try
        Dim startInfo As New ProcessStartInfo("cmd.exe") With {
            .UseShellExecute = True
        }
        proc = Process.Start(startInfo)
        If proc Is Nothing Then
            MessageBox.Show("Impossible de démarrer cmd.exe", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
 
        ' Attendre 5 secondes
        Await Task.Delay(5000)
 
        ' Tenter une fermeture propre
        If Not proc.HasExited Then
            Try
                proc.CloseMainWindow()
                ' attendre 2s pour la fermeture propre
                If Not proc.WaitForExit(2000) Then
                    ' forcer la terminaison (inclut l'arbre si supporté)
                    Try
                        proc.Kill(entireProcessTree:=True)
                    Catch exKill As Exception
                        ' fallback si la surcharge n'est pas disponible
                        If Not proc.HasExited Then proc.Kill()
                    End Try
                End If
            Catch ex As Exception
                ' en dernier recours, forcer la terminaison
                Try
                    If Not proc.HasExited Then proc.Kill()
                Catch
                End Try
            End Try
        End If
    Finally
        If proc IsNot Nothing Then
            proc.Dispose()
        End If
    End Try
End Sub