1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Imports System
Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports iTextSharp
Imports System.IO
Public Class accueil
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pdfdoc As New Document()
Dim pdfwrite As PdfWriter = PdfWriter.GetInstance(pdfdoc, New FileStream("simple.pdf", FileMode.Create))
pdfdoc.Open()
pdfdoc.Add(New Paragraph("Essai"))
pdfdoc.Close()
End Sub
End Class |