Hallo,
Hier ein code wie man einen eigenen Taskmanager programmieren kann.
Was wird benötigt
1 Listview = Listview1
1 Button = Button1, text = Prozess beenden
1 Button = Button2, text = aktualisieren
1 label = label1, text = Aktive Prozesse
1 label = label2, text = 0
so zum code:
form_load:
der anfang sollte klar sein also Check ist dann die Funktion die später kommt...
er stellt die view auf details und sortiert es und fügt 3 spalten hinzu
dann kommt die funktion check(die zeigt die prozesse in der listview an):
dann der button1 "killt" den Prozess:
und dann noch der button2(aktualisieren):
soo das war der code
lg Gugi
Hier ein code wie man einen eigenen Taskmanager programmieren kann.
Was wird benötigt
1 Listview = Listview1
1 Button = Button1, text = Prozess beenden
1 Button = Button2, text = aktualisieren
1 label = label1, text = Aktive Prozesse
1 label = label2, text = 0
so zum code:
form_load:
VB.NET-Quellcode
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Enabled = True
- Timer1.Interval = 10000
- Check()
- With ListView1
- .View = View.Details
- .Sorting = SortOrder.Ascending
- .FullRowSelect = True
- .Columns.Add("Prozess", 100, HorizontalAlignment.Left)
- .Columns.Add("Dateiname", 250, HorizontalAlignment.Left)
- .Columns.Add("pid", 50, HorizontalAlignment.Right)
- End With
- End Sub
der anfang sollte klar sein also Check ist dann die Funktion die später kommt...
er stellt die view auf details und sortiert es und fügt 3 spalten hinzu
dann kommt die funktion check(die zeigt die prozesse in der listview an):
VB.NET-Quellcode
- Private Function Check()
- ListView1.Items.Clear()
- Dim oItem As ListViewItem
- With ListView1
- 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)
- Next
- End With
- Label2.Text = ListView1.Items.Count
- End Function
dann der button1 "killt" den Prozess:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- With ListView1
- If .SelectedItems.Count > 0 Then
- Dim result As MsgBoxResult = MessageBox.Show("Aktuelle Prozess tatsächlich beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo)
- If result = MsgBoxResult.Yes Then
- Dim oProcess As Process = Process.GetProcessById(Val(.SelectedItems(0).SubItems(2).Text))
- Try
- oProcess.Kill()
- Catch ex As Exception
- Beep()
- MessageBox.Show("Fehler beim Beenden!" & vbCrLf & ex.Message.ToString)
- End Try
- Check()
- ElseIf result = MsgBoxResult.No Then
- End If
- End If
- End With
- End Sub
und dann noch der button2(aktualisieren):
soo das war der code
lg Gugi
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Gugi“ () aus folgendem Grund: Code bisschen überarbeitet