x,y viele Drawlines (Erleichterung?)

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Bergfeuer.

    x,y viele Drawlines (Erleichterung?)

    Benötige folgende Drawlines

    VB.NET-Quellcode

    1. Dim g As Graphics
    2. Dim p As Pen
    3. p = New Pen(System.Drawing.Color.Black)
    4. g = e.Graphics
    5. With g
    8. .DrawLine(p, 0, 330, 640, 330) 'x
    9. .DrawLine(p, 20, 340, 20, 0) 'y
    11. .DrawLine(p, 25, 325, 25, 335)
    12. .DrawLine(p, 30, 325, 30, 335)
    13. .DrawLine(p, 35, 325, 35, 335)
    14. .DrawLine(p, 40, 325, 40, 335)
    15. .DrawLine(p, 45, 325, 45, 335)
    16. .DrawLine(p, 50, 325, 50, 335)
    17. .DrawLine(p, 55, 325, 55, 335)
    18. .DrawLine(p, 60, 325, 60, 335)
    19. .DrawLine(p, 65, 325, 65, 335)
    20. .DrawLine(p, 70, 325, 70, 335)
    21. .DrawLine(p, 75, 325, 75, 335)
    22. .DrawLine(p, 60, 325, 60, 335)
    23. .DrawLine(p, 65, 325, 65, 335)
    24. .DrawLine(p, 70, 325, 70, 335)
    25. .DrawLine(p, 75, 325, 75, 335)
    26. .DrawLine(p, 80, 325, 80, 335)
    27. .DrawLine(p, 85, 325, 85, 335)
    28. .DrawLine(p, 90, 325, 90, 335)
    29. .DrawLine(p, 95, 325, 95, 335)
    30. .DrawLine(p, 100, 325, 100, 335)
    31. .DrawLine(p, 105, 325, 105, 335)
    32. .DrawLine(p, 110, 325, 110, 335)
    33. .DrawLine(p, 115, 325, 115, 335)
    34. .DrawLine(p, 120, 325, 120, 335)
    35. .DrawLine(p, 125, 325, 125, 335)
    36. .DrawLine(p, 130, 325, 130, 335)
    37. .DrawLine(p, 145, 325, 145, 335)
    38. .DrawLine(p, 150, 325, 150, 335)
    39. .DrawLine(p, 155, 325, 155, 335)
    40. .DrawLine(p, 160, 325, 160, 335)
    41. .DrawLine(p, 165, 325, 165, 335)
    42. .DrawLine(p, 170, 325, 170, 335)
    43. .DrawLine(p, 175, 325, 175, 335)
    44. .DrawLine(p, 180, 325, 180, 335)
    45. .DrawLine(p, 185, 325, 85, 335)
    46. .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“ ()

    hab ich heute auch erstellt ^^ rein aus interesse:

    VB.NET-Quellcode

    1. Dim v1 As Integer = 0 'Anzahl der Linien die am ende insgesamt erstellt wurden
    2. Dim x1 As Integer = Me.Height / 25 'anzahl der linien die gebraucht werden bis unten angekommen...damit nicht unendlich erstellt werden
    3. Dim y1 As Integer = x1 * 25 'anzahl der linien + anzahl der steps = maximum bis hin vb zählen muss
    4. Dim z1 As Integer = 0 'der integer halt ^^
    5. For z1 = 0 To y1 Step 25
    6. graphic.DrawLine(p, 0, z1, Me.Width, z1)
    7. v1 += 1
    8. Next

    bei mir sind alle 25 pixel...v1 hat mich interessiert um herauszufinden wieviele linien ich am ende hatte damit ich eben nachrechnen konnte obs von der zahl her stimmt oder ob er doch zuviele erstellt...

    MfG
    Just4Fun

Facebook
Telefonspende