例外未被捕获

此代码用于工作，但不再有。我用了一个断点，在这行之后：Dim jpeg As Image = Image.GetInstance("test.jpg")它只是不执行任何代码。例外未被捕获

Imports System 
Imports System.IO 
Imports iTextSharp.text 
Imports iTextSharp.text.pdf 

Public Class Form1 

    Public Sub New1() 
     Directory.SetCurrentDirectory("C:\Users\alex\Desktop\") '" 
     Console.WriteLine("Chapter 6 example 1: Adding a Wmf, Gif, Jpeg and Png-file using urls") 
     Dim document As Document = New Document 
     Try 
      PdfWriter.GetInstance(document, New FileStream("Chap060112.pdf", FileMode.Create)) 
      document.Open() 

      Dim jpeg As Image = Image.GetInstance("test.jpg")   
      document.Add(jpeg) 

     Catch de As DocumentException 
      Console.Error.WriteLine(de.Message) 
     Catch ioe As IOException 
      Console.Error.WriteLine(ioe.Message) 
     End Try 
     document.Close() 
    End Sub 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     New1() 
     End 
    End Sub 

End Class

来源

2009-08-26 l--' ' ' ' ' ' ---------' ' ' ' ' ' ' ' ' ' ' '

这难以格式化您自己的代码？工具栏上有一个按钮和一切。 – 2009-08-26 23:57:16

Dim jpeg As Image = Image.GetInstance("test.jpg")

很可能是抛出了一个你没有处理的异常类型。

尝试增加

Catch e As Exception 
    Console.Error.WriteLine(e.Message)

这只是为了调试的目的，虽然，我会与被抛出异常的实际类型替换异常。总的来说这是一个真正的坏主意赶上System.Exception的

来源

2009-08-26 23:59:48 Alan

它抛出一个既不是DocumentException也不是IOException的异常？

来源

2009-08-26 23:58:34 Rob

我按F8并没有任何反应，它只是停止执行代码 – 2009-08-27 00:00:00

做到这一点，看看被抛出什么异常。

Catch e As Exception 
    Console.WriteLine(e.GetType().Name) 
    Console.WriteLine(e.Message) 
End Try

来源

2009-08-27 00:00:07 ChaosPandion

在“结束尝试”之前尝试抛出另一个“作为例外捕捉”。您可能试图捕捉错误的异常。

来源

2009-08-27 00:00:42 MakoCSH

例外未被捕获

回答

相关问题