判断TEXT中输入的内容是否在几个特定的数据之内?

Question

各位,我现在需要判断用户在界面中的TEXT1中输入的内容是否为几个限定的值(比如A1,A2,A3),该如何处理?是否有可以调用的函数?

Answer 1

select case text1.text
   case A1,A2,A3
     '处理
end select

Answer 2

各位,我的意思是,比如,text1.text 只能取(A1,A2,A3)三个值中一个,我现在要对用户的输入进行判断,即判断用户输入到TEXT1中的内容是否是A1,A2,A3中的一个,如何实现判断?

Answer 3

Private Sub Text2_Change()
    If Len(Text2) <= 2 Then
        If Len(Text2) = 2 And UCase(Text2) <> "A1" Then
            If Len(Text2) = 2 And UCase(Text2) <> "A2" Then
                If Len(Text2) = 2 And UCase(Text2) <> "A3" Then
                       Text2 = "只能输入A1，A2,A3"
                End If
            End If
        End If
    End If
End Sub

Answer 4

Private Sub Command1_Click()
If Text1.Text = "a1" Or Text1.Text = "a2" Or Text1.Text = "a3" Then
    MsgBox "合法输入"
Else
    MsgBox "请输入a1,a2,a3中的一个"
End If
End Sub

Answer 5

好像VB.TextBox控件无此功能，要实现这个功能必须另外加代码

Answer 6

各位,我的意思是,比如,text1.text 只能取(A1,A2,A3)三个值中一个,我现在要对用户的输入进行判断,即判断用户输入到TEXT1中的内容是否是A1,A2,A3中的一个,如何实现判断?
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
用combo吧。。

Answer 7

用Combo比较好，这个思路不错

Answer 8

你的意思是不是想读起a1，a2，a3中的任一一个呢！
   作为三个不同的用户来使用呢？