Vb.net 试图传递此图形子例程，但遇到问题

目前有一些项目是从打印的listview中填充的，我在没有子例程的情况下完成了这项工作，但我想组织代码，并将每个部分放在自己的子例程中

我试着把它放在一个子程序中，就像我处理代码的其他部分一样，但这些部分都与图形无关

    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

这段代码基本上在页面上垂直和水平地绘制虚线，并且可以正常工作，但我希望能够从子例程调用它

---

当我像以前一样把它放在一个子程序中，错误以图形的形式传递给e，不知道这意味着什么，也不知道如何绕过它，我在论坛上搜索另一个人也有类似的问题，我试着按照这些步骤进行编译，但当我运行它时，它没有打印行。

您的子例程可能如下所示

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)

---

你的子程序可能是这样的

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)

---

我的天哪，这工作！！！谢谢你，巴德，我要把我所有的图形都转换成子程序，再次谢谢你。天哪，真管用！！！谢谢你，巴德，我要把我所有的图形转换成子程序，谢谢。