Feedback

VB - TextBox mit Eingabefilter

Veröffentlicht von am 16.08.2019
(0 Bewertungen)
Wie der Titel es schon sagt, eine Textbox mit Eingabefilter.
Es können bestimmte Zeichen, ausdrücklich erlaubt, oder verboten werden.
Dabei spielt es keine Rolle, ob der Text per Tastatur, oder Zwischenablage eingegeben wird.
GFU-Schulungen  [Anzeige]

VB.NET Aufbau

Sie verfügen nach der Schulung über fundierte Kenntnisse in der Arbeit mit objektorientierten Modellen in VB.NET und können wiederverwendbare Komponenten eigenständig erzeugen.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

Option Strict On
Option Explicit On
Option Infer Off

Imports System.ComponentModel

Public Class TextBoxExtented : Inherits TextBox

    Private _FilterType As FilterType = FilterType.Forbidden
    <Category("Filter")>
    Public Property FilterType() As FilterType
        Get
            Return _FilterType
        End Get
        Set(ByVal value As FilterType)
            _FilterType = value
            Invalidate()
        End Set
    End Property

    Public _Filter As String = String.Empty
    <Category("Filter")>
    Public Property Filter() As String
        Get
            Return _Filter
        End Get
        Set(ByVal value As String)
            _Filter = value
            Invalidate()
        End Set
    End Property

    Private Sub Me_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged
        Dim caretPosition As Integer = SelectionStart
        Select Case FilterType
            Case FilterType.Allowed
                For Each _char As Char In Text.ToCharArray
                    If Not Filter.Contains(_char) Then
                        Text = Text.Replace(_char, String.Empty)
                    End If
                Next
            Case FilterType.Forbidden
                For Each _char As Char In Filter.ToCharArray
                    Text = Text.Replace(_char, String.Empty)
                Next
        End Select
        SelectionStart = caretPosition
    End Sub

End Class

Public Enum FilterType
    Allowed
    Forbidden
End Enum
Abgelegt unter TextBox, Filter, CustomControl, Control.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!