Hallo, ich lese mich gerade in Vererbungen von verschiedenen Controls rein, um selbst welche zu erstellen und an meine Wünsche anzupassen.
Jedoch gibt es hier eine Frage, anscheinend nirgends wo steht - oder ich bin einfach nur ignorant..
Woher kommt der Wert in Value in der Zeile 28 im Quellcode ?
Die Eigenschaft FillColor übergibt ja keine Variable beim Start.
Danke für s Beantworten schon im Voraus
Jedoch gibt es hier eine Frage, anscheinend nirgends wo steht - oder ich bin einfach nur ignorant..
Woher kommt der Wert in Value in der Zeile 28 im Quellcode ?
Die Eigenschaft FillColor übergibt ja keine Variable beim Start.
Danke für s Beantworten schon im Voraus
VB.NET-Quellcode
- Public Class BetterCheckBox
- Inherits CheckBox
- Private CenterSquareColor As Color = Color.BlanchedAlmond
- Private CenterSquareImage As Bitmap
- Private CenterSquare As New Rectangle(3, 4, 10, 12)
- Protected Overrides Sub OnPaint _
- (ByVal pEvent As _
- System.Windows.Forms.PaintEventArgs)
- MyBase.OnPaint(pEvent)
- If Me.Checked Then
- If CenterSquareImage Is Nothing Then
- pEvent.Graphics.FillRectangle(
- New SolidBrush(
- CenterSquareColor),
- CenterSquare)
- Else
- pEvent.Graphics.DrawImage(
- CenterSquareImage,
- CenterSquare)
- End If
- End If
- End Sub
- Public Property FillColor() As Color
- Get
- FillColor = CenterSquareColor
- End Get
- Set(ByVal Value As Color)
- CenterSquareColor = Value
- End Set
- End Property
- Public Property FillImage() As Bitmap
- Get
- FillImage = CenterSquareImage
- End Get
- Set(ByVal Value As Bitmap)
- CenterSquareImage = Value
- End Set
- End Property
- End Class