Public Class cExTextBox
    ' abgeleitet von Textbox
    Inherits TextBox
 
    ' zusätzliches Event für zusätzliches Ereignis
    Public Event evntSelectionAll()
 
    ' Funktionsfreigabe
    Private _bolSelectionAll As Boolean = True
    Public Property SelectionAll() As Boolean
        Get
            Return _bolSelectionAll
        End Get
        Set(ByVal value As Boolean)
            _bolSelectionAll = value
        End Set
    End Property
 
    ' SelectAll bei Click und Enter, Event feuern
    Private Sub TextBox_Enter_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Enter, MyBase.Click
        If SelectionAll Then
            Me.SelectAll()
            RaiseEvent evntSelectionAll()
        End If
    End Sub
 
End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]