Question

VB6.0中，如何限制10个数组文本框text1只能输入数字、一个小数点，和退格

VB6.0中，如何限制10个数组文本框text1只能输入数字、一个小数点，和退格
一个文本框我做出来了，可是数组的怎么做才好呢？
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 8, Asc("0") To Asc("9")
Case Asc(".")
If InStr(Text1.Text, ".") <> 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
MsgBox "请输入数值", , "提示信息"
End Select
End Sub

Answer 1

Text1的Index属性设置为0
然后复制Text1为数组控件，Index属性从1到9
然后在数组控件Text1的KeyPress事件中写代码。

Answer 2

数组文本框？ 你一个文本框都做出来了，数据文本框也是一样做呀
修改如下：
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 8, Asc("0") To Asc("9")
Case Asc(".")
If InStr(Text1(index).Text, ".") <> 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
MsgBox "请输入数值", , "提示信息"
End Select
End Sub

只需把 text1.text 改成 text1(index).text 就行了。。。

Answer 3

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
KeyAscii = 0
MsgBox "请输入数值", , "提示信息"
End If

If InStr(Text1(Index).Text, ".") <> 0 And KeyAscii = 46 Then
KeyAscii = 0
End If
End Sub

Answer 4

复制出的控件都这样,比如:
label1(0).caption
label1(2).caption
command1(8).staly

Answer 5

就这样不就行了？