Tipp 0053 Kuchendiagramm erstellen
Autor/Einsender:
Datum:
  Michael Werner
06.09.2004
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Mit Hilfe der GDI+-Methode Graphics.FillPie lassen sich Kreissegmente farblich absetzen und so über einen Timer eine Art Fortschrittsanzeige in Prozent als Kuchendiagramm grafisch darstellen.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim g As Graphics = Me.CreateGraphics
  Dim rect As Rectangle = New Rectangle(50, 30, 200, 200)
  Dim rect2 As Rectangle = New Rectangle(70, 30, 200, 200)
  Dim bx As Long = -90
  Dim by As Long

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    If Button1.Text = "&Start" Then
      Timer1.Interval = 1
      Timer1.Enabled = True
      Dim mx As Single = -90
      Dim my As Single = 360
      by = 0
      g.FillPie(New SolidBrush(Color.DarkMagenta), rect2, mx, my)
      g.FillPie(New SolidBrush(Color.Magenta), rect, mx, my)
      Button1.Text = "&Stop"
    Else
      Timer1.Enabled = False
      Button1.Text = "&Start"
    End If
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Timer1.Tick
    by += 1
    g.FillPie(New SolidBrush(Color.Blue), rect, bx, by)
    Label1.Text = CStr(by * 100 \ 360) & " %"
    If by >= 360 Then
      Timer1.Enabled = False
    End If
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
ProgressBar mit GDI+
Balkendiagramm aus Zufallszahlen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,1 kB) Downloads bisher: [ 1140 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Donnerstag, 29. Dezember 2011