Windows 8 Task-Manager Tracker Control

Jonas Jelonek · 5. Juli 2013, 15:28

Guten Tag

In Windows 8 hat Microsoft den Task-Manager komplett überarbeitet und anschaulicher gestaltet. Im Tab Leistung findet man nun auch die Auslastung verschiedener Geräte schön in einem Tracker Control dargestellt wie auf folgendem Bild.

Da mir dieses Control sehr gut gefällt, habe ich mal versucht, dieses nachzubauen. Doch jetzt hänge ich fest.
Im Anhang befindet sich das Projekt.
Ich habe da zurzeit zwei Probleme:

1. Bei mir kommt kein flüssiger Übergang, also das Control flackert immer.
2. Ich komme nicht darauf, wie ich die Linien, die den Wert anzeigen, zeichne.

Da ich diese Probleme schon lange habe und bisher keine Hilfe erhalten habe, möchte ich euch hier jetzt fragen und hoffe, ich erhalte hier Hilfe.

Vielen Dank im Voraus

MfG

Jonas Jelonek

iEi · 5. Juli 2013, 15:31

Dir ist klar das Gather in der MetroSuite schon einen MetroTracker gemacht hat ne ?

VincentTB · 5. Juli 2013, 15:42

Für deine Striche würde ich ne List(Of Points) nehmen.

Jonas Jelonek · 5. Juli 2013, 15:47

Das weiß ich nur ich nehme nicht gerne Controls/Libs anderer Programmierer.

EDIT: Und dann jedes Mal die ganzen Punkte aus der List abrufen und zeichnen. Hmm ... Gute Idee.

Jonas Jelonek · 7. Juli 2013, 12:27

Jetzt habe ich aber auch noch das Problem, dass das Control so flackert. Kann mir da einer behilflich sein?

Gather · 7. Juli 2013, 12:31

Mit mehreren Threads arbeiten etc.
Anscheinend wurde unsauber programmiert.

Zeig uns den Code und wir können dir vll helfen.

Jonas Jelonek · 7. Juli 2013, 12:34

Im Anhang ist das Projekt.

Option Strict On ist bei mir wie immer mit drin.

Gonger96 · 7. Juli 2013, 12:37

Haste Doublebuffer drin ?

Jonas Jelonek · 7. Juli 2013, 12:41

Nein. Undzwar aus gutem Grund. Wenn ich DoubleBufferd auf True setze, flackert das noch mehr als ohne DoubleBuffered.

Gonger96 · 7. Juli 2013, 12:43

Das wag ich mal zu bezweifeln. Wenn der Doublebuffer an ist, wird zuerst auf eine Bitmap gezeichnet und diese dann aufs Fenster kopiert. Kannst du mal den Zeichenpart deines Codes posten

Jonas Jelonek · 7. Juli 2013, 12:44

VB.NET-Quellcode

Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
'Raster zeichnen
If Style = TrackerStyle.Processor Then
GridColor = Color.FromArgb(17, 125, 187)
ElseIf Style = TrackerStyle.Memory Then
GridColor = Color.FromArgb(139, 18, 174)
ElseIf Style = TrackerStyle.Disk Then
GridColor = Color.FromArgb(77, 166, 12)
ElseIf Style = TrackerStyle.Ethernet Then
GridColor = Color.FromArgb(167, 79, 0)
End If
.DrawRectangle(New Pen(New SolidBrush(GridColor)), 0, 0, Me.Width - 1, Me.Height - 1)
If GridLines = True Then DrawGrid()
DrawValues()
End With
End Sub
Private Sub DrawGrid()
Dim Rows As Integer = 20
Dim Columns As Integer = 30
Dim FactorX As Double = (Me.ClientSize.Width / Columns)
Dim FactorY As Double = (Me.ClientSize.Height / Rows)
Using [Graphics] As Graphics = CreateGraphics(), DrawingPen As New Pen(New SolidBrush(GridColor))
Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
For y As Integer = 0 To Rows
Graphics.DrawLine(DrawingPen, 0, CInt(y * FactorY), Me.Width, CInt(y * FactorY))
Next
For x As Integer = 0 To Columns + LocAdd
Graphics.DrawLine(DrawingPen, CInt((x * FactorX) - LocAdd), 0, CInt((x * FactorX) - LocAdd), Me.Height)
Next
End Using
End Sub
Private Sub DrawValues()
Dim GraphicPath As New Drawing2D.GraphicsPath
Using [Graphics] As Graphics = CreateGraphics()
Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
Graphics.DrawLine(New Pen(New SolidBrush(GridColor), 3), CInt(Me.Width - LocAdd), CInt(Me.Height - _Value), Me.Width, CInt(Me.Height - _Value))
End Using
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
LocAdd += 5
Me.Invalidate()
End Sub

Gonger96 · 7. Juli 2013, 12:48

Du benutzt CreateGraphics, daran wirds vielleicht liegen. Nimm das Graphikobjeckt ausm PaintEvent und stell den Doublebuffer auf True. Dann vielleicht noch in anderen Thread packn

LaMiy · 7. Juli 2013, 12:49

Also ich hab mal ganz kurz probiert, da sollte eigentlich nichts flackern.
@Jonas Jelonek
Du erbst bei deinem "Control" ja gar nicht von einem Control, wieso ?

VB.NET-Quellcode

Option Strict On
Imports System.Drawing.Drawing2D
Public Class Tracker
Inherits Control
Public StartValue As Integer = 0
Public WithEvents t As New Timer With {.Interval = 500}
Sub New()
MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
MyBase.DoubleBuffered = True
t.Start()
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
For i As Integer = StartValue To Me.Width Step 40
e.Graphics.DrawLine(Pens.LightBlue, New Point(i, 0), New Point(i, Me.Height))
Next
e.Graphics.DrawRectangle(Pens.DodgerBlue, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
End Sub
Public Sub t_Tick() Handles t.Tick
'Hier muss noch was angepasst werden
StartValue -= 5
Me.Invalidate()
End Sub
End Class

Jonas Jelonek · 7. Juli 2013, 12:51

Hmm. Das ist mir bisher noch garnich aufgefallen. Sollte ich mal hinzufügen.
Bei Controls, die den Windows Controls ähneln, erbe ich immer von denen, aber wenn es andere Controls sind, denke ich meistens nicht dran.

Gonger96 · 7. Juli 2013, 12:54

Wichtig sind hier GDI Grundlagen, zeichne im Paint-Event o. vielmehr mit dessem Graphics-Object

Jonas Jelonek · 7. Juli 2013, 12:56

Ich habe mal von der Klasse BufferedGraphics gehört. Wäre es hier sinnvol die einzusetzen.

Gonger96 · 7. Juli 2013, 12:57

Gonger96 schrieb:

Wichtig sind hier GDI Grundlagen, zeichne im Paint-Event o. vielmehr mit dessen Graphics-Object

Jonas Jelonek · 7. Juli 2013, 14:03

Ich habe es schon mal geschafft, dass es nicht mehr flackert.

Jetzt muss ich es nur noch schaffen, die Linien zu zeichnen. Dazu werde ich mir die Idee von VincentTB vornehmen und versuchen, das hinzukriegen.

Gonger96 · 7. Juli 2013, 14:09

Totzdem solltest du e.Graphics verwenden und CreateGraphics vergessen

Artentus · 7. Juli 2013, 14:14

Schreib den Code einfach so um, wie Gonger es gesagt hat:

VB.NET-Quellcode

Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
'Raster zeichnen
If Style = TrackerStyle.Processor Then
GridColor = Color.FromArgb(17, 125, 187)
ElseIf Style = TrackerStyle.Memory Then
GridColor = Color.FromArgb(139, 18, 174)
ElseIf Style = TrackerStyle.Disk Then
GridColor = Color.FromArgb(77, 166, 12)
ElseIf Style = TrackerStyle.Ethernet Then
GridColor = Color.FromArgb(167, 79, 0)
End If
.DrawRectangle(New Pen(New SolidBrush(GridColor)), 0, 0, Me.Width - 1, Me.Height - 1)
If GridLines = True Then DrawGrid(e.Graphics)
DrawValues(e.Graphics)
End With
End Sub
Private Sub DrawGrid(g As Graphics)
Dim Rows As Integer = 20
Dim Columns As Integer = 30
Dim FactorX As Double = (Me.ClientSize.Width / Columns)
Dim FactorY As Double = (Me.ClientSize.Height / Rows)
Using DrawingPen As New Pen(New SolidBrush(GridColor))
g.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
For y As Integer = 0 To Rows
g.DrawLine(DrawingPen, 0, CInt(y * FactorY), Me.Width, CInt(y * FactorY))
Next
For x As Integer = 0 To Columns + LocAdd
g.DrawLine(DrawingPen, CInt((x * FactorX) - LocAdd), 0, CInt((x * FactorX) - LocAdd), Me.Height)
Next
End Using
End Sub
Private Sub DrawValues(g As Graphics)
Dim GraphicPath As New Drawing2D.GraphicsPath
g.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
g.DrawLine(New Pen(New SolidBrush(GridColor), 3), CInt(Me.Width - LocAdd), CInt(Me.Height - _Value), Me.Width, CInt(Me.Height - _Value))
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
LocAdd += 5
Me.Invalidate()
End Sub

Windows 8 Task-Manager Tracker Control

Windows 8 Task-Manager Tracker Control

VB.NET-Quellcode

VB.NET-Quellcode

Gonger96 schrieb:

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben