Ich will nur den Brief zur Aufnahme in die textbox auf vb.net

Regex ist der sauberste Weg, dies zu tun. Allerdings fragte Sie den langen Weg...

Dies funktioniert, indem alle groß-und Kleinbuchstaben Buchstaben aus einem string hinterließ etwas anderes. Wenn wir dann sehen, wie lange stringname.length die Zeichenkette ist, nach der Entfernung abgeschlossen ist, und finden Sie die Zahl null ist, dann ist die überprüfung bestanden hat. Allerdings, wenn die Anzahl größer als null ist, dann wird die Zeichenfolge nicht enthalten Buchstaben.

If (TextBox1.Text <> "") Then

    Dim userInput As String = TextBox1.Text
    Dim filteredUserInput As String = userInput

    Dim listOfLetters As String() = New String() {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    ' go through each letter in the 'listOfLetters' array and replace that letter with.. nothing
    For Each letter In listOfLetters
        filteredUserInput = Replace(filteredUserInput, letter, "")
    Next

    ' now we have done the work - count how many characters are left in the string, if it is more than 0 we have invalid characters
    If (filteredUserInput <> "") Then
        MsgBox("This failed validation, contains invalid chars (" + Str(filteredUserInput.Length) + ")")
    Else
        MsgBox("This passed validation")
    End If

End If

Oder, wenn Sie es wollen-Funktion-freundlich..

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If (TextBox1.Text <> "") Then

        Dim userInput As String = TextBox1.Text
        ' if the 'isThisAValidString()' returns true then it is a valid (and has not faild validation) a-zA-Z
        If (isThisAValidString(userInput) = True) Then
            MsgBox("This is valid")
        Else
            MsgBox("This is not valid")
        End If

    End If

End Sub

Function isThisAValidString(input As String)

    Dim userInput As String = input
    Dim filteredUserInput As String = userInput

    Dim listOfLetters As String() = New String() {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    ' go through each letter in the 'listOfLetters' array and replace that letter with.. nothing
    For Each letter In listOfLetters
        filteredUserInput = Replace(filteredUserInput, letter, "")
    Next

    ' now we have done the work - count how many characters are left in the string, if it is more than 0 we have invalid characters
    If (filteredUserInput <> "") Then
        ' this failed!
        Return False
    Else
        'this passed
        Return True
    End If

End Function

Dies sollte helfen, sollte es für jeden anderen text ein, z.B. Eingabe-Felder (peudo)

enter code here 

textbox1.textchanged

Dim check, check2 as Boolean

check = textbox1.text wie "[A-Za-z]" ' prüft für die Buchstaben
check2 = textbox1.text wie "[0-9]" ' prüft für die nicht Buchstaben

wenn check = true und check2 = false then
Anhängen von text
elseif check = false oder check2 = true dann
dont text anfügen

hoffe es hilft

Zunächst sollten Sie beachten, dass Sie Unicode verwenden.

Zweite, Unicode ist kompliziert. Insbesondere .NETTO-Strings in UTF-16 code-Einheiten, ein oder zwei davon Kodieren, ein codepoint. Auch einige codepoints sind "kombinierte Zeichen"—Sie können es nicht ertragen, auf Ihre eigene, aber oft erscheinen die einzeln oder vermehrt nach Buchstaben.

Unten ist die prüflogik. Es geht durch den string und prüft, ob die erste codepoint jedes text-element (aka grapheme) ist ein Unicode-Zeichen.

Dim input = "ØysteinRene"+ Char.ConvertFromUtf32(&H301) +"e Galois" 
'COMBINING ACUTE ACCENT' (U+0301)
Dim etor = System.Globalization.StringInfo.GetTextElementEnumerator(input)
While (etor.MoveNext()) 
    Dim grapheme = etor.GetTextElement()
    ' check the first codepoint in the grapheme 
    ' (others will only be "combining characters")
    If Not Char.IsLetter(grapheme,0) Then 
        Throw New Exception("Your input doesn't match my idea of a name at """  _
                             + grapheme + """")
    End If
End While

BTW—Sie haben einen sehr engen Blick auf, was ein name ist. Ich warf in den Raum zu brechen, ein Missverständnis; Das ist ein eindeutiger Fall. Aber im Allgemeinen, ich möchte nicht, um Benutzer zu sagen, dass ich über Ihren Namen ungültig zu sein.