@Amelie Ohne
Spoiler anzeigen
System.ComponentModel
und ohne Overrides
, aber mit anderen Namen der Properties:VB.NET-Quellcode
- Public Class UserControl1
- Private lblhight As Integer
- Private lineStop As Integer
- Private LineColor As Color
- Public Sub New()
- InitializeComponent()
- LineColor = Label1.ForeColor
- Label1.BackColor = Color.Transparent
- MyForeColor = Color.Red
- End Sub
- Public Property MyText As String
- Get
- Return Me.Label1.Text
- End Get
- Set(value As String)
- Me.Label1.Text = value
- End Set
- End Property
- Public Property ColorLine As Color
- Get
- Return LineColor
- End Get
- Set(value As Color)
- LineColor = value
- Invalidate()
- End Set
- End Property
- Public Property MyForeColor As Color
- Get
- Return Label1.ForeColor
- End Get
- Set(value As Color)
- Label1.ForeColor = value
- Label1.Invalidate()
- End Set
- End Property
- Protected Overrides Sub OnPaint(e As PaintEventArgs)
- MyBase.OnPaint(e)
- lblhight = Label1.Height - 3
- lineStop = Label1.Width + 5
- e.Graphics.Clear(BackColor)
- Using pen As Pen = New Pen(LineColor, 2)
- e.Graphics.DrawLine(pen, 0, lblhight, lineStop, lblhight)
- End Using
- Me.Height = Label1.Height + 6
- Me.Width = lineStop + 3
- End Sub
- End Class
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert!
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert!