Hallo zusammen,
ich hab mal wieder ein Problem...
ich möchte mir einen kleinen SystemMonitor zusammenbasteln und habe folgendes Problem...
Der Code ist noch ganz einfach aber irgendwie wird der Text des CoreLabels nicht aktualisiert wenn der Timer tick kommt...
Das Label wird nur einmalig beschrieben und dann nie wieder...??? Beim Debug wird der
Hoffe ihr könnt mir helfen
Danke
ich hab mal wieder ein Problem...
ich möchte mir einen kleinen SystemMonitor zusammenbasteln und habe folgendes Problem...
Der Code ist noch ganz einfach aber irgendwie wird der Text des CoreLabels nicht aktualisiert wenn der Timer tick kommt...
Das Label wird nur einmalig beschrieben und dann nie wieder...??? Beim Debug wird der
Hoffe ihr könnt mir helfen
Danke
VB.NET-Quellcode
- Imports System
- Imports System.IO
- Imports System.Environment
- Public Class Form1
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Dim Core As Integer
- For Core = 0 To Environment.ProcessorCount - 1 Step 1
- Dim CoreLable As New Label
- With CoreLable
- .Name = "CoreLable_" & Core.ToString
- .Height = 20
- .Width = 120
- .BackColor = Color.Beige
- .Location = New System.Drawing.Point(20, 20 + (Core * 25))
- End With
- Me.Controls.Add(CoreLable)
- Next
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
- Dim Core As Integer
- For Core = 0 To Environment.ProcessorCount - 1 Step 1
- Dim CoreCounter = New PerformanceCounter("Processor", "% Processor Time", Core.ToString)
- Me.Controls("CoreLable_" & Core.ToString).Text = "Core #" & Core.ToString & " Usage " & CInt(CoreCounter.NextValue()).ToString & "%"
- Next
- End Sub
- End Class