平鋪背景通常是指用一個或多個小圖像重復(fù)填充的背景。在本文中，您將學(xué)習(xí)如何在 PDF 中平鋪圖像，并使用 C# 和 VB.NET 為您的 PDF 創(chuàng)建平鋪背景。

Spire.PDF for .NET 是一款獨立 PDF 控件，用于 .NET 程序中創(chuàng)建、編輯和操作 PDF 文檔。使用 Spire.PDF 類庫，開發(fā)人員可以新建一個 PDF 文檔或者對現(xiàn)有的 PDF 文檔進行處理，且無需安裝 Adobe Acrobat。

E-iceblue 功能類庫Spire 系列文檔處理組件均由中國本土團隊研發(fā)，不依賴第三方軟件，不受其他國家的技術(shù)或法律法規(guī)限制，同時適配國產(chǎn)操作系統(tǒng)如中科方德、中標麒麟等，兼容國產(chǎn)文檔處理軟件 WPS（如 .wps/.et/.dps 等格式

Spire.PDF for.net下載 

步驟 1：創(chuàng)建一個 PdfDocument 對象并加載示例 PDF 文檔。

PdfDocument pdf = new PdfDocument();
pdf.LoadFromFile("sample.pdf");

第 2 步：將圖像文件加載到 PdfImage 對象。

PdfImage image = PdfImage.FromFile("logo.png");

步驟3：創(chuàng)建一個PdfTilingBrush對象，指定其大小，設(shè)置畫筆的透明度，并在畫筆的指定位置繪制圖像。

PdfTilingBrush brush = new PdfTilingBrush(new SizeF(pdf.Pages[1].Canvas.Size.Width / 3, pdf.Pages[1].Canvas.Size.Height / 5));
brush.Graphics.SetTransparency(0.2f);
brush.Graphics.DrawImage(image,new PointF((brush.Size.Width-image.Width)/2,(brush.Size.Height-image.Height)/2));

步驟 4：使用畫筆在 PDF 頁面上繪制矩形。

pdf.Pages[1].Canvas.DrawRectangle(brush, new RectangleF(new PointF(0, 0), page.Canvas.Size));

步驟 5：保存文件。

pdf.SaveToFile("output.pdf");

輸出：

完整代碼：

[C#]

using Spire.Pdf;
using Spire.Pdf.Graphics;
using System.Drawing;

namespace Image
{
class Program
{
static void Main(string[] args)
{
PdfDocument pdf = new PdfDocument();
pdf.LoadFromFile("sample.pdf");

PdfImage image = PdfImage.FromFile("logo.png");
foreach (PdfPageBase page in pdf.Pages)
{
PdfTilingBrush brush = new PdfTilingBrush(new SizeF(page.Canvas.Size.Width / 3, page.Canvas.Size.Height / 5));
brush.Graphics.SetTransparency(0.2f);
brush.Graphics.DrawImage(image, new PointF((brush.Size.Width - image.Width) / 2, (brush.Size.Height - image.Height) / 2));
page.Canvas.DrawRectangle(brush, new RectangleF(new PointF(0, 0), page.Canvas.Size));
}
pdf.SaveToFile("output.pdf");
}
}
}

[VB.NET]

Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Imports System.Drawing

Namespace Image
Class Program
Private Shared Sub Main(args As String())
Dim pdf As New PdfDocument()
pdf.LoadFromFile("sample.pdf")

Dim image As PdfImage = PdfImage.FromFile("logo.png")
For Each page As PdfPageBase In pdf.Pages
Dim brush As New PdfTilingBrush(New SizeF(page.Canvas.Size.Width / 3, page.Canvas.Size.Height / 5))
brush.Graphics.SetTransparency(0.2F)
brush.Graphics.DrawImage(image, New PointF((brush.Size.Width - image.Width) / 2, (brush.Size.Height - image.Height) / 2))
page.Canvas.DrawRectangle(brush, New RectangleF(New PointF(0, 0), page.Canvas.Size))
Next
pdf.SaveToFile("output.pdf")
End Sub
End Class
End Namespace

歡迎下載|體驗更多E-iceblue產(chǎn)品