Picture FrameLoader/Animierte Bilder

    • VB.NET

      Picture FrameLoader/Animierte Bilder

      Hey Leute, ich habe euch gerade ein Snippet geschrieben mit dem Ihr Aus einem Bild mit mehreren Frames ein Frame auslesen könnt.

      bsp. Bild:


      Daraus wird z.B.:


      Eigenschaften:
      ->FrameSize As Size - Größe einer Frame
      ->Source As Image - Das Quellbild aus dem die Frames genommen werden

      Funktionen:
      ->GetFramesCount() As Integer - Gibt die Anzahl der Frames zurück
      ->GetFrame(ByVal FrameIndex As Integer) As Image - Gibt ein Frame anhand des Index zurück

      Code der FrameLoader Klasse:

      VB.NET-Quellcode

      1. Public Class FrameLoader
      2. Dim iFrameSize As Size
      3. Dim iSource As Image
      5. ''' <summary>
      6. ''' Initialisiert einen neuen FrameLoader.
      7. ''' </summary>
      8. ''' <param name="Source">Das Quellbild mit den Frames.</param>
      9. ''' <param name="FrameSize">Die größe eines Frames.</param>
      10. ''' <remarks></remarks>
      11. Sub New(ByVal Source As Image, ByVal FrameSize As Size)
      12. iSource = Source
      13. iFrameSize = FrameSize
      14. End Sub
      16. ''' <summary>
      17. ''' Gibt ein Frame als Image zurück.
      18. ''' </summary>
      19. ''' <param name="FrameIndex">Index des Frames.</param>
      20. ''' <returns>Frame als Image.</returns>
      21. ''' <remarks></remarks>
      22. Public Function GetFrame(ByVal FrameIndex As Integer) As Image
      23. Dim BMP As New Bitmap(FrameSize.Width, FrameSize.Height)
      24. Dim G As Graphics = Graphics.FromImage(BMP)
      25. If (FrameIndex <= GetFramesCount()) Then
      26. Dim srcRect As Rectangle = New Rectangle(CInt(FrameIndex * (iFrameSize.Width)), 0, FrameSize.Width, FrameSize.Height)
      27. Dim destRect As Rectangle = New Rectangle(0, 0, iFrameSize.Width, iFrameSize.Height)
      28. G.DrawImage(Source, destRect, srcRect, Drawing.GraphicsUnit.Pixel)
      29. End If
      30. Return BMP
      31. End Function
      33. ''' <summary>
      34. ''' Gibt die Anzahl der Frames zurück.
      35. ''' </summary>
      36. ''' <returns>Anzahl der Frames.</returns>
      37. ''' <remarks></remarks>
      38. Public Function GetFramesCount() As Integer
      39. Dim Count As Integer = CInt(Source.Width / iFrameSize.Width)
      40. Return Count
      41. End Function
      43. ''' <summary>
      44. ''' Ruft die größe der Frames ab, oder legt diese fest.
      45. ''' </summary>
      46. ''' <value>Die neue größe der Frames.</value>
      47. ''' <returns>Gibt die größe der Frames zurück.</returns>
      48. ''' <remarks></remarks>
      49. Public Property FrameSize As Size
      50. Get
      51. Return iFrameSize
      52. End Get
      53. Set(ByVal value As Size)
      54. iFrameSize = value
      55. End Set
      56. End Property
      58. ''' <summary>
      59. ''' Ruft das Quellbild ab, oder legt dieses fest.
      60. ''' </summary>
      61. ''' <value>Das neue Quellbild.</value>
      62. ''' <returns>Gibt das Quellbild zurück.</returns>
      63. ''' <remarks></remarks>
      64. Public Property Source As Image
      65. Get
      66. Return iSource
      67. End Get
      68. Set(ByVal value As Image)
      69. iSource = value
      70. End Set
      71. End Property
      72. End Class


      Benutzung:
      Einzelne Frames:

      VB.NET-Quellcode

      1. Dim FL As New FrameLoader(My.Resources.frames, New Size(32, 32))
      2. PictureBox1.Image = FL.GetFrame(FRAME_INDEX_INT)


      Animiert(Mit Timer):

      VB.NET-Quellcode

      1. Public Class Form1
      2. Dim FL As New FrameLoader(My.Resources.frames, New Size(32, 32))
      3. Dim CurrentFrame As Integer = 0
      5. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      7. PictureBox1.Image = FL.GetFrame(CurrentFrame)
      8. If CurrentFrame = FL.GetFramesCount - 1 Then
      9. CurrentFrame = 0
      10. Else
      11. CurrentFrame += 1
      12. End If
      13. End Sub
      14. End Class


      Download:
      developer-heaven.bplaced.net/w…s/2012/10/FrameLoader.zip

      Ich hoffe ihr könnt den Schnippsel gebrauchen^^



      Gruß,
      Julian
      Bilder

      • frames.png

        594 Byte, 128×32, 328 mal angesehen

    Facebook