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]

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

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!