控件数组的定位问题 Index

wxflw 发布于 2014-09-29 23:58， 482 次点击

我的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

5 回复

alike1232014-09-30 15:35

不太理解你想说什么

风吹过b2014-09-30 16:34

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
if index =2 then
Const xStr As String = "0123456789." '先声明一个常量，把想禁用或允许输入的内容赋值给它
KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
end if
End Sub

wxflw2014-09-30 22:10

回复 3 楼风吹过 b

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

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

我的梦想d72014-10-07 15:32

添加一个if语句，使index值等于所需要的控件的index值，这样，当执行的时候就会选择所需要的index的控件了

wxflw2014-10-09 11:12

回复 5 楼我的梦想 d7

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