Bild aus einem Bild herausschneiden

    • VB.NET

    Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Mangafreak1995.

      Bild aus einem Bild herausschneiden

      Ich habe mir letztens eine Funktion geschrieben mit der man aus einem vorhandenen Image ein TeilImage 'herausschneiden' kann:
      Mit Imports

      VB.NET-Quellcode

      1. Imports System.Drawing
      3. Public Shared Function LoadImagePart(ByVal img As Image, ByVal rows As Integer, ByVal colums As Integer, ByVal part As Point) As Image
      4. Dim minw, minh As Integer
      5. minw = CInt(img.Width / colums)
      6. minh = CInt(img.Height / rows)
      7. Dim cur As New Bitmap(minw, minh)
      8. Using g As Graphics = Graphics.FromImage(cur)
      9. g.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceCopy
      10. g.DrawImage(img, New Rectangle(0, 0, cur.Width, cur.Height), _
      11. New Rectangle(minw * part.X, minh * part.Y, cur.Width, cur.Height), GraphicsUnit.Pixel)
      12. g.Flush()
      13. End Using
      14. Return cur
      15. End Function

      Ohne Imports

      VB.NET-Quellcode

      1. Public Shared Function LoadImagePart(ByVal img As System.Drawing.Image, ByVal rows As Integer, ByVal colums As Integer, ByVal area As System.Drawing.Point) As System.Drawing.Image
      2. Dim minw, minh As Integer
      3. minw = CInt(img.Width / colums)
      4. minh = CInt(img.Height / rows)
      5. Dim cur As New System.Drawing.Bitmap(minw, minh)
      6. Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(cur)
      7. g.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceCopy
      8. g.DrawImage(img, New System.Drawing.Rectangle(0, 0, cur.Width, cur.Height), _
      9. New System.Drawing.Rectangle(minw * area.X, minh * area.Y, cur.Width, cur.Height), System.Drawing.GraphicsUnit.Pixel)
      10. g.Flush()
      11. End Using
      12. Return cur
      13. End Function

      Als Klasse

      VB.NET-Quellcode

      1. Public Class ImageSeperator
      2. Private baseImage As System.Drawing.Image
      3. Public ReadOnly Property Image As System.Drawing.Image
      4. Get
      5. Return baseImage
      6. End Get
      7. End Property
      9. Private tblSize As System.Drawing.Size
      10. Public Property TableSize As System.Drawing.Size
      11. Get
      12. Return tblSize
      13. End Get
      14. Set (ByVal value As System.Drawing.Size)
      15. If value.Height > 0 And value.Width > 0 Then
      16. tblSize = value
      17. RaiseEvent TableSizeChanged(Me)
      18. Else
      19. Throw New System.ArgumentOutOfRangeException("Values must be greater than 0.")
      20. End If
      21. End Set
      22. End Property
      23. Public Event TableSizeChanged(ByVal sender As Object)
      25. Private cuttedImages As System.Drawing.Image()
      26. Public Function Cell(ByVal cellPoint As System.Drawing.Point) As Image
      27. Return Cell(cellPoint.X, cellPoint.Y)
      28. End Function
      29. Public Function Cell(ByVal x As Integer, ByVal y As Integer) As Image
      30. If x < 0 Or y < 0 Then _
      31. Throw New System.ArgumentOutOfRangeException("Value must be greater than or equal 0.")
      33. Dim i As Integer = x * tblSize.Width + y
      35. If i >= cuttedImages.Length() Then _
      36. Throw New System.ArgumentOutOfRangeException("Values must be greater than 0.")
      38. Return cuttedImages.Item(i)
      39. End Function
      41. Private Sub ReCutImage(ByVal sender As Object) Handles Me.TableSizeChanged
      42. Dim minw, minh As Integer
      43. minw = CInt(baseImage.Width / tblSize.X)
      44. minh = CInt(baseImage.Height / tblSize.Y)
      45. Dim cur As System.Drawing.Bitmap
      46. Dim images As New System.Collections.Generic.List(Of System.Drawing.Image)
      47. For x As Integer = 0 To tblSize.Width - 1
      48. For y As Integer = 0 To tblSize.Height - 1
      49. cur = New System.Drawing.Bitmap(minw, minh)
      50. Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(cur)
      51. g.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceCopy
      52. g.DrawImage(img, New System.Drawing.Rectangle(0, 0, minw, minh), _
      53. New System.Drawing.Rectangle(minw * x, minh * y, minw, minh), System.Drawing.GraphicsUnit.Pixel)
      54. g.Flush()
      55. End Using
      56. images.Add(cur)
      57. Next
      58. Next
      59. cuttedImages = images.ToArray()
      60. End Sub
      61. Public Sub New(ByVal img As System.Drawing.Image)
      62. baseImg = img
      63. TableSize = New Point(1, 1)
      64. End Sub
      65. End Class


      Ich hoffe, dass der Code jemanden helfen konnte.

      MfG Mangafreak1995

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mangafreak1995“ () aus folgendem Grund: Klasse hinzugefügt (auf Wunsch von Unwesen), Download entfernt

      Hallo Mangafreak1995,

      ein paar kleine Anmerkungen

      1. Wenn du Using verwendest, kannst du dir das Dispose sparen, da Using das automatisch erledigt.
      2. Ich denke das ganze würde ohne Flush auch funktionieren - aber nagut.
      3. Wenn ich das richtig sehe, dann teilst du die Graphik in gleichgroße Teile und gibst einen davon zurück. Was aber nicht aus dem Titel hervorgeht. Wolltest du damit ein Puzzle oder Memory Game bauen ?
      4. Die zwei Versionen sind unnötig - mit und ohne Imports


      Gruss

      mikeb69

      Zu 1. : geändert :)
      Zu 2. : manchmal gabs Probleme ohne Flush also hab ichs lieber dabei.
      Zu 3. : Deine Beispiele sind damit zu bewältigen. Ich habe es genommen und die Anzahl an Dateien zu reduzieren in dem ich gleichgroße Bilder in einem gepackt habe und dann wie due beschrieben raus genommen habe. Wer was damit macht, muss jeder selbst wissen.
      Zu 4. : nimmt man die Ohne-Imports-Version dann gibts keine "ungewollten" Komplikationen wenn man XNA-Imports hat, da dort Point und Graphics auch vorhanden sind.

      MfG M4n94fr34k

      Der Download enthält den Code auch nur als Projekt ;) mit OpenFileDialog etc.
      ungefähr so rufst du die Funktion auf :

      VB.NET-Quellcode

      1. Dim imageBase As Image = 'Irgendwas zuweisen als Bild woraus du etwas haben willst
      2. Dim pt As New Point(Anzahl der Reihen, Anzahl der Spalten) ' muss kein Punkt sein ist nur zum Verkürzen des Codes
      3. Dim selected As New Point(X-Position, Y-Position) ' auf der entstehenden ImageMap; Index ist bei 0
      5. Dim myImgPart As Image = LoadImagePart(imageBase, pt.X, pt.Y, selected)