如何关闭程序的错误提示，以统一的画面提示？ 程序开发以后，在用户运行的过程中，会有可能发生各种各样的错误，请问如何屏蔽这些错误，而用一个统一的一个错误提示来告诉用户？因为系统的错误提示，有可能会暴露你程序中的一些关键字。 简单的讲，我如何控制程序中的所有错误的基类? __________________________________________________________________________ 请用 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 __________________________________________________________________________ 谢谢,正是这个. __________________________________________________________________________