ITextSharp 在单独的行中显示文本答案

【问题标题】：ITextSharp Display Text in Separate LinesITextSharp 在单独的行中显示文本
【发布时间】：2013-10-30 09:49:44
【问题描述】：

我有一些类似的文字

使用 iTextSharp 我如何显示这个（在单独的行中，一个接一个）？

我的代码：

Dim pdftableSLD As PdfPTable = New PdfPTable(3)
pdftableSLD.DefaultCell.Padding = 3
pdftableSLD.WidthPercentage = 96
pdftableSLD.DefaultCell.BorderWidth = 1
pdftableSLD.DefaultCell.HorizontalAlignment = Element.ALIGN_LEFT
pdftableSLD.DefaultCell.VerticalAlignment = Element.ALIGN_MIDDLE
pdftableSLD.DefaultCell.FixedHeight = 40.0F
pdftableSLD.HorizontalAlignment = 1
Dim widthsSLD As Single() = {0.5F, 1.25F, 2.5F}
pdftableSLD.SetWidths(widthsSLD)

Dim stuName As PdfPCell = New PdfPCell(FormatPhrase(""))
stuName.Colspan = 4
stuName.Border = Rectangle.BOTTOM_BORDER
stuName.NoWrap = True
stuName.HorizontalAlignment = Element.ALIGN_CENTER
pdftableMain.AddCell(stuName)

在此表中，我必须显示上面指定的文本。

【问题讨论】：

1 是什么意思？它是列表中的一个项目吗？到目前为止，您尝试过什么？
@Alexis，1 只是一个例子。我需要以这种格式显示文本。

标签： itextsharp

【解决方案1】：

您的样本看起来像表格，因此可能需要一张表格。我想到了两条 PdfPTable 路径以及一条使用 Paragraph 的路径

选项 1 - 创建一个普通的 2x4 表格

''//Create a two column table divided 20%/80%
Dim tbl1 As PdfPTable = New PdfPTable({20, 80})

''//Add cells
tbl1.AddCell("1")
tbl1.AddCell("a")

tbl1.AddCell("")
tbl1.AddCell("b")

tbl1.AddCell("")
tbl1.AddCell("c")

doc.Add(tbl1)

选项 2 - 创建一个 2x4 表格，第一个单元格跨越 4 行

''//Create a two column table divided 20%/80%
Dim tbl2 As PdfPTable = New PdfPTable({20, 80})

''//Add a cell that spans four rows
tbl2.AddCell(New PdfPCell(New Phrase("1")) With {.Rowspan = 4})

''//Add cels normally
tbl2.AddCell("a")
tbl2.AddCell("b")
tbl2.AddCell("c")

doc.Add(tbl2)

选项 3 - 使用带有制表位的段落

''//Create a normal paragraph
Dim P As New Paragraph()

''//Add first "column"
P.Add("1")

''//Add a tab
P.Add(Chunk.TABBING)

''//Add second "column"
P.Add("a")

''//Soft return
P.Add(vbNewLine)

''//Repeat, starting subsequent items with a tab
P.Add(Chunk.TABBING)
P.Add("b")
P.Add(vbNewLine)

P.Add(Chunk.TABBING)
P.Add("c")
P.Add(vbNewLine)

doc.Add(P)

【讨论】：