Rechtecke Zeichenen und abspeichern

  • VB.NET

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

    Rechtecke Zeichenen und abspeichern

    Hallo !

    Wie mach ich das am besten?

    Ich würde auch meiner FOrm gene eine FUnktion einbinden, die es möglich macht rechtecke und linien zu zeichnen - entfernen und ab zu speichern.

    Wie man ein Rechteck mit code zeichnet weiß ich, aber nicht wie man es über benützer eingabe und per drag & drop machen kann.

    mathisderaltefuchs schrieb:

    drag & drop
    Ich hoffe mal, Du meinst nicht D&D, sondern MouseDown und MouseUp.
    Bei MouseDown merkst Du Dir die x- und die y-Position.
    Bei MouseMove ebenfalls und rufst Invalidate() auf, im Paint malst Du eine Linie von den Koordinaten von MouseDown nach MouseMove.
    Bei MouseUp selbes wie MouseMove, nur ist die Linie jetzt komplett, abspeichern.
    Ein Rechteck ist nicht ganz trivial, da musst Du Dir erst eine Verfahrensweise ausdenken, wie Mausbewegungen ein Rechteck definieren können, z.B. über die Diagonale.
    Also: MouseDown ist Punkt1 (nicht unbedingt oben links), da die MouseMove-Richtung nicht bekannt ist.
    MouseMove/MouseUp ist punkt3. Punkt2 und Punkt4 ermittelst Du aus Punkt1, Punkt3 durch orthogonale Vervollständigung.
    Wenn Du schiefe Rechtecke willst, musst Du Dir was anderes ausdenken, das geht dann nicht mehr in einem Ritt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    mathisderaltefuchs schrieb:

    cursor.position.y und x
    geht nicht, nimm e.X und e.Y.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim X1 As Integer
    4. Dim Y1 As Integer
    5. Dim X2 As Integer
    6. Dim Y2 As Integer
    9. Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    10. X1 = e.X
    11. Y1 = e.Y
    12. End Sub
    14. Private Sub Form1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    15. X2 = e.X
    16. Y2 = e.Y
    17. Invalidate()
    18. End Sub
    20. Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    21. e.Graphics.DrawLine(Pens.AliceBlue, X1, Y1, X2, Y1)
    22. End Sub
    23. End Class

    Fast:

    VB.NET-Quellcode

    1. e.Graphics.DrawLine(Pens.AliceBlue, X1, Y1, X2, Y2)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Coole sache ;) danke für deine kleine aber feine hilfestellung ^^
    Ich hätte noch ein paar interessante sachen - evt. kannst du mir wieder helfen.

    1. Wie kann ich die linie sozusagen vorschauen lassen und beim losslassen wird die erst entgültig gezeichnet
    2. Im Moment kann ich nur 1 Linie zeichen - wenn ich eine neue mach wird diese gelöscht - wie kann ich das verhindern ?
    3. WIe kann ich linen so abspeichern, dass diese nach einem neustart wieder abrufbar sind bzw. angezeigt werden

    4. geht punkt 1 auch mit rechtecken ?

    mfg

    zu 1. Setze ein Flag, das von MouseDown bis MouseUp gültig ist und konfiguriere die Linie.
    zu 2. Pack die fertigen Linien in eine List(Of DEINE_LINIE)
    zu 3. Save die List(Of DEINE_LINIE)
    zu 4.

    VB.NET-Quellcode

    1. e.Graphics.DrawRectangle(Pens.AliceBlue, New Rectangle(X1, Y1, X2 - X1, Y2 - Y1))
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sieh Dir mal das an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private X1 As Integer
    3. Private Y1 As Integer
    4. Private X2 As Integer
    5. Private Y2 As Integer
    6. Private bPaint As Boolean = False
    7. Private bStart As Boolean = False
    9. Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    10. X1 = e.X
    11. Y1 = e.Y
    12. bPaint = False
    13. bStart = True
    14. End Sub
    16. Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    17. If bStart Then
    18. X2 = e.X
    19. Y2 = e.Y
    20. bPaint = True
    21. Invalidate()
    22. End If
    23. End Sub
    25. Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    26. If bStart Then
    27. X2 = e.X
    28. Y2 = e.Y
    29. bPaint = True
    30. Invalidate()
    31. End If
    32. bStart = False
    33. End Sub
    35. Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    36. If bPaint Then
    37. 'e.Graphics.DrawLine(Pens.AliceBlue, X1, Y1, X2, Y2)
    38. e.Graphics.DrawRectangle(Pens.AliceBlue, New Rectangle(X1, Y1, X2 - X1, Y2 - Y1))
    39. End If
    40. End Sub
    41. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke ! :thumbup:

    edit: ..... ich bekomm die lsit of t auch ned hin...

    VB.NET-Quellcode

    1. Sub Liste()
    2. Dim a As New List(Of Object)
    3. a.Add(New Rectangle(Pens.Black, New Rectangle(X1, Y1, X2 - X1, Y2 - Y1)))
    5. End Sub


    Leider ist die Syntax falsch ... aber ich weiß ned wie ich sie berichtige und dann abspeichere/anzeigen lasse.

    mfg

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

    VB.NET-Quellcode

    1. Dim a As New List(Of Rectangle)
    2. a.Add(New Rectangle(X1, Y1, X2 - X1, Y2 - Y1))

    Oder Du machst Dir eine Struct / Klasse, wo der Pen und das Rectangle Member sind und packst dieses in die List(Of MyClass)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende