Feedback

VB - PictureBox für animierte GIFs

Veröffentlicht von am 10.12.2006
(2 Bewertungen)
In dieser PictureBox kann man animierte GIF Bilder einfügen um diese dann auch animiert anzuzeigen.
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Entwickler - Kompakt

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class GifAnimator
    Inherits PictureBox

    Private mImage As Image

    Public Sub New()
        Me.SetStyle(ControlStyles.DoubleBuffer Or _
                    ControlStyles.UserPaint Or _
                    ControlStyles.AllPaintingInWmPaint, True)
    End Sub

    Public Shadows Property Image() As Image
        Get
            Return mImage
        End Get
        Set(ByVal value As Image)
            mImage = value
            ImageAnimator.Animate(value, New EventHandler(AddressOf Me.AnimateHandler))
        End Set
    End Property

    Public Sub AnimateHandler(ByVal sender As Object, ByVal e As EventArgs)
        Me.Invalidate()
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        If Me.Image IsNot Nothing Then
            ImageAnimator.UpdateFrames()
            e.Graphics.DrawImage(Me.Image, 0, 0)
        End If
    End Sub
End Class
Abgelegt unter GIF, Animieren.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!