16,549
社区成员
发帖
与我相关
我的任务
分享
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Public Class Form1
Private Sub btn_Run_Click(sender As Object, e As EventArgs) Handles btn_Run.Click
'Create a pdf document
Dim doc As New PdfDocument()
'从系统中加载文件
doc.LoadFromFile("C:\Program Files\e-iceblue\Spire.Pdf-Fe\Demos\Data\DrawContentWithSpotColor.pdf")
'获取PDF文档的第一页
Dim page As PdfPageBase = doc.Pages(0)
AlignText(page)
'保存PDF文档
doc.SaveToFile("TextDraw.pdf")
doc.Close()
'启动PDF文档
PDFDocumentViewer("TextDraw.pdf")
End Sub
Private Sub AlignText(ByVal page As PdfPageBase)
'绘制文本-对齐
Dim font As New PdfFont(PdfFontFamily.Helvetica, 20.0F)
Dim brush As New PdfSolidBrush(Color.Blue)
Dim leftAlignment As New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle)
'设置绘制文本的位置
page.Canvas.DrawString("Left!", font, brush, 0, 200, leftAlignment)
page.Canvas.DrawString("Left!", font, brush, 0, 250, leftAlignment)
Dim rightAlignment As New PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 200, rightAlignment)
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 250, rightAlignment)
Dim centerAlignment As New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, CLng(page.Canvas.ClientSize.Width) \ 2, 240, centerAlignment)
End Sub
Private Sub PDFDocumentViewer(ByVal fileName As String)
Try
Process.Start(fileName)
Catch
End Try
End Sub
End Class
。