Question

vb程序如何进行异常处理，我只要完成一个目的 就是程序出错后给出提示，然后恢复到初始状态，继续运行

vb变成里面变了一个程序，有很多模块，类什么的，每个模块都有各种各样的输入，有许多是非法输入，一旦遇到非法输入，程序就给出运行错误，然后就退出了，窗体，模块，以及这些非法输入种类太多了，if if if if各种if实在弄不起了，我只要完成一个目的
就是程序出错后给出提示，然后恢复到初始状态，继续运行
下面以一个窗体为例，仔细说明一下问题：
假如要完成一个计算器，用户有各种各样的输入，汉字，标点，空格等非法输入，还有除数为零，溢出等各种异常，问题是遇到这些异常，程序就结束了，然后就要重新双击运行。作为一个计算器程序，总不能每次输错，都终止程序吧。所以我想达到这样一个目的，就是只要发生一切异常，都转到一个地方，或者给出提示信息，程序并不退出，就和windows计算器一样的效果，应该怎么进行异常处理
注意，要针对所有异常一定不要让程序退出，应该怎么弄呢，感谢回答~
这段程序加在哪呢？能不能把这个放在一个全局的位置，就是控制整个程序的运行，只要程序运行出错，就告诉用户“您输入有误！”我要实现这个目的~不要一个控件一个控件加，vb不太熟悉，见谅，谢谢
空间太多，实在麻烦哪，应该会有个全局位置吧...弄出来给加分

Answer 1

这不是解决之道哦
不能程序出错就重启吧，禁止用户的非法输入也不是很难啊

追问

怎么不难，是很大的一个程序，不是你想的那么简单，如果把情况都考虑进去，足有上千种情况

追答

怎么可能呢？
就几条语句就可以限制诸如：限制中文输入；只输入数字，“.”及“+/-”；只输入字母；等等
用select case 十来条就差不多了

追问

48个窗体，控件500多个，起初我也是ififif....这么弄的，但是后来许多都有漏洞，就是覆盖不了用户的更多的输入可能，所以就...

追答

500个控件都有用户输入？
卫星发射？
呵呵，不懂你在做什么，建议自己写一个输入的类，各个窗体和控件共用吧

追问

vb有一个好处，就是说添加什么就添加什么，不用处理就能添加，我就是把以前做过的所有课题都集成在一起，不是500个控件都有用户输入，那起码大多也是对输入处理啊，仅一个输入，十个控件要处理这个输入，这十个不就都要改吗~

Answer 2

On Error Goto Err_Handle
'程序过程
exit sub
err_Handle:
MsgBox "错误ID：" & Err.Number & vbCrLf & "执行操作发生如下错误：" & vbCrLf & Err.Description, 16, "Error"

追问

这段程序加在哪呢？能不能把这个放在一个全局的位置，就是控制整个程序的运行，只要程序运行出错，就告诉用户“您输入有误！”我要实现这个目的~不要一个控件一个控件加，vb不太熟悉，见谅，谢谢

追答

不行只能一个过程一个过程的加，你可以对 err.number 进行处理，
比如：
select case err.number
case 207
msgbox "错误的文件名或路径",16,"Error"
case ...
case ...
case else
end select

Answer 3

On Error Resume Next 忽略错误
On Error Goto 错误跳转

追问

这段程序加在哪呢？能不能把这个放在一个全局的位置，就是控制整个程序的运行，只要程序运行出错，就告诉用户“您输入有误！”我要实现这个目的~不要一个控件一个控件加，vb不太熟悉，见谅，谢谢

追答

不需要一个过程一个过程的加，直接放在程序最开始的地方就可以了

你可以把处理错误的标签放在你要重来的地方
err_handle:
msgbox "你的输入有误"

...

sub ..

追问

那放在哪呢？哪儿是最开始，c语言有个main函数，如果是c语言，那就在main开头，和结尾(迟早会回来的)就完了，vb有像c语言一样全局的函数吗？一共48个窗体，一个控件一个控件加那不和一个过程一个过程加，不是一样的吗，就看过程和控件哪个多，我想只加一个...