Perfektes Gitter mit GDI malen

    • VB.NET

    Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von CrosSLight.

      Perfektes Gitter mit GDI malen

      Hey leute,
      ich habe heute eine kleine Sub geschrieben womit man ein Perfektes Gleichmäßiges Gitter mit GDI zeichnen kann mit Spalten und reihen angabe!
      Also erstmal braucht ihr zwei Variablen:
      spalten und reihen
      wozu sollte klar sein^^
      Die sub:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private spalten As Integer = 15
      4. Private reihen As Integer = 15
      5. Public Sub DrawLines( ByVal g As Graphics)
      6. Dim factorx As Double = (Me.ClientSize.Width / spalten) - (1 / spalten)
      7. Dim factory As Double = (Me.ClientSize.Height / reihen) - (1 / reihen)
      8. For y As Integer = 1 To reihen
      9. g.DrawLine(Pens.Green, 1, CInt(y * factory), Me.Width, CInt(y * factory))
      10. Next
      11. For x As Integer = 1 To spalten
      12. g.DrawLine(Pens.GreenYellow, CInt(x * factorx), 1, CInt(x * factorx), Me.Height)
      13. Next
      14. End Sub
      16. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      17. e.Graphics.Clear(Color.Black)
      18. DrawLines(e.Graphics)
      19. End Sub
      21. Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
      22. Me.Refresh()
      23. End Sub
      24. End Class


      jetzt einfach in die variable reihen die reihen hinschreiben und in spalten die spalten und jetzt sollte es wenn alles richtig ist so aussehn:

      In meinen fall waren es 15 Zeilen und 15 Spalten.
      Hoffe konnte euch helfen
      Über Kommentarre freue ich mich
      Mfg
      Load-soft

      EDIT:
      Hab mir erlaubt den Code einwenig umzugestalten, sodass er auch für den Sourcecode-Austausch akzeptabel ist.
      Ansonten - nette Idee.

      Gruss

      mikeb69

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Load-soft.ch.vu“ () aus folgendem Grund: Idee nett - Code untragbar für Sourcecode-Austausch

      Danke^^
      Ich habe das ganze nochmal mit richtigen Rechtecken gemacht so kann man auch mehr damit machen bzw. man weiß wo welches Rechteck anfängt:

      VB.NET-Quellcode

      1. Public Sub DrawRectangles()
      2. Dim x As Integer = 1
      3. Dim y As Integer = 1
      4. Dim Factoryx As Double = Panel1.width / spalten
      5. Dim Factoryy As Double = Panel1.height / reihen
      6. For rows = 1 To reihen
      7. For spalt = 1 To spalten
      8. Dim rechteck As New Rectangle(x, y, Factoryx, Factoryy)
      9. g.DrawRectangle(Pens.Green, rechteck)
      10. x += Factoryx - (1 / spalten)
      11. Next
      12. y += Factoryy - (1 / reihen)
      13. x = 1
      14. Next
      15. End Sub

      Wenn man wieder zweifarben haben möchte dann einfach Drawlines ausführen (ob man Rechtecke nimmt oder Linen) sie sind immer an der gleichen stelle.
      Einfach in eine List(of Rectangle).
      Edit:
      Code etwas überarbeitet so sollte es besser klappen bzw. Trotztdem noch genau sein. (hoff ich)

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Load-soft.ch.vu“ ()

      Boah,der code ist echt gut,hat mir sehr gehollfen.Aber da war ein kleiner Fehler drin, bei den "yellowgreen" Linien, werden diese,wenn man die Form ganz klein zieht nicht ganz durchgezeichnet.Weil da als als letzte Angabe "me.width" steht,also sind die immer nur so lang wie die Breite und nicht ganz durchgehend bis zur höhe.Da sollte "me.height" hin.

      edit: Außerdem ist es echt witzig die Spalten und Reihen auf einen sehr hohen wert zu stellen,dann wird eine wand erst von oben nach unten und dann von rechts nach links gezogen,echt witzig. :D

      Ist vllt bisschen her das Thema aber wie kann man das Gitter in den Hintergrund machen, wenn ich z.B. etwas mit der Maus zeichnen will (in einem Programm auf Basis von einem Thema im Source Code Austausch (Paint Prog)) dann ist das gitter im vordergrund und ich muss es erst deaktivieren bevor ich alle linien etc. sehe ?(

      ich selbst habe soetwas auch mal gebraucht und genauso realisiert. das problem ist, wenn man den abstand zwischen den linien sehr klein wählt - also sehr viele linien gezeichnet werden müssen - dauert das ganze extrem lange und es kommt zu "rucklern".
      ich habe das problem gelöst indem ich nur ein rechteck auf eine bitmap gezeichnet habe und den betreffenden bereich dann mittels texturebrush ausgefüllt habe. das ergebnis ist das selbe, es geht nur um einiges schneller^^

      mfg FreakJNS

      VB.NET-Quellcode

      1. public class Class1
      3. Dim G as Graphics
      4. Dim BBG as Graphics
      5. Dim BB as Bitmap
      6. Dim R as rectangle
      7. Die größe Der kästen
      8. Dim TileSize as integer = 32
      10. 'Ins FormLoad
      12. Sub Form_Load()
      13. me.show
      14. me.focus
      16. G = Me.CreateGraphics
      17. BB = new Bitmap (me.width,me.height)
      18. DoLoop()
      19. end sub
      21. 'Wiederholung
      22. sub DoLoop()
      23. do
      24. 'Da mit das Programm ansprechbar Bleibt
      25. application.doevents
      27. 'jetzt erstellen des gitters
      28. DrawGraphics()
      29. Loop
      30. end sub
      32. sub DrawGraphics
      33. For X = 0 to 50
      34. For Y = 0 to 50
      35. R = new Rectangle(X * TileSize, Y * TileSize, TileSize,TileSize)
      36. G.Fillrectangle(brushes.Gray,R)
      37. G.DrawRectangle(pens.Black,R)
      38. next
      39. next
      40. end sub
      43. end Class



      Code nicht getstet und mit Copy and paste bringt er dir nichts am besten Übst du bisel dann Klapt das schon

      @ CrosSLight
      der code ist die hölle!!

      du erstellst eine schleife die das raster unaufhörlich neuzeichnet. damit es nicht hängt/ruckelt nutzt du application doevents? das ist sehhhr schlecht!

      zeichnen nur im paint-event ist die lösung. so wird NUR gezeichnet wenn es erforderlich ist - nicht alle paar millisekunden...

      PS: wozu eigentlich die bitmap BB?? du wolltest mit sicherheit meinen tipp verwirklichen allerdings hat es nicht so wirklich hingehauen^^

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FreakJNS“ ()

      Seppi123 schrieb:

      Hat geklappt nach einigen Stunden rumbasteln

      ..und der Nächste wird wieder Rumbasteln, anstatt auf erreichten aufzubauen,wenn du deine Lösung hier nicht
      veröffentlichst.
      Es ist schade das es so viele Fragen mit keiner Lösung gibt.


      Code nicht getstet und mit Copy and paste bringt er dir nichts am besten Übst du bisel dann Klapt das schon

      Lösungsvorschläge sollten Fair sein,es gibt schon unbeabsichtigt genug Fehler. ;)
      Gruß

    Facebook
    Telefonspende