HatchBrush只在左侧和顶部绘制破折号

Question

我创建了一个名为BorderControl的类，它继承了Control，并应该绘制虚线边框。在我更进一步之前，这是一个结果：

​

​

下面是简化的OnPaint方法：

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    MyBase.OnPaint(e)
    Dim Height As Integer = ClientSize.Height
    Dim Width As Integer = ClientSize.Width
    With e.Graphics
        Using HB As New HatchBrush(HatchStyle.DashedVertical, Color.Green, Color.Red)
            Using P As New Pen(HB)
                .DrawLine(P, Point.Empty, New Point(0, Height - 1))
                .DrawLine(P, Point.Empty, New Point(Width - 1, 0))
                .DrawLine(P, New Point(Width - 1, 0), New Point(Width - 1, Height - 1))
                .DrawLine(P, New Point(0, Height - 1), New Point(Width - 1, Height - 1))
            End Using
        End Using
    End With
End Sub

这与实际方法之间的唯一区别是，布尔值决定是绘制虚线边框还是实心边框。

有什么想法吗？

在指出明显的问题之前，编辑，实际的方法也使用HatchStyle.DashedHorizontal作为顶部和底线，所以这不是问题所在。

Answer 1

HatchStyle.DashedVertical

看起来它每4个单位就有一个像素。像这样的填充被锚定在窗口的左上角(而不是从线开始的位置)，这意味着如果你试图在一个像素上画一条不能被4整除的线，你只会得到背景色。

您需要的是填充，在所有列和行中都有前景像素，无论如何“切片”，这些像素看起来都是虚空的。我推荐HatchStyle.LargeCheckerBoard

因为在我看来，它会产生与您的示例最接近的输出，尽管其他模式可能会起作用。

下面是一个图片，展示了HatchStyle的每个成员的样子。

​