Eigen taakbeheer

[HellupUandMe]

Heej weet iemand een tutorial om je eigen taakbeheer (task manager) te maken?
Ik gebruik Visual Basic 2005.

 

[Pitje1958]

Als ik het begrijp wil je een icon rechts in je taakbalk langs bv de tijdsaanduiding. Ik heb op school een soorgelijke oefening gemaakt. Gebruik in je formulier een ContextMenustrip en een NotifyIcon en geef daar de nodige items in wat je ermee wilt doen. Bij ieder item geef je ook de nodige broncode in bv
Bij de propertie van Notifylcon zet je visible op true
Bij de propertie van je formulier zet je ShowInTaskbar op False en Windowstate op minimized

Imports System.IO

Public Class Form1
Private Sub InternetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InternetToolStripMenuItem.Click
Process.Start("www.google.be")
End Sub

Private Sub RekenmachineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RekenmachineToolStripMenuItem.Click
Process.Start("calc.exe")
End Sub

Private Sub SluitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SluitenToolStripMenuItem.Click
Me.Close()
End Sub

Private Sub SysteeminfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysteeminfoToolStripMenuItem.Click
Dim station() As DriveInfo = DriveInfo.GetDrives()
Dim s As DriveInfo
Dim regel As String = ""
ShowInTaskbar = True
WindowState = FormWindowState.Normal
regel = regel & ("Totaal werkgeheugen: " & Math.Round((My.Computer.Info.TotalPhysicalMemory / 1024) / 1024) & " MB" & vbCrLf)
regel = regel & ("Beschikbaar werkgeheugen: " & Math.Round((My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024) & " MB" & vbCrLf & vbCrLf)
For Each s In station
If s.Name >= "E" Then
regel = regel & "CD ROM/ DVD: " & s.Name & vbCrLf & vbCrLf
Else
regel = regel & "Harde schijf: " & s.Name & vbCrLf
End If
If s.IsReady Then
regel = regel & "Totale ruimte: " & Math.Round(s.TotalSize / 1000000000) & " GB" & vbCrLf
regel = regel & "Beschikbare ruimte: " & Math.Round(s.TotalFreeSpace / 1000000000) & " GB" & vbCrLf & vbCrLf
End If
Next
regel = regel & "Besturingssysteem: " & My.Computer.InfSFullName & vbCrLf & vbCrLf

txtuitvoer.Text = regel
End Sub
End Class

Groeten


Pitje

 

[HellupUandMe]

Bedankt voor de moeite en ik kan dit zeker voor andere dingen gebruiken.
Maar dit is helaas niet wat ik nu zoek. Ik wil m'n eigen taakbeheer.
Als je in windows ctrl+alt+delete doet dan krijg je windows taakbeheer.
Daar staan alle processen die draaien en die kan je killen etc.
Nu wil ik dit zelf maken. Heeft iemand een idee hoe?