Imports System.Windows.Forms
Imports System.Runtime.InteropServices
 
Public Class TextBoxECE
    Inherits TextBox
 
    Private Shared _changedeventenabled As Boolean = False
 
    'verhindert das OnChange Event
    Public Shared Property ChangedEventEnabled() As Boolean
        Set(ByVal value As Boolean)
            _changedeventenabled = value
        End Set
        Get
            Return _changedeventenabled
        End Get
    End Property
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        If _changedeventenabled Then MyBase.OnTextChanged(e)
    End Sub
 
    '*************************************************************************
    ' feuert SelectAll bei Click oder Enter
 
    Public Event evntSelectionAll()
    Private Shared _bolSelectionAll As Boolean = True
    Public Shared Property SelectionAll() As Boolean
        Get
            Return _bolSelectionAll
        End Get
        Set(ByVal value As Boolean)
            _bolSelectionAll = value
        End Set
    End Property
 
    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
Sven