Benötige folgende Drawlines
Das geht doch auch bestimmt einfacher, als alles von Hand zu schreiben. oder?
VB.NET-Quellcode
- Dim g As Graphics
- Dim p As Pen
- p = New Pen(System.Drawing.Color.Black)
- g = e.Graphics
- With g
- .DrawLine(p, 0, 330, 640, 330) 'x
- .DrawLine(p, 20, 340, 20, 0) 'y
- .DrawLine(p, 25, 325, 25, 335)
- .DrawLine(p, 30, 325, 30, 335)
- .DrawLine(p, 35, 325, 35, 335)
- .DrawLine(p, 40, 325, 40, 335)
- .DrawLine(p, 45, 325, 45, 335)
- .DrawLine(p, 50, 325, 50, 335)
- .DrawLine(p, 55, 325, 55, 335)
- .DrawLine(p, 60, 325, 60, 335)
- .DrawLine(p, 65, 325, 65, 335)
- .DrawLine(p, 70, 325, 70, 335)
- .DrawLine(p, 75, 325, 75, 335)
- .DrawLine(p, 60, 325, 60, 335)
- .DrawLine(p, 65, 325, 65, 335)
- .DrawLine(p, 70, 325, 70, 335)
- .DrawLine(p, 75, 325, 75, 335)
- .DrawLine(p, 80, 325, 80, 335)
- .DrawLine(p, 85, 325, 85, 335)
- .DrawLine(p, 90, 325, 90, 335)
- .DrawLine(p, 95, 325, 95, 335)
- .DrawLine(p, 100, 325, 100, 335)
- .DrawLine(p, 105, 325, 105, 335)
- .DrawLine(p, 110, 325, 110, 335)
- .DrawLine(p, 115, 325, 115, 335)
- .DrawLine(p, 120, 325, 120, 335)
- .DrawLine(p, 125, 325, 125, 335)
- .DrawLine(p, 130, 325, 130, 335)
- .DrawLine(p, 145, 325, 145, 335)
- .DrawLine(p, 150, 325, 150, 335)
- .DrawLine(p, 155, 325, 155, 335)
- .DrawLine(p, 160, 325, 160, 335)
- .DrawLine(p, 165, 325, 165, 335)
- .DrawLine(p, 170, 325, 170, 335)
- .DrawLine(p, 175, 325, 175, 335)
- .DrawLine(p, 180, 325, 180, 335)
- .DrawLine(p, 185, 325, 85, 335)
- .DrawLine(p, 190, 325, 190, 335)
Das geht doch auch bestimmt einfacher, als alles von Hand zu schreiben. oder?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bergfeuer“ ()