Bild in PictureBox laden und dann darauf malen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Don_Batisto.

    Bild in PictureBox laden und dann darauf malen

    Ich habe mir ein Programm gemacht, was ähnlich wie Paint funktioniert.

    Also man kann ein Bild laden und dann darauf rummalen.

    Leider ist da iwie etwas komisch. Wenn zB die Maus unten rechts ist, dann ist der Punkt nicht unten rechts, sondern weiter oben...



    Wenn ich die Kanten unten und rechts lang gehe, dann erkennt man das Fenster wo er nur malt:



    Und so sieht mein Code dazu aus:

    VB.NET-Quellcode

    1. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ PictureBoxControls ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    3. ' Pen-Control in Picturebox
    4. Private Sub pencil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pencil.Click
    5. pn_klck = 1
    6. End Sub
    8. ''Klick in Picturebox
    9. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    10. If pn_klck_in = 0 And pn_klck = 1 Then
    11. pn_klck_in = 1
    12. ElseIf pn_klck_in = 1 Then
    13. pn_klck_in = 0
    14. Else
    16. End If
    17. End Sub
    19. '' Rubber-Control in Picturebox
    20. Private Sub rubber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rubber.Click
    21. pn_klck = 0
    22. pn_klck_in = 0
    23. With PictureBox1
    24. .Visible = True
    25. .Load(dat_path)
    26. '.SizeMode = PictureBoxSizeMode.CenterImage
    27. .SizeMode = PictureBoxSizeMode.StretchImage
    28. .BorderStyle = BorderStyle.Fixed3D
    30. 'Bearbeitungsknöpfe
    31. .Controls.Add(pencil)
    32. .Controls.Add(rubber)
    33. .Controls.Add(SavePic)
    34. pencil.Visible = True
    35. rubber.Visible = True
    36. SavePic.Visible = True
    37. End With
    38. End Sub
    40. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Funktionen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    42. ' ZeichnenFkt.
    43. Private Sub picOut_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    45. If pn_klck = 1 Then
    46. If pn_klck_in = 1 Then
    47. ' Graphics-Objekt erstellen
    48. Using g = Graphics.FromImage(PictureBox1.Image), Brush = New SolidBrush(Color.FromArgb(200, Color.Red))
    50. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    51. g.FillEllipse(Brush, e.Location.X, e.Location.Y, 20, 20)
    52. End Using
    54. ' Ergebnis anzeigen
    55. PictureBox1.Invalidate()
    56. End If
    57. End If
    58. End Sub


    Wo muss ich was ändern, damit er nun überall malt und nicht einen Teil auslässt?

    Genau.
    Achreib Dir die Mouse-Koordinaten im MouseMove-Event in 2 Label, dann wirst Du sehen.
    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!

    Also, habe es durch Zufall gelöst.

    Dachte mir so schauste dir mal die PixelZahlen an, weil das Bild von oben, war zB größer als die PictureBox in der Form.
    Dies lag daran, dass ich folgendes drin hatte:

    VB.NET-Quellcode

    1. PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage


    Nachdem ich das rausgenommen hatte, lief es wieder so wie es sollte, aber das Bild wurde halt nur in dem Bereich gezeigt.
    Also habe ich das nun so gemacht, dass ich die PictureBox so vergrößert habe, wie ich sie brauche und nun klappt alles prima!

Facebook
Telefonspende