Afficher tout les programme ouvert en premier plan [Résolu]

Messages postés
21
Date d'inscription
jeudi 19 avril 2018
Statut
Membre
Dernière intervention
16 août 2018
-
Bonjour, je voudrais afficher toute les applications ouverts EN PREMIER PLAN(se qui sont dans la bar windows en bas).
Afficher la suite 

5 réponses

Messages postés
13650
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 août 2019
298
0
Merci
Bonjour

ça n'est pas cohérent, si tu as 2 programmes dans la barre des taches, tu mets le premier en premier plan, puis tu mets le second.
Du coup, le premier passe au second plan.
Commenter la réponse de Whismeril
Messages postés
26148
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 août 2019
314
0
Merci
Bonjour,

C'est pas un truc du genre que tu cherches ( pour ma part j'ai trouvé en 5 secondes le lien suivant....)
http://www.visual-basic-tutorials.com/get-the-list-of-running-applications-in-visual-basic.htm

Imports System.Text
Imports System.Management
 
Public Class Form1 
 
    Public Shared Function getApplications() As String
        Dim a As New StringBuilder()
        Dim b As New Process()
        For Each b In Process.GetProcesses(".")
             Try
                If b.MainWindowTitle.Length > 0 Then
                    a.Append("Window Title:  " + b.MainWindowTitle.ToString() + Environment.NewLine)
                    a.Append("Process Name:  " + b.ProcessName.ToString() + Environment.NewLine)
                    a.Append(Environment.NewLine)
                End If
            Catch
            End Try
        Next
        Return a.ToString()
     End Function
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
 Handles Button1.Click
        TextBox1.Text = getApplications()
End Sub
 
End Class

jordane45
Messages postés
26148
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 août 2019
314 -
Et si tu veux seulement l'application active ( voir commentaire de whismeril ), tu dois pouvoir utiliser un truc du style
https://code.msdn.microsoft.com/windowsapps/How-to-get-the-title-of-4ec7f32f
Commenter la réponse de jordane45
Messages postés
21
Date d'inscription
jeudi 19 avril 2018
Statut
Membre
Dernière intervention
16 août 2018
0
Merci
Se que je veut dire c'est que dans le gestionnaire des tache, il y a la partie application et la partie processus en arriere plan, moi je veut afficher dans une listview se qu'il y a afficher dans la partie application dans le gestionnaire des tache. Exemple dans une listview je veut afficher chrome, gestionnaires des taches et capture d'écrans(avec la photo si dessous).

jordane45
Messages postés
26148
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 août 2019
314 -
Tu as regardé le code que je t'ai donné ?
Commenter la réponse de Locod_
Messages postés
21
Date d'inscription
jeudi 19 avril 2018
Statut
Membre
Dernière intervention
16 août 2018
0
Merci
Oui mais il me mais des choses qui est en arriere plan.
jordane45
Messages postés
26148
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 août 2019
314 -
Je n'ai pas testé... mais je peux supposer que les process (et non les applications que tu cherches à lister...) n'ont pas de MainWindowTitle
Il te suffit donc de tester si MainWindowTitle <> ""

Si j'ai raison... dis toi qu'un minimum de logique et quelques recherches sur le net t'auraient suffis pour trouver cette réponse par toi même....
Commenter la réponse de Locod_
Messages postés
21
Date d'inscription
jeudi 19 avril 2018
Statut
Membre
Dernière intervention
16 août 2018
0
Merci
Sa me mais rien.
Code :
 Public Shared Function getApplications() As String
        Dim a As New StringBuilder()
        Dim b As New Process()
        For Each b In Process.GetProcesses(".")
            Try
                If b.MainWindowTitle.Length <> "" Then
                    a.Append("Window Title:  " + b.MainWindowTitle.ToString() + Environment.NewLine)
                    a.Append("Process Name:  " + b.ProcessName.ToString() + Environment.NewLine)
                    a.Append(Environment.NewLine)
                End If
            Catch
            End Try
        Next
        Return a.ToString()
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
 Handles Button1.Click
        TextBox1.Text = getApplications()
    End Sub
Commenter la réponse de Locod_