Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case Asc(e.KeyChar)
            Case 65 To 90, 97 To 122 ' A -Z : a - z
            Case Else
                e.Handled = True
        End Select
    End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not ((System.Convert.ToInt32(e.KeyChar) >= 65 AndAlso _
        System.Convert.ToInt32(e.KeyChar) <= 90) OrElse _
           (System.Convert.ToInt32(e.KeyChar) >= 97 AndAlso _
           System.Convert.ToInt32(e.KeyChar) <= 122)) Then
            e.Handled = True
        End If
    End Sub

    Dim re As New System.Text.RegularExpressions.Regex("[a-zA-ZüöäÜÖÄß]")
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = Not re.IsMatch(e.KeyChar)
    End Sub

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP

"[a-zA-ZüöäÜÖÄß" & ChrW(8) & "]"