将规则行添加到文本框中的行（多行）

Question

有谁知道将规则行添加到多行文本框控件的方法吗？

我想到的是每行文本下的 writers pad 风格的淡蓝色线条，填满了整个控件。（不只是在富文本框中键入的内容下划线。）

就像一个空白的大文本框，看起来很平淡。我想有人可能知道自定义控件，或者在每个文本行下画一条线的方法。

干杯。

Answer 1

只是我拼凑的一个快速示例，应该可以帮助您入门：

Public Class Form1

    Private g As Graphics
    Private x As Long
    Private lineHeight As Long

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        g = Me.CreateGraphics()
        lineHeight = 20
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        g.Dispose()
        g = TextBox1.CreateGraphics()

        For counter As Long = lineHeight To TextBox1.Height Step lineHeight
            g.DrawLine(Pens.LightBlue, 0, counter, TextBox1.Width, counter)
        Next

    End Sub
End Class

我会把 lineHeight 的值以及如何选择绘制第一行的位置留给你（另外，不要忘记左边距的垂直规则）

HTH，
埃里克

将规则行添加到文本框中的行（多行）

Adding rule lines to lines in a text box (multi line)

vb.net

textbox

multiline

visual-studio-2012