itextsharp单元格中带下划线的文本落在单元格外

Question

我已经能够在VB中使用iTextSharp创建PDF。net代码，看起来几乎完全符合我的要求。然而，我使用一个包含一列和多行的表来显示通过使用块和短语组合在一起的长文本字符串。有些区块包含带下划线的文本。当一个短语中有带下划线的文本时，整个单元格需要以灰色突出显示，我使用PdfPCell的BackgroundColor属性来实现这一点。

我遇到的问题是，下划线落在单元格边界之外（突出显示之外）。我尝试了很多方法来解决这个问题，比如设置一个固定的单元格高度，然后设置单元格。与元素垂直对齐。对齐顶部；使用具有各种值的SetLeading，包括（0，0），这只会使问题变得更糟；设置单元格。上升到真实；以及更改填充值。我可能也尝试过其他方法，但出于某种原因，无论我尝试什么，下划线文本的线条都不在突出显示的范围内。而且，高亮显示会一直显示到上面单元格中文本的底部（这就是我尝试使用SetLeading值的原因）

该图像显示了我生成的PDF的第2页。带表格的PDF

下面是实现此功能的代码部分的示例——“outString1”和“outString2”是附加到一行的输出文本字符串。有一个布尔值用于确定文本块是否需要加下划线，还有一个布尔值用于确定是否需要突出显示单元格——在某些情况下，单元格可能会突出显示，但文本没有加下划线。有什么建议可以解决这个问题吗？

Dim pdfTable As PdfPTable = New PdfPTable(1)
pdfTable.WidthPercentage = 100

    'the next section is within a loop to create and load each cell
    Dim P As New Phrase()
    'Slisted is a Boolean value to determine need for underlining
    If Slisted Then
        P.Add(New Chunk(outString1, myULfont))
    Else
        P.Add(New Chunk(outString1, myfont))
    End If
    P.Add(New Chunk(outString2, myfont))
    Dim cell As PdfPCell = New PdfPCell(P)
    cell.Border = 0
    cell.Padding = 0
    'hilite is a Boolean value to determine whether 
    If hilite Then
        cell.BackgroundColor = BaseColor.LIGHT_GRAY
    End If
    pdfTable.AddCell(cell)

'out of loop, load table into document
pdfDoc.Add(pdfTable)

Answer 1

默认情况下，下划线与文本之间有一定的偏移。不幸的是，由于您已经删除了表格上的填充，偏移量与单元格的布局相冲突。一个选择是，你应该按照人们的建议改变填充物。然而，另一个选项是手动设置块的下划线偏移量。下面是一个例子：

Dim T As New PdfPTable(1)

For I = 1 To 10

    ''//Your chunk
    Dim Ch As New Chunk("Hello", DocFont)

    ''//Wrap the chunk in a phrase
    Dim p As New Phrase(Ch)

    ''//Wrap the phrase in a cell
    Dim cell As PdfPCell = New PdfPCell(p)

    ''//Optional borders and padding
    cell.Border = 0
    cell.Padding = 0

    ''//This is just an example to do every other cell
    If I Mod 2 = 0 Then
        cell.BackgroundColor = BaseColor.LIGHT_GRAY

        ''//Set the thickness and offset from the text
        Ch.SetUnderline(0.1, 0)
    End If

    T.AddCell(cell)

Next