vb编程中inputbox的问题

来源:百度知道 编辑:UC知道 时间:2024/05/05 17:01:43
用i n p u t b o x输入数据时一旦输入出错,或者点取消。。程序就出错了,这时候有什么办法使它重新输入这个数据或者跳回到原窗体

用Error GoTo来做,下面是一个简单的例子,希望对你有所启发
Private Sub Command1_Click()
On Error GoTo err1
err1:
a1 = InputBox("aaa")
Print 10 / a1 '//如果a1不是数字,将产生错误,则,这时将返回err1
End Sub

on error goto 0
用这个,同时能取消err对象

goto 不好.
你判断一下不就可,,