ページの一番下に配置したい画像があります。どうすればこれを行うことができますか?
質問する
2675 次
2 に答える
1
'Set these as needed
Dim DocumentWidth = 1000
Dim DocumentHeight = 1000
Dim ImagePath = "c:\test.jpg"
Dim ImageWidth As Integer
Dim ImageHeight As Integer
Using Img = System.Drawing.Image.FromFile(ImagePath)
ImageWidth = Img.Width
ImageHeight = Img.Height
End Using
'Create the document
Dim D As New Document()
'Set the page size
D.SetPageSize(New iTextSharp.text.Rectangle(0, 0, DocumentWidth, DocumentHeight))
'Zero the margins
D.SetMargins(0, 0, 0, 0)
'Create and open the PDF writer
Dim W = PdfWriter.GetInstance(D, New System.IO.FileStream("C:\test.pdf", IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.Read))
D.Open()
'Make a new image object
Dim I As New iTextSharp.text.Jpeg(New Uri("file:///" & ImagePath))
'Lower left is (0,0), upper right is (1000,1000)
I.SetAbsolutePosition(DocumentWidth - ImageWidth, 0)
'Add the image
D.Add(I)
D.Close()
于 2009-12-18T21:44:27.720 に答える
0
それをページの上部に逆さまに置き、ページをめくります。
編集:申し訳ありませんが、私は半分冗談でした。ここに、Image.setAbsolutePositionメソッドを使用して画像を配置する例があります。画像のサイズと操作しているドキュメントのサイズに基づいて、この関数に提供するパラメーターを計算できるはずです。
于 2009-12-18T06:00:18.660 に答える