如何
关闭程序的
错误提示,以统一的画面
提示? 程序开发以后,在
用户运行的过程中,会有可能发生各种各样的
错误,请问如何
屏蔽这些
错误,而用一个统一的一个
错误提示来告诉
用户?因为系统的
错误提示,有可能会暴露你程序中的一些关键字。 简单的讲,我如何控制程序中的所有
错误的基类? __________________________________________________________________________ 请用 Try ... Catch ... End Try 结构。在捕捉到
错误时进行处理。 __________________________________________________________________________ Try ... Catch ... End Try __________________________________________________________________________ 要每个地方都用try的话,这个工作量太大了. __________________________________________________________________________ on error goto er .... .... er: .... __________________________________________________________________________ 如果是2005就好了,Project Setting里面有个Application Events按钮,点一下就会出现Application Events
文件,里面有个UnhandledException事件,就是如果出现了应用程序没有
拦截的异常的事件,在里面加入你的统一
错误代码就OK了。 __________________________________________________________________________ 参考AppDomain.UnhandledException Sub Main() Dim currentDomain As AppDomain = AppDomain.CurrentDomain AddHandler currentDomain.UnhandledException,AddressOf MyHandler Try Throw New Exception( "1 ") Catch e As Exception Console.WriteLine( "Catch clause caught : " + e.Message) End Try Throw New Exception( "2 ") '' Output: '' Catch clause caught : 1 '' MyHandler caught : 2 End Sub ''Main Sub MyHandler(sender As Object,args As UnhandledExceptionEventArgs) Dim e As Exception = DirectCast(args.ExceptionObject,Exception) Console.WriteLine( "MyHandler caught : " + e.Message) End Sub ''MyUnhandledExceptionEventHandler __________________________________________________________________________ 谢谢,正是这个. __________________________________________________________________________