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

Signaler
-
 Utilisateur anonyme -
Bonjour, je voudrais afficher toute les applications ouverts EN PREMIER PLAN(se qui sont dans la bar windows en bas).

5 réponses

Messages postés
15780
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
6 avril 2021
529
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.
Messages postés
32041
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
8 avril 2021
345
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

Messages postés
32041
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
8 avril 2021
345
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
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).

Messages postés
32041
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
8 avril 2021
345
Tu as regardé le code que je t'ai donné ?
Oui mais il me mais des choses qui est en arriere plan.
Messages postés
32041
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
8 avril 2021
345
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....

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