Tipp 0015 Prozesse ermitteln
Autor/Einsender:
Datum:
  Michael Werner
01.06.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die Process.GetProcesses-Methode im System.Diagnostics-Namespace erstellt ein Array neuer Prozess-Komponenten und ordnet diese den vorhandenen Prozessressourcen zu. Mit den Eigenschaften ProcessName und ID der Klasse Process werden hier Name und ID der aktuellen Prozesse ausgelesen.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim oItem As ListViewItem

  Private Sub Form1_Load(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles MyBase.Load
    ListView1.View = View.Details
    ListView1.Columns.Add( _
          "ProcessName", 120, HorizontalAlignment.Left)
    ListView1.Columns.Add( _
          "ProcessID", 100, HorizontalAlignment.Left)
    FillListView()
  End Sub

  Private Sub AddItems(ByVal lvw As ListView, ByVal _
          sProperty As String, ByVal sValue As String)
    oItem = New ListViewItem(sProperty)
    oItem.SubItems.Add(sValue)
    lvw.Items.Add(oItem)
  End Sub

  Private Sub FillListView()
    Dim proc As Process
    Dim i As Integer

    Cursor.Current = Cursors.WaitCursor()

    For Each proc In Process.GetProcesses
      AddItems(ListView1, proc.ProcessName, proc.Id.ToString)
      i += 1
    Next proc

    Cursor.Current = Cursors.Default()
    Label1.Text = i.ToString
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    ListView1.Items.Clear()
    FillListView()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
Systemereignisse überwachen
Windows-Dienste auslesen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,2 kB) Downloads bisher: [ 1384 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012