此代碼用於工作,但不再有。我用了一個斷點,在這行之後: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 23:57:16