Label.Text wird nicht übernommen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Schrotti555.

    Label.Text wird nicht übernommen

    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


    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Environment
    5. Public Class Form1
    7. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    8. Dim Core As Integer
    10. For Core = 0 To Environment.ProcessorCount - 1 Step 1
    11. Dim CoreLable As New Label
    13. With CoreLable
    14. .Name = "CoreLable_" & Core.ToString
    15. .Height = 20
    16. .Width = 120
    17. .BackColor = Color.Beige
    18. .Location = New System.Drawing.Point(20, 20 + (Core * 25))
    19. End With
    21. Me.Controls.Add(CoreLable)
    22. Next
    23. End Sub
    26. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    27. Dim Core As Integer
    29. For Core = 0 To Environment.ProcessorCount - 1 Step 1
    30. Dim CoreCounter = New PerformanceCounter("Processor", "% Processor Time", Core.ToString)
    31. Me.Controls("CoreLable_" & Core.ToString).Text = "Core #" & Core.ToString & " Usage " & CInt(CoreCounter.NextValue()).ToString & "%"
    32. Next
    34. End Sub
    35. End Class

    Ja Timer wurde gestartet :)

    Hab jetzt schon rausgefunden das es nicht am am Label liegt sondern an dem PerformanceCounter...

    Wenn ich das Debuge

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    2. Dim Core As Integer
    3. Dim Usage As Integer
    5. For Core = 0 To Environment.ProcessorCount - 1 Step 1
    6. Dim CoreCounter = New PerformanceCounter("Processor", "% Processor Time", Core.ToString)
    7. Usage = CInt(CoreCounter.NextValue())
    8. Me.Controls("CoreLable_" & Core.ToString).Text = "Core #" & Core.ToString & " Usage " & Usage.ToString & "%"
    9. Next
    11. End Sub


    dann ist Usage = 0
    und CInt(CoreCounter.NextValue()) = irgendwas zwischen 0 und 100 (je nach Last)

    da passt doch was nicht ?( ?( ?(

    Warum löst Du das Ganze nicht einfach sauber mit einem UserControl?

    Beispiel:

    Code UserControl

    VB.NET-Quellcode

    1. Public Class CPUCounter
    2. Private _perCounter As PerformanceCounter
    4. Public Sub New(ByVal instanceName As String)
    5. InitializeComponent()
    7. _perCounter = New PerformanceCounter("Prozessor", "Prozessorzeit (%)", instanceName)
    9. Me.Label1.Text = "CPU" & instanceName
    11. CallValue()
    12. End Sub
    14. Public Sub CallValue()
    15. Dim value As Integer = Convert.ToInt32(_perCounter.NextValue())
    17. Me.Label2.Text = value.ToString("N0") & "%"
    18. Me.ProgressBar1.Value = value
    19. End Sub
    20. End Class


    Code Form:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents _t As New Timer
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. For i As Integer = 0 To Environment.ProcessorCount - 1
    6. Dim cC As New CPUCounter(i.ToString())
    8. Me.FlowLayoutPanel1.Controls.Add(cC)
    9. Next
    11. _t.Interval = 1000
    12. _t.Start()
    13. End Sub
    15. Private Sub _t_Tick(sender As Object, e As EventArgs) Handles _t.Tick
    16. For Each cC As CPUCounter In Me.FlowLayoutPanel1.Controls.OfType(Of CPUCounter)()
    17. cC.CallValue()
    18. Next
    19. End Sub
    20. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Habe spaßhalber mal näher angeschaut. Habe die Counters global in der Klasse definiert

    VB.NET-Quellcode

    1. Public Class MainForm
    2. Private _counters(Environment.ProcessorCount - 1) As PerformanceCounter
    3. Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    4. For index = 0 To Environment.ProcessorCount - 1
    5. _counters(index) = New PerformanceCounter("Processor", "% Processor Time", index.ToString)
    6. Dim lbl As New Label
    7. With lbl
    8. .Name = "ProcessorCounterLabel" & index.ToString
    9. .Height = 14
    10. .Width = 125
    11. .BackColor = Color.Black
    12. .ForeColor = Color.Yellow
    13. .Location = New Point(20, 20 + index * 25)
    14. End With
    15. Me.Controls.Add(lbl)
    16. Next
    17. Me.PerformanceCounterTimer.Interval = 500
    18. Me.PerformanceCounterTimer.Enabled = True
    19. End Sub
    21. Private Sub PerformanceCounterTimer_Tick(sender As System.Object, e As System.EventArgs) Handles PerformanceCounterTimer.Tick
    22. For index = 0 To _counters.Length - 1
    23. Dim counter = _counters(index)
    24. Dim lbl = DirectCast(Me.Controls("ProcessorCounterLabel" & index.ToString), Label)
    25. lbl.Text = String.Format("CPU #{0}, Usage: {1}", index, (counter.NextValue / 100).ToString("P"))
    26. Next
    27. End Sub
    28. End Class

Facebook
Telefonspende