| |
VB.NET - Ein- und UmsteigerFillRectangle Prozente | | | Autor: Erichbru | Datum: 26.01.24 14:16 |
| ich habe eine Form auf der ein Rectangle gezeichnet wird
Dim rec As New Rectangle(0, 0, 200, 20)
g.DrawRectangle(Pens.Black, rec) nun möchte ich das rec ausfüllen mit 1,5, 20,0, oder ? Prozent geht das ?
als Status Anzeige quasi x % abgearbeitet
|||||||||||||||||||||||||||||||| 25,3 % zum Beispiel
||||||||||||||||| 75,7 %
die Werte kommen aus einer TextBox (double)
Beitrag wurde zuletzt am 26.01.24 um 14:21:32 editiert. | |
Re: FillRectangle Prozente | | | Autor: Erichbru | Datum: 26.01.24 17:35 |
| nach Recherche hier im Forum fündig geworden mit der PercentBar Class
hat es funktioniert es wird auch schön aktualisiert klappt ganz ordentlich und in der Anwendung relativ einfach
man kann auch anpassen schöne Sache
Public Class PercentBar
Inherits PictureBox
Private m_Value As Integer = 0
Private m_Font As New Font("Arial", 10)
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.LawnGreen, 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 Danke!
eure Kommentare nehme ich gerne hier entgegen, evtl. gibt es noch andre Beispiele
| |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|