Bildbearbeitung bzw. Bildausschnitt

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    Bildbearbeitung bzw. Bildausschnitt

    Hallo,

    ich bin gerade am überlegen eine kleine Programmerweiterung für meine Adressdatenbank zu machen.

    Habe bei einigen meiner Kontakte auch ein Bild hinterlegt. Nun ist es aber so, dass man oft die Bilder erst mal in einem Bildbearbeitungsprogramm bearbeiten muß, ausschneiden (also nur das Gesicht)... und das geht mir immer bisserl auf den Wecker :)


    Bin nun am überlegen ein Form zu machen mit einer relativ großen PicBox, so 800 x 600. wenn da ein bild reingeladen wird, soll eine ein art Raser erscheinen, wie ein mega große Lupe nur rechteckig wo ich den Bereich des hochgeladenen Bildes ausschneiden kann.
    So was hat auch ebay :) ... lädt man da ein bild hoch, kann ich den Bereich eingrenzen... so was hätte ich gerne..

    Hat da vielleicht einer eine Idee dazu ? :)

    Hab nicht einen hauch an Idee wie ich das realisieren könnte... aber hilfreich wäre das alle mal :) oder ?

    Gruß lris

    Nun du lädst ein Bild in die PB. Darein zeichnest du via GDI einen Auswahlrahmen wenn mit der Maus in das Bild geklickt wird. Ich würde keine Feste größe nehmen sondern eher das Verhältnis bestimmt. Also Breite = Höhe z.B. so kann der Benutzer aus dem Bild einen 50px x 50px Ausschnis auswählen, welcher dann jeadoch auf 100px x 100px vergrößert wird, welches die Endmaße des Bildes sind. Ebenso kann der User einen 200px x 200px Bereich von dem Bild auswählen, dann würde das bild eben verkleinert. Das ist alles mit GDI möglich und auch nicht groß kompliziert. Denke das komplizierteste daran wäre die auswahlbox für den Bildausschnitt zu machen.

    Hmm... ok, also jetzt werd ich da richtig neugierig :) ich werde mich mal die nächsten Tage da weiter damit beschäftigen :)


    mal eine Frage zum herkömmlichen Laden eines Bildes...

    Kann es sein, dass bei unten genannten Code eine Verbindung zum Bild offen bleibt?
    Wenn ich mit diesem Code ein Bild in eine PicturBox lade, dass Programm noch läuft kann ich das Bild nicht löschen. Beende ich das Programm, kann ich das Bild auch auf der Festplatte löschen...

    VB.NET-Quellcode

    1. Private Sub Bild_DIMS_laden(ByVal PicNR As String)
    2. Dim BildAlsDateiPfad As String = Form1.Archiv_Pfad & _
    3. "\FILES_" & Form1.Archiv_Name & "\FILES\Pers_SECRET\" & PicNR & ".jpg"
    4. If File.Exists(BildAlsDateiPfad) Then
    5. Me.pb1.Image = New System.Drawing.Bitmap(BildAlsDateiPfad)
    6. Else
    7. Me.pb1.Image = My.Resources.fehllt
    8. End If
    9. End Sub

    Hi
    Machs doch im MouseDown-, MouseMove- und MouseUp-Event. Dort kannst du den oberen linken und den unteren rechten Punkt wählen. Wenn du dann ein fixes Seitenverhältnis wählst, hast du die richtigen Bildmaße. Du musst dann das Seitenverhältnis nur noch so anpassen, dass der kleinere/größere der Vielfachen des Seitenverhältnisses genommen wird, um die größe des Rasters zu bestimmen. Per Refresh kannst du dann auch noch ein Rechteck darauf zeichnen, das den ausgewählten Bereich bestimmt (im Paint-Event).
    Anschließend erzeugst du eine Bitmap. Dem Konstruktor kannst du die Breite und Höhe übergeben und mit Graphics.FromGraphics kannst du dann auf die Bitmap zeichnen. Also zeichnest du nur noch das Bild per DrawImage, indem du das Zielrechteck so festlegst, dass die Punkte auf der PictureBox eben die Eckpunkte der gezeichneten Bitmap sind. Anschließend rufst du für das erzeugte Graphics-Objekt noch Dispose auf (oder benutzt gleich Using). Die Bitmap kannst du dann der PictureBox zuweisen.

    Zwar 2 Beiträge zu spät, aber naja.

    Gruß
    ~blaze~

    so ... ich hab mich da mal umgeschaut... is nicht so ganz einfach das wirklich zu verstehen...

    bei diesem code wird ein bild in PB1 geladen, wenn ich es mit einem "gummiband" markiere, sollte er eigentlich nur den markierten bereich in PB2 kopieren.

    beim kopiervorgang macht er jedoch was falsch... schaut euch mal das anhängende Bild an... steig nicht dahinter warum er das bild so komisch zuschneidet...

    Könnt Ihr mir sagen was der da macht ???


    VB.NET-Quellcode

    1. Public Class Form1
    2. Private PFile As String
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. PFile = "C:\Users\<USER>\Pictures\Neuer Ordner (2)\19072010008.jpg"
    5. Me.PictureBox1.Image = Image.FromFile(PFile)
    6. End Sub
    8. Dim rubbervisible As Boolean = False
    9. Dim rubbercancel As Boolean = False
    10. Dim rubberpos As Point
    11. Dim rubbersize As Size
    12. Dim rubberpos_orig As Point
    15. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    16. rubbercancel = False
    17. rubberpos_orig = New Point(e.X, e.Y)
    18. rubberpos = PictureBox1.PointToScreen(rubberpos_orig)
    19. rubbersize = New Size(0, 0)
    20. ' Startrechteck zeichnen
    21. DrawRubberBox()
    22. End Sub
    23. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    24. If e.Button <> MouseButtons.None And rubbercancel = False Then
    25. Dim x As Integer = e.X
    26. Dim y As Integer = e.Y
    27. If x < 0 Then x = 0
    28. If x > PictureBox1.ClientSize.Width Then x = PictureBox1.ClientSize.Width
    29. If y < 0 Then y = 0
    30. If y > PictureBox1.ClientSize.Height Then y = PictureBox1.ClientSize.Height
    31. ' bisheriges Rechteck löschen
    32. RemoveRubberBox()
    33. ' neues Rechteck zeichnen
    34. rubbersize = New Size(x - rubberpos_orig.X, y - rubberpos_orig.Y)
    35. Text = x.ToString() '& y.ToString & rubbersize.ToString()
    36. DrawRubberBox()
    37. End If
    38. End Sub
    39. Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    40. If rubbercancel Then Exit Sub
    41. ' Rechteck löschen
    42. RemoveRubberBox()
    43. ' als Ergebnis Rechteck zeichnen
    44. Dim x0, y0, x1, y1, tmp As Integer
    45. Dim gr As Graphics = Graphics.FromHwnd(PictureBox1.Handle)
    46. Dim img As Image
    47. Dim buffer As Bitmap
    48. img = PictureBox1.Image
    49. ' Rechteck von (x0,y0) nach (x1,y1)
    50. x0 = rubberpos_orig.X
    51. x1 = x0 + rubbersize.Width
    52. If x0 > x1 Then tmp = x0 : x0 = x1 : x1 = tmp
    53. y0 = rubberpos_orig.Y
    54. y1 = y0 + rubbersize.Height
    55. If y0 > y1 Then tmp = y0 : y0 = y1 : y1 = tmp
    56. 'buffer = CropBitmap(CType(img, Bitmap), x0, y0, x1, CInt(CLng(y1 * 1.2)))
    57. buffer = CropBitmap(CType(img, Bitmap), x0, y0, x1, y1)
    58. PictureBox2.Image = buffer
    59. PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
    60. buffer = Nothing 'verhindert OutOfMemory Exception
    61. gr.Dispose()
    62. 'buffer.Dispose())'Exception wird ausgelöst
    63. End Sub
    65. Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave
    66. RemoveRubberBox()
    67. rubbercancel = True
    68. End Sub
    69. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    70. RemoveRubberBox()
    71. rubbercancel = True
    72. End Sub
    73. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
    74. 'MessageBox.Show("Hallo")
    75. End Sub
    76. Private Sub DrawRubberBox()
    77. rubbervisible = True
    78. ControlPaint.DrawReversibleFrame( _
    79. New Rectangle(rubberpos, rubbersize), _
    80. Color.White, FrameStyle.Dashed)
    81. End Sub
    82. Private Sub RemoveRubberBox()
    83. If rubbervisible = True Then
    84. ControlPaint.DrawReversibleFrame( _
    85. New Rectangle(rubberpos, rubbersize), _
    86. Color.White, FrameStyle.Dashed)
    87. End If
    88. rubbervisible = False
    89. End Sub
    91. Private Function CropBitmap(ByRef bmp As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap
    92. Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight)
    93. Dim cropped As Bitmap = bmp.Clone(rect, bmp.PixelFormat)
    94. Return cropped
    96. End Function
    98. End Class
    Bilder

    • Image3.jpg

      103,72 kB, 1.007×455, 286 mal angesehen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „lris08“ ()

    Habe meinen oberen Beitrag geändert...

    bei der alten Version, die ich ausprobiert habe... Gibt er mir folgenden Fehler aus:
    Fehler beim Auflösen der Überladung. Keine zugreifbare Chars akzeptiert diese Anzahl von Argumenten.

    und dies bei folgender Codezeile:

    VB.NET-Quellcode

    1. Dim Img2 As Bitmap = PFile.Clone(Ausschnitt, Imaging.PixelFormat.DontCare)



    der gesamte alte Code nochmal:

    VB.NET-Quellcode

    1. Private startPt, endpt As Point
    3. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    4. startPt = Nothing
    5. endpt = Nothing
    6. If e.Button = Windows.Forms.MouseButtons.Left Then
    7. startPt = PictureBox1.PointToScreen(e.Location)
    8. End If
    9. End Sub
    11. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    13. If e.Button = Windows.Forms.MouseButtons.Left Then
    14. If endpt = Nothing Then
    15. endpt = PictureBox1.PointToScreen(e.Location)
    16. End If
    17. ControlPaint.DrawReversibleFrame(New Rectangle(startPt.X, startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y), _
    18. Color.Orange, FrameStyle.Dashed)
    19. endpt = PictureBox1.PointToScreen(e.Location)
    20. ControlPaint.DrawReversibleFrame(New Rectangle(startPt.X, startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y), _
    21. Color.Orange, FrameStyle.Dashed)
    24. End If
    25. End Sub
    27. Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseMove
    28. Dim Ausschnitt As New Rectangle(startPt.X, startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y)
    29. Dim Img2 As Bitmap = PFile.Clone(Ausschnitt, Imaging.PixelFormat.DontCare)
    30. Me.PictureBox2.Image = New System.Drawing.Bitmap(Img2)
    31. End Sub

    Ich würde das wirklich mit GDI machen. Da kannst du das Bild auch an die Größe der PictureBox anpassen. Der Fehler dürfte eigentlich nicht auftreten, wenn PFile eine Bitmap, kein Image, ist. Bitmap.FromFile usw. laden übrigens ebenfalls Image-Objekte. Die Methode wird von Image geerbt.

    Ganz vergessen: Was hat das Chars da zu bedeuten?

    Gruß
    ~blaze~

    so nun habe ich mich wieder dem ursprünglichen Code zugewandt.

    Bisher funktioniert das schon mal sehr gut alles, bis auf die Tatsache, dass der markierte Bereich noch nicht korrekt übernommen werd.

    Ich denke mal es hat was mit dem x und y koordinaten zu tun.

    anbei ein bild, linkes bild original mit markierung - rechtes bild sollte eigentlich was anderes dargestellt werden... hoffe man kann es bisserl erkennen...

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. PictureBox1.Image = Image.FromFile("DasBildAlsGanzerPfad")
    5. End Sub
    7. Private startPt, endpt As Point
    9. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
    10. System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    11. startPt = Nothing
    12. endpt = Nothing
    13. If e.Button = Windows.Forms.MouseButtons.Left Then
    14. startPt = PictureBox1.PointToScreen(e.Location)
    15. End If
    16. End Sub
    18. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
    19. System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    21. If e.Button = Windows.Forms.MouseButtons.Left Then
    22. If endpt = Nothing Then
    23. endpt = PictureBox1.PointToScreen(e.Location)
    24. End If
    25. ControlPaint.DrawReversibleFrame(New Rectangle(startPt.X, _
    26. startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y), _
    27. Color.Orange, FrameStyle.Dashed)
    28. endpt = PictureBox1.PointToScreen(e.Location)
    29. ControlPaint.DrawReversibleFrame(New Rectangle(startPt.X, _
    30. startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y), _
    31. Color.Orange, FrameStyle.Dashed)
    32. End If
    34. tbar_xy.Text = "XY: " & startPt.X & " " & startPt.Y & " " & endpt.X - startPt.X & " " & endpt.Y - startPt.Y
    35. End Sub
    37. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseMove
    38. If PictureBox1.Image Is Nothing Then
    39. MessageBox.Show("Kein Bild vorhanden...")
    40. Return
    41. End If
    43. Dim img As Bitmap = New Bitmap(PictureBox1.Image)
    45. Dim section As Rectangle = New Rectangle(startPt.X, startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y)
    47. PictureBox2.Image = CropImage(img, section)
    49. 'img = CropImage(img, section)
    50. 'img.Save("")
    51. End Sub
    53. Function CropImage(ByVal source As Bitmap, ByVal section As Rectangle) As Bitmap
    54. Dim bmp As New Bitmap(section.Width, section.Height)
    55. Dim g As Graphics = Graphics.FromImage(bmp)
    56. g.DrawImage(source, 0, 0, section, GraphicsUnit.Pixel)
    57. Return bmp
    58. End Function
    60. End Class


    ich denke diese Zeile

    Quellcode

    1. Dim section As Rectangle = New Rectangle(startPt.X, startPt.Y, endpt.X - startPt.X, endpt.Y - startPt.Y)

    stimmt nicht so richtig.

    Irgendwie steige ich da nicht dahinter... Könnt's ma da mal bisserl unter die arme greifen ?

    lris
    Bilder

    • Image3.jpg

      82,69 kB, 774×547, 216 mal angesehen

    hey, versuch mal den code. ist etwas einfacher^^


    VB.NET-Quellcode

    1. Public SelectionRec As New Rectangle
    2. Public _MouseDown As Boolean = False
    3. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    4. _MouseDown = True
    5. With SelectionRec
    6. .X = e.X
    7. .Y = e.Y
    8. End With
    9. End Sub
    10. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    11. If _MouseDown = True Then
    12. With SelectionRec
    13. .Width = e.X - .X
    14. .Height = e.Y - .Y
    15. End With
    16. PictureBox1.Invalidate()
    17. End If
    18. End Sub
    19. Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    20. _MouseDown = False
    21. With SelectionRec
    22. .Width = e.X - .X
    23. .Height = e.Y - .Y
    24. End With
    25. PictureBox1.Invalidate()
    27. PictureBox2.Image = CropImage(New Bitmap(PictureBox1.Image), SelectionRec)
    30. End Sub
    31. Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    32. With e.Graphics
    33. .DrawRectangle(Pens.Red, SelectionRec)
    34. End With
    35. End Sub
    39. Function CropImage(ByVal source As Bitmap, ByVal section As Rectangle) As Bitmap
    40. Dim bmp As New Bitmap(section.Width, section.Height)
    41. Dim g As Graphics = Graphics.FromImage(bmp)
    42. g.DrawImage(source, 0, 0, section, GraphicsUnit.Pixel)
    43. Return bmp
    44. End Function



    PS: wenn du den bereich von unten rechts nach oben links auswähls kommt einfehler. das musst du vllt nohc ausbessern

Facebook
Telefonspende