mit freundlichen Grüßen
Sven

Public Class TextBoxCC
    Inherits TextBox
    Private bg_farbe ' ursprüngliche Farbe vor Enter
 
    Public bgColor As Integer
    'Integervar, welche die BackgroundColor der Textbox beim Enter-Event steuert
    Public Property NewProperty() As Integer
        Get
            Return bgColor
        End Get
        Set(ByVal value As Integer)
            bgColor = value
        End Set
    End Property
 
 
    Private Sub TextBoxEx_Enter(sender As Object, e As EventArgs) Handles _
      Me.Enter
        bg_farbe = Me.BackColor
        Select Case bgColor
            Case 1
                Me.BackColor = Color.LightCyan
            Case 2
                Me.BackColor = Color.LightGoldenrodYellow
            Case Else
                Me.BackColor = Color.LightCyan
        End Select
 
 
    End Sub
 
    Private Sub TextBoxEx_Leave(sender As Object, e As EventArgs) Handles _
      Me.Leave
        Me.BackColor = bg_farbe
    End Sub
 
End Class

mit freundlichen Grüßen
Sven

Public bgColor As Integer
<System.ComponentModel.Browsable(True)> _
Public Property NewProperty() As Integer
    Get
        Return bgColor
    End Get
    Set(ByVal value As Integer)
        bgColor = value
    End Set
End Property

mit freundlichen Grüßen
Sven

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist