试图通过此图形子例程，但存在问题

Question

当前有从listView填充的项目，我已经在没有子例程的情况下完成了此操作，但是我想组织代码并将每个部分放入其自己的子例程中。p> ive试图像我对代码的其他部分一样将其放在子例程中，但是这些部分都与图形有关。

    Using p As New Pen(Color.Gray)
        Dim t As Graphics = e.Graphics
        p.DashStyle = DashStyle.Custom
        Dim pattern() As Single = {3, 4, 3, 4}
        p.DashPattern = pattern
        t.DrawLine(p, 415, 0, 415, 1100)
        t.DrawLine(p, 0, 535, 850, 535)
    End Using

此代码基本上是在页面上垂直和水平绘制虚线，并且它有效，但是我希望能够从子例程中调用它。

当我像以前一样将其放在子例程中，遇到错误作为图形，不知道这意味着什么或如何解决它，我在这里的论坛上搜索了另一个人有类似的问题，我试图关注这些步骤，构建编译，但是当我运行时，它没有打印线。

Answer 1

您的子例程看起来像这样，

Private Sub DrawDashes(g As Graphics)
    Using p As New Pen(Color.Gray)
        p.DashStyle = DashStyle.Custom
        Dim pattern() As Single = {3, 4, 3, 4}
        p.DashPattern = pattern
        g.DrawLine(p, 415, 0, 415, 1100)
        g.DrawLine(p, 0, 535, 850, 535)
    End Using
End Sub

像

呼叫

DrawDashes(e.Graphics)