vb text1控件数组中限制数字大小

来源：百度知道编辑：UC知道时间：2024/06/02 17:33:17

vb text1控件数组中限制数字大小。比如说在控件数组中输入大于200的数则自动弹出报错对话框，提示重新输入。

Private Sub Text1_Change(Index As Integer)
For i = 0 To Index
If Val(Text1(i)) > 200 Then
MsgBox "数字太大,请重新输入"
Text1(i) = ""
End If
Next i
End Sub

Private Sub Text1_Change()
If Val(Text1.Text) > 200 Then
MsgBox "数字太大,请重新输入"
Text1.Text = ""
End If
End Sub