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
      g.FillRectangle(Brushes.LightBlue, r)
      g.DrawString(o, m_Font, Brushes.Black, 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

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control