vb.net - datagridviewTextBoxCell Vb.net中带有第一行下划线的多行文本

Question

我可以在插入时使用 Environment.NewLine 在 datagridViewtextboxcell 中添加多行文本。但我想为第一行添加下划线。那么我如何在 vb.net 中实现这一点

现在我正在处理 DGV 的绘制方法，用于以 2 种颜色显示日期格式的日期（如第一列所示）。

请找到附图，

在电子邮件和手机号码的倒数第二列中，我想画下划线。

谢谢。

Answer 1

我在回答我自己的问题。处理 DataGridView1_CellPainting 并为特定单元格/列调用此方法。首先分离字符串并使用 TextRenderer 类在新位置渲染 2 次。

我不知道这是正确的方法，但它有效。

Private Sub CellText_Underline(color As Color, e As DataGridViewCellPaintingEventArgs)

    Dim text As String = e.FormattedValue.ToString()

    Dim nameParts As String() = text.Split(" ")

    Dim topLeft As New Point(e.CellBounds.X, CInt(e.CellBounds.Y + (e.CellBounds.Height / 4)))

    Dim arialBold As New Font("Arial", 11, FontStyle.Regular Xor FontStyle.Underline)

    TextRenderer.DrawText(e.Graphics, nameParts(0), arialBold, topLeft, color)

    Dim topLeft_1 As New Point(e.CellBounds.X, CInt(e.CellBounds.Y + (e.CellBounds.Height / 4) + 5))
    Dim s As Size = TextRenderer.MeasureText(nameParts(0), arialBold)
    Dim p As New Point(topLeft_1.X, topLeft_1.Y + 12)

    Dim arialBold_1 As New Font("Arial", 11, FontStyle.Regular)
    TextRenderer.DrawText(e.Graphics, nameParts(1), arialBold_1, p, SystemColors.WindowText)
End Sub

谢谢。