[求助]InputBox中能否象text控件那样控制输入?
请教:在InputBox中能否象text控件那样控制输入?比如说限制它只能输入数字这样的功能
2006-12-27 13:52
2006-12-27 13:56
Private Sub Command1_Click()
Dim i As String
Dim a As String
err:
i = InputBox("请输入数字", "window")
If Len(i) > 10 Then
a = MsgBox("你输入的长度超过了最大长度,最大长度只能为10个字符", vbYesNo + vbInformation, "出错")
If a = vbYes Then
GoTo err:
Else
Exit Sub
End If
Else
Text1.Text = i
End If
End Sub
2006-12-30 19:49