Afficher tout les programme ouvert en premier planRésolu

Question

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

Whismeril · Answer

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.

jordane45 · Answer

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

Utilisateur anonyme · Answer

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).

Utilisateur anonyme · Answer

Oui mais il me mais des choses  qui est en arriere plan.

Utilisateur anonyme · Answer

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

Afficher tout les programme ouvert en premier plan

5 réponses

Votre réponse

Discussions similaires