一个很菜鸟的问题。。

Question

朋友们。。我怎么样判断一个输入框是否包含不是合法的字符。。
比如说我设计一个文本框，要求它输入的是数字，而不要求它包含除数字外的任何字符。。
文本框的名字为：Text1
最好能够用if 语句判断

Answer 1

不知道你是想输入的时候就判断还是直接TEXTBOX中的内容,如果是输入的时候判断可以在KeyPress中写
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
    KeyAscii = 0
End If如果想判断文本内容可以用循环
dim i as long,strTmp as string 
for i = 1 to len(text1.text)
    strtmp =  mid(text1.text,i,1)
    if strtmp < "0" or strtmp > "9" then
         msgbox "不是数字"
    end if
next直接用isnumeric也是可以的

Answer 2

private sub combo1_change()
    '判断输入的是否是数字
    If IsNumeric(Combo1.Text) = False Then
      Combo1.Text = ""
      MsgBox "你输入的不是数字"
    End If
  end sub