vb.net未处理异常 vbs异常处理

vb.net 如何捕获所有未处理的异常?

...

创新互联公司2013年成立，是专业互联网技术服务公司，拥有项目成都网站建设、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元中原做网站,已为上家服务,为中原各地企业和个人服务,联系电话:18982081108

'将Try...Catch放在Main中

Try

Begin()

Catch e As Exception

ProcessException(e)

End Try

'在Begin中开始你的程序，就像从Main开始执行程序一个道理

Sub Begin()

'

End Sub

'将ProcessException改成你的要处理所有异常的过程名

Sub ProcessException(e As Exception)

'

End Sub

...

vb.net未处理ArgumentException

The exception that is thrown when one of the arguments provided to a method is not valid.

vb.net中的问题

Message="未将对象引用设置到对象的实例。"

Source="扫雷"

StackTrace:

在 WindowsApplication1.Form1.Form1_Load(Object sender, EventArgs e) 位置 C:\Documents and Settings\Administrator\My Documents\Visual Studio 2005\Projects\扫雷\扫雷\Form1.vb:行号 21

在 System.EventHandler.Invoke(Object sender, EventArgs e)

在 System.Windows.Forms.Form.OnLoad(EventArgs e)

在 System.Windows.Forms.Form.OnCreateControl()

在 System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)

在 System.Windows.Forms.Control.CreateControl()

在 System.Windows.Forms.Control.WmShowWindow(Message m)

在 System.Windows.Forms.Control.WndProc(Message m)

在 System.Windows.Forms.ScrollableControl.WndProc(Message m)

在 System.Windows.Forms.ContainerControl.WndProc(Message m)

在 System.Windows.Forms.Form.WmShowWindow(Message m)

在 System.Windows.Forms.Form.WndProc(Message m)

在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message m)

在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message m)

在 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

在 System.Windows.Forms.SafeNativeMethods.ShowWindow(HandleRef hWnd, Int32 nCmdShow)

在 System.Windows.Forms.Control.SetVisibleCore(Boolean value)

在 System.Windows.Forms.Form.SetVisibleCore(Boolean value)

在 System.Windows.Forms.Control.set_Visible(Boolean value)

在 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)

在 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)

在 System.Windows.Forms.Application.Run(ApplicationContext context)

在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

在 WindowsApplication1.My.MyApplication.Main(String[] Args) 位置 17d14f5c-a337-4978-8281-53493378c1071.vb:行号 81

在 System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)

在 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)

在 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()

在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)

在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)

在 System.Threading.ThreadHelper.ThreadStart()

下面的VB.NET 代码哪错了，为什么在运行到am(k)=am(k)+1 时就报错，“未处理NullReferenceExCeption”

说明没有读数据，AllLine 为空，应加一个判断，空时怎么处理，不空时才是你的正常处理语句