这段代码为何连续运行两次出现异常？

Private   Sub   EventFile_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   EventFile.Click  
                  Dim   objWriter   As   New   IO.StreamWriter("E:\Error.txt",   True)  
                  Debug.Listeners.Add(New   TextWriterTraceListener(objWriter))  
                  Try  
                          Throw   (New   EntryPointNotFoundException)  
                  Catch   ex   As   Exception  
                          Debug.WriteLine(DateTime.Now)  
                          Debug.WriteLine(My.Application.ApplicationContext.MainForm.Name)  
                          Debug.WriteLine(ex.Message)  
   
                          objWriter.Flush()  
                          objWriter.Close()  
                          objWriter   =   Nothing  
                  End   Try  
          End   Sub  
  异常为："无法写入已关闭的   TextWriter。"  
  不好意思，就这么些分了，有解答的立即给分！ 问题点数：10、回复次数：3Top

1 楼chendazhi（不务正业）回复于 2006-05-02 16:21:48 得分 10

哈哈~  
  你这段代码哪来的？  
  Private   Sub   EventFile_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   EventFile.Click  
              Try      
                          Dim   objWriter   As   New   IO.StreamWriter("E:\Error.txt",   True)  
                          Debug.Listeners.Add(New   TextWriterTraceListener(objWriter))  
                          objWriter.Flush()  
                          objWriter.Close()  
                          objWriter   =   Nothing  
   
                  Catch   ex   As   Exception  
                          Debug.WriteLine(DateTime.Now)  
                          Debug.WriteLine(My.Application.ApplicationContext.MainForm.Name)  
                          Debug.WriteLine(ex.Message)  
           
                  End   Try  
          End   SubTop

2 楼chendazhi（不务正业）回复于 2006-05-02 16:23:56 得分 0

Try  
                          Throw   (New   EntryPointNotFoundException)  
                  Catch   ex   As   Exception  
   
  第一次为你自己抛出的错误  
  第二次为系统捕获你抛出的错误  
   
  为啥这么做？~  
  Top

3 楼li_guang_hua（无声胜有声）回复于 2006-05-02 22:14:18 得分 0

这是《VB.NET高级编程》第三版第247页上的代码！可能是我比较愚笨，    
  Try  
                          Throw(New   EntryPointNotFoundException)  
  抛出的异常不是马上被catch捕获，怎么又来了个“第二次为系统捕获你抛出的错误”，请这位高手解释详细些，谢谢！！！Top

相关问题

• 帖主：li_guang_hua
• chendazhi

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载