![]() |
|
Tipp 0093
|
BorderStyle-Eigenschaft erweitern
|
 |
|
Autor/Einsender:
Datum: |
|
Klaus Raudszus
05.11.2005 |
|
| Entwicklungsumgebung: |
|
VB.Net 2003 |
| Framework: |
|
1.1 |
|
|
|
Mit einer Komponentenklasse kann die BorderStyle-Eigenschaft von Steuerelementen erweitert werden.
Mit der Methode ControlPaint.DrawBorder3D kann der Rahmenstil von Controls (hier Label)
beeinflusst werden.
|
|
In diesem Beispiel wird die BorderStyle-Eigenschaft des Labels erweitert. Das Label verfügt standardmäßig
nur über 3 BorderStyle-Eigenschaften: None, FixedSingle und Fixed3D.
Dieser Tipp stellt 10 verschiedene BorderStyles für ein Label bereit.
|
|
| |
Public Class clsBorderLabel
Inherits Label
Public Enum eBorder3DLabelStyle
Adjust = Border3DStyle.Adjust
Bump = Border3DStyle.Bump
Etched = Border3DStyle.Etched
Flat = Border3DStyle.Flat
Raised = Border3DStyle.Raised
RaisedInner = Border3DStyle.RaisedInner
RaisedOuter = Border3DStyle.RaisedOuter
Sunken = Border3DStyle.Sunken
SunkenInner = Border3DStyle.SunkenInner
SunkenOuter = Border3DStyle.SunkenOuter
End Enum
Private m_BorderLabelStyle As eBorder3DLabelStyle
Public Sub New()
m_BorderLabelStyle = Border3DLabelStyle.Adjust
End Sub
Public Property Border3DLabelStyle() As eBorder3DLabelStyle
Get
Return m_BorderLabelStyle
End Get
Set(ByVal Value As eBorder3DLabelStyle)
m_BorderLabelStyle = Value
Invalidate()
End Set
End Property
Protected Overrides Sub OnPaintBackground(ByVal pevent As _
PaintEventArgs)
MyBase.OnPaintBackground(pevent)
ControlPaint.DrawBorder3D(pevent.Graphics, _
pevent.ClipRectangle, m_BorderLabelStyle)
End Sub
End Class
|
|
|
|
|
|
|
| Windows-Version |
| 98/SE |
 |
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
|
Download (7,8 kB)
|
Downloads bisher: [ 547 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 