C# /VB.NET 创建PDF项目符号列表和多级编号列表

　　使用项目符号和编号，可以让文档的层次结构更清晰、更有条理，也更容易突出重点。在编辑文档的过程中，我个人也比较偏爱项目标号来标注文章重点信息。在之前的文章中，介绍了如何在Word中来创建项目标号和编号列表，在本篇文章中，将介绍创建PDF项目符号列表和多级编号列表的方法。

　　借助工具： Spire.PDF.dll

　　PS：dll可以直接在安装路径下的Bin文件夹中获取。

　　1.创建PDF符号列表

　　using System;

　　using System.Drawing;

　　using Spire.Pdf;

　　using Spire.Pdf.Graphics;

　　using Spire.Pdf.Lists;

　　namespace CreateList_PDF

　　{

　　class Program

　　{

　　static void Main(string[] args)

　　{

　　//创建一个PDF文档

　　PdfDocument doc = new PdfDocument();

　　//添加一页A4大小的页面

　　PdfPageBase page = doc.Pages.Add(PdfPageSize.A4);

　　float y = 10;

　　//创建标题并设置格式，包括字体、字号、颜色

　　PdfBrush brush1 = PdfBrushes.Black;

　　PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("楷体", 18f, FontStyle.Regular), true);

　　PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Center);

　　page.Canvas.DrawString("Categories List(项目列表)", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1);

　　y = y + font1.MeasureString("Categories List(项目列表)", format1).Height;

　　y = y + 5;

　　//创建列表文字并设置格式

　　RectangleF rctg = new RectangleF(new PointF(0, 0), page.Canvas.ClientSize);

　　PdfLinearGradientBrush brush

　　= new PdfLinearGradientBrush(rctg, Color.SteelBlue, Color.Blue, PdfLinearGradientMode.Vertical);

　　PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("宋体", 15f, FontStyle.Regular), true);

　　String formatted

　　= "Part 1 Listening(听力部分) Part 2 Speaking(口语部分) Part 3 Reading(阅读部分) Part 4 Writing(写作部分)"

　　+ " Part 5 Test(测试) 1 Part 6 Test(测试) 2 Part 7 Test Answers(测试答案)";

　　//创建PdfList 类对象，并设置列表及样式

　　PdfList list = new PdfList(formatted);

　　list.Font = font2;

　　list.Indent = 8;

　　list.TextIndent = 5;

　　list.Brush = brush;

　　PdfLayoutResult result = list.Draw(page, 0, y);

　　y = result.Bounds.Bottom;

　　//保存并打开文档

　　doc.SaveToFile("List.pdf");

　　System.Diagnostics.Process.Start("List.pdf");

　　}

　　复制代码

　　测试结果：

　　VB.NET

　　Imports System

　　Imports System.Drawing

　　Imports Spire.Pdf

　　Imports Spire.Pdf.Graphics

　　Imports Spire.Pdf.Lists

　　Namespace CreateList_PDF

　　Class Program

　　Private Shared Sub Main(ByVal args As String())

　　Dim doc As PdfDocument = New PdfDocument()

　　Dim page As PdfPageBase = doc.Pages.Add(PdfPageSize.A4)

　　Dim y As Single = 10

　　Dim brush1 As PdfBrush = PdfBrushes.Black

　　Dim font1 As PdfTrueTypeFont = New PdfTrueTypeFont(New Font("楷体", 18F, FontStyle.Regular), True)

　　Dim format1 As PdfStringFormat = New PdfStringFormat(PdfTextAlignment.Center)

　　page.Canvas.DrawString("Categories List(项目列表)", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1)

　　y = y + font1.MeasureString("Categories List(项目列表)", format1).Height

　　y = y + 5

　　Dim rctg As RectangleF = New RectangleF(New PointF(0, 0), page.Canvas.ClientSize)

　　Dim brush As PdfLinearGradientBrush = New PdfLinearGradientBrush(rctg, Color.SteelBlue, Color.Blue, PdfLinearGradientMode.Vertical)

　　Dim font2 As PdfTrueTypeFont = New PdfTrueTypeFont(New Font("宋体", 15F, FontStyle.Regular), True)

　　Dim formatted As String = "Part 1 Listening(听力部分) " & vbLf & " Part 2 Speaking(口语部分) " & vbLf & " Part 3 Reading(阅读部分) " & vbLf & " Part 4 Writing(写作部分)" & vbLf & " Part 5 Test(测试) 1 " & vbLf & " Part 6 Test(测试) 2 " & vbLf & " Part 7 Test Answers(测试答案)"

　　Dim list As PdfList = New PdfList(formatted)

　　list.Font = font2

　　list.Indent = 8

　　list.TextIndent = 5

　　list.Brush = brush

　　Dim result As PdfLayoutResult = list.Draw(page, 0, y)

　　y = result.Bounds.Bottom

　　doc.SaveToFile("List.pdf")

　　System.Diagnostics.Process.Start("List.pdf")

　　End Sub

　　End Class

　　End Namespace

　　复制代码

　　2.创建PDF多级编号列表

　　Spire.Pdf.dll支持多种类型的编号类型：

　　using Spire.Pdf;

　　using Spire.Pdf.Graphics;

　　using Spire.Pdf.Lists;

　　using System;

　　using System.Drawing;

　　namespace List2

　　{

　　class Program

　　{

　　static void Main(string[] args)

　　{

　　//新建PDF文档，并添加一页A4大小的空白页面

　　PdfDocument doc = new PdfDocument();

　　PdfPageBase page = doc.Pages.Add(PdfPageSize.A4);

　　float y = 10;

　　//添加标题并设置文本和格式

　　PdfBrush brush1 = PdfBrushes.Black;

　　PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("宋体", 18f, FontStyle.Regular), true);

　　PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Center);

　　page.Canvas.DrawString("目录一览", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1);

　　y = y + font1.MeasureString("目录一览", format1).Height;

　　y = y + 5;

　　//添加文本并设置字体

　　RectangleF rctg = new RectangleF(new PointF(0, 0), page.Canvas.ClientSize);

　　PdfLinearGradientBrush brush

　　= new PdfLinearGradientBrush(rctg, Color.DarkBlue, Color.Brown, PdfLinearGradientMode.Vertical);

　　PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("宋体", 15f, FontStyle.Regular), true);

　　String formatted1 = "第一章总论";

　　String formatted2 = "第一节经济法概述 ";

　　String formatted3 = "第二节经济法主体 ";

　　String formatted4 = "第二章公司法律制度";

　　//设置编号列表样式

　　PdfOrderedMarker marker1 = new PdfOrderedMarker(PdfNumberStyle.Numeric, new PdfFont(PdfFontFamily.Helvetica, 15f));

　　PdfOrderedMarker marker2 = new PdfOrderedMarker(PdfNumberStyle.LowerRoman, new PdfFont(PdfFontFamily.Helvetica, 12f));

　　//为第一级编号列表设置格式

　　PdfSortedList list1 = new PdfSortedList(font2);

　　list1.Indent = 0;

　　list1.TextIndent = 5;

　　list1.Brush = brush;

　　list1.Marker = marker1;

　　//为第二级编号列表设置格式

　　PdfSortedList list2 = new PdfSortedList(font2);

　　list2.Marker = marker2;

　　list2.Brush = brush;

　　list2.TextIndent = 10;

　　//应用编号列表格式到指定文本

　　PdfListItem item = list1.Items.Add(formatted1);

　　item.SubList = list2;

　　list2.Items.Add(formatted2);

　　list2.Items.Add(formatted3);

　　list1.Items.Add(formatted4);

　　//设置PDF文档布局和位置

　　PdfTextLayout textLayout = new PdfTextLayout();

　　textLayout.Break = PdfLayoutBreakType.FitPage;

　　textLayout.Layout = PdfLayoutType.Paginate;

　　list1.Draw(page, new PointF(0, y), textLayout);

　　//保存文件

　　doc.SaveToFile("多级列表.pdf");

　　System.Diagnostics.Process.Start("多级列表.pdf");

　　}

　　复制代码

　　测试结果：

　　VB.NET

　　Imports Spire.Pdf

　　Imports Spire.Pdf.Graphics

　　Imports Spire.Pdf.Lists

　　Imports System

　　Imports System.Drawing

　　Namespace List2

　　Class Program

　　Private Shared Sub Main(ByVal args As String())

　　Dim doc As PdfDocument = New PdfDocument()

　　Dim page As PdfPageBase = doc.Pages.Add(PdfPageSize.A4)

　　Dim y As Single = 10

　　Dim brush1 As PdfBrush = PdfBrushes.Black

　　Dim font1 As PdfTrueTypeFont = New PdfTrueTypeFont(New Font("宋体", 18F, FontStyle.Regular), True)

　　Dim format1 As PdfStringFormat = New PdfStringFormat(PdfTextAlignment.Center)

　　page.Canvas.DrawString("目录一览", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1)

　　y = y + font1.MeasureString("目录一览", format1).Height

　　y = y + 5

　　Dim rctg As RectangleF = New RectangleF(New PointF(0, 0), page.Canvas.ClientSize)

　　Dim brush As PdfLinearGradientBrush = New PdfLinearGradientBrush(rctg, Color.DarkBlue, Color.Brown, PdfLinearGradientMode.Vertical)

　　Dim font2 As PdfTrueTypeFont = New PdfTrueTypeFont(New Font("宋体", 15F, FontStyle.Regular), True)

　　Dim formatted1 As String = "第一章总论"

　　Dim formatted2 As String = "第一节经济法概述 "

　　Dim formatted3 As String = "第二节经济法主体 "

　　Dim formatted4 As String = "第二章公司法律制度"

　　Dim marker1 As PdfOrderedMarker = New PdfOrderedMarker(PdfNumberStyle.Numeric, NewPdfFont(PdfFontFamily.Helvetica, 15F))

　　Dim marker2 As PdfOrderedMarker = New PdfOrderedMarker(PdfNumberStyle.LowerRoman, NewPdfFont(PdfFontFamily.Helvetica, 12F))

　　Dim list1 As PdfSortedList = New PdfSortedList(font2)

　　list1.Indent = 0

　　list1.TextIndent = 5

　　list1.Brush = brush

　　list1.Marker = marker1

　　Dim list2 As PdfSortedList = New PdfSortedList(font2)

　　list2.Marker = marker2

　　list2.Brush = brush

　　list2.TextIndent = 10

　　Dim item As PdfListItem = list1.Items.Add(formatted1)

　　item.SubList = list2

　　list2.Items.Add(formatted2)

　　list2.Items.Add(formatted3)

　　list1.Items.Add(formatted4)

　　Dim textLayout As PdfTextLayout = New PdfTextLayout()

　　textLayout.Break = PdfLayoutBreakType.FitPage

　　textLayout.Layout = PdfLayoutType.Paginate

　　list1.Draw(page, New PointF(0, y), textLayout)

　　doc.SaveToFile("多级列表.pdf")

　　System.Diagnostics.Process.Start("多级列表.pdf")

　　End Sub

　　End Class

　　End Namespace

　　复制代码(编辑：雷林鹏来源：网络)