ProgressBar mit Prozentanzeige

[Newbie]

Endlich habe ich es hinbekommen.

Man muss in Visual Studio 2005 das Projekt Steuerelementen - Bibliothek erstellen.

Ich nenne das Projekt PercentBar.

Darin dann eine neue Klasse einfügen.

In die Klasse folgenden Code eingeben:

Imports System.Drawing.Drawing2D

Public Class PercentBar
   Inherits PictureBox

   Private m_Value As Integer = 0
   Private m_Font As New Font("Arial", 8)

   Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
      MyBase.OnPaintBackground(pevent)

      Dim g As Graphics = pevent.Graphics
      Dim o As String = m_Value.ToString & " %"
      Dim r As Rectangle = New Rectangle(0, 0, (pevent.ClipRectangle.Width / 100) * m_Value, pevent.ClipRectangle.Height)
      Dim h As Int16 = g.MeasureString(o, m_Font).Height / 2
      Dim w As Int16 = g.MeasureString(o, m_Font).Width / 2
      
      'Farbe des Fortschrittsbalkens
      g.FillRectangle(Brushes.Blue, r)
      
      'Textfarbe
      g.DrawString(o, m_Font, Brushes.Red, pevent.ClipRectangle.Width / 2 - w, pevent.ClipRectangle.Height / 2 - h)
   End Sub

   Public Property Value() As Integer
      Get
         Return m_Value
      End Get
      Set(ByVal value As Integer)
         m_Value = value
         Me.Invalidate()
      End Set
   End Property
End Class

Das ganze kompilieren und die DLL in die Toolbox einfügen.

Dann kann man PercentBar als Steuerelement auswählen.