пытается передать эту графическую подпрограмму, но возникают проблемы - PullRequest
Новая
       21

пытается передать эту графическую подпрограмму, но возникают проблемы

0 голосов
/ 09 мая 2019

в настоящее время имеют элементы, которые были заполнены из списка, которые печатаются, и я сделал это без подпрограмм, но я хочу организовать код и поместить каждую часть в свою собственную подпрограмму.

Я пытался поместить его в подпрограмму, как я делал это с другими частями кода, но ни одна из этих частей не имела отношения к графике. 

    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 как графику, понятия не имел, что это значит или как обойти это, я искал на форумах, что у другого человека была похожая проблема, и я пытался следовать эти шаги, сборка скомпилирована, но когда я ее запустил, она не печатала строки.

1 Ответ

2 голосов
/ 09 мая 2019

Ваша подпрограмма может выглядеть так: 

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)
...