문자열 사용자 입력 유효성 검사

Question

내 문제는 사용자가 "a, b, c 또는 d"만 입력 할 수 있도록하려는 것입니다. 사용자가 문자를 입력 할 수있는 것보다 네 글자 중 하나를 입력하지 않으면 오류가 발생합니다. 난 숫자 데이터 (try catch를 사용하여)와 비슷한 것을하는 리소스 만 찾을 수있었습니다. 모든 사이트 또는 힌트가 좋을 것입니다.

   If String.Compare(TextBox2.Text, "a", True) = 0 AndAlso String.Compare(TextBox21.Text, "a", True) = 0 Then 
       'MessageBox.Show("A") 
       totCorrect = totCorrect + corAns 
      ElseIf String.Compare(TextBox2.Text, "b", True) = 0 AndAlso String.Compare(TextBox21.Text, "b", True) = 0 Then 
       'MessageBox.Show("B") 
       totCorrect = totCorrect + corAns 
      ElseIf String.Compare(TextBox2.Text, "c", True) = 0 AndAlso String.Compare(TextBox21.Text, "c", True) = 0 Then 
       'MessageBox.Show("C") 
       totCorrect = totCorrect + corAns 
      ElseIf String.Compare(TextBox2.Text, "d", True) = 0 AndAlso String.Compare(TextBox21.Text, "d", True) = 0 Then 
       'MessageBox.Show("D") 
       totCorrect = totCorrect + corAns 
      Else 
       totWrong = totWrong + wrgAns 
       Label13.Visible = True 
      End If 

Answer 1

이는 Call allowableChar.AddRange(...)뿐만 아니라 목록에 대문자를 추가 트릭을

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress 

    Dim allowableChar As New List(Of Char) From {"a"c, "b"c, "c"c, "d"c} 

    Call allowableChar.AddRange(allowableChar.Select(Function(c) Convert.ToChar(c.ToString().ToUpper())).ToList()) 

    If Not (allowableChar.Contains(e.KeyChar) OrElse e.KeyChar = Convert.ToChar(Keys.Delete) OrElse e.KeyChar = Convert.ToChar(Keys.Back)) Then 
     e.Handled = True 
    End If 

End Sub 

을 수행해야합니다. 지금은 메소드가 실행될 때마다 새로운 목록을 생성합니다. 이는 약간 낭비입니다.이 코드를 사용하면 허용되는 chars 목록에 클래스 수준 변수를 지정하고 채울 것을 제안합니다. 양식의 생성자에서 한 번.

는 각 유형의 문자 한 번,이 사용할 수 있도록하려면 :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress 

    Dim allowableChar As New List(Of Char) From {"a"c, "b"c, "c"c, "d"c} 

    Call allowableChar.AddRange(allowableChar.Select(Function(c) Convert.ToChar(c.ToString().ToUpper())).ToList()) 

    If Not (allowableChar.Contains(e.KeyChar) OrElse e.KeyChar = Convert.ToChar(Keys.Delete) OrElse e.KeyChar = Convert.ToChar(Keys.Back)) Then 
     e.Handled = True 
    Else 
     If Me.TextBox1.Text.Count(Function(c) c = e.KeyChar) >= 1 Then 
      e.Handled = True 
     End If 
    End If 

End Sub