我的text1是一个数组我要设置text1（2）.text下面的设置所有的text1都受控了，该怎么弄？
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    Const xStr As String = "0123456789." '先声明一个常量，把想禁用或允许输入的内容赋值给它
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub

谢谢！又学到了点！！如果，需要其中几个，比如 1 3 5 是不是可以这样写
if index =1 or index =3 or index =5  then

[ 本帖最后由 wxflw 于 2014-9-30 22:16 编辑 ]

谢谢5楼的指点，明白了！