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]

ASP.NET Core - Der Einstieg

In nur 3 Tagen lernen Sie, wie man mit ASP.NET Core und den Technologien MVC, Entity Framework, WebAPI und Razor professionelle Web-Anwendungs-Architekturen aufbaut. Diese Schulung ist der perfekte Einstieg, um datengetriebene und präsentations-orientierte Applikationen auf Basis der ASP.NET Core Plattform zu erstellen.

Visual Studio Team Foundation Server 2017/2015 (TFS) - Komplett 

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!