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
 
Weitere Links zum Thema
Dynamische Anpassung der Steuerelemente

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (7,8 kB) Downloads bisher: [ 552 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012