Hey, Hey
Da ich mich seit ein paar tagen mit dem System.Timers.Timer und dem Invoken rum ärgere.
Wollte ich noch mal bisschen was Fragen.
Ich Habe nun alles Invokt und bla...aber trz. mag er mir die Prozesse nicht Anzeigen geschweigenden irgendwas...
Verstehe einfach nicht wo das Problem Liegt...
LG
Da ich mich seit ein paar tagen mit dem System.Timers.Timer und dem Invoken rum ärgere.
Wollte ich noch mal bisschen was Fragen.
Ich Habe nun alles Invokt und bla...aber trz. mag er mir die Prozesse nicht Anzeigen geschweigenden irgendwas...
Verstehe einfach nicht wo das Problem Liegt...
VB.NET-Quellcode
- Imports System.Timers
- Imports System
- Public Class TaskManager
- Private Shared aTimer As System.Timers.Timer
- Public Shared Sub Main()
- aTimer = New System.Timers.Timer()
- AddHandler aTimer.Elapsed, AddressOf LoadProcesses
- aTimer.Interval = 20000
- aTimer.Enabled = True
- aTimer.AutoReset = True
- End Sub
- Private Shared Sub LoadProcesses(source As Object, e As ElapsedEventArgs)
- TaskManager.BeginInvoke(Sub()
- Dim oItem As ListViewItem
- With TaskManager.ListView1
- .Items.Clear()
- For Each oProcess As Process In Process.GetProcesses
- oItem = .Items.Add(oProcess.ProcessName)
- Try
- oItem.SubItems.Add(oProcess.MainModule.FileName)
- Catch
- oItem.SubItems.Add("")
- End Try
- oItem.SubItems.Add(oProcess.Id.ToString)
- oItem.SubItems.Add(oProcess.PrivateMemorySize64.ToString("N0"))
- Next
- End With
- End Sub)
- End Sub
- Private Sub TaskManager_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Main()
- End Sub
- End Class
LG