Extensions/ImageGlass.Feature/ImageGlass_Animation.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System
Imports System.Drawing


Public Class ImageGlass_Animation

    Public Shared Sub ExtractAllFrames(ByVal AnimationFile As String, ByVal DestinationFolder As String)
        Dim ani As New ClsExtractAnimation()
        ani.ExtractAllFrames(AnimationFile, DestinationFolder)

    End Sub


End Class


Class ClsExtractAnimation

    Private img As Bitmap
    Private IsAnimating As Boolean = False
    Private i As Integer
    Private Filename As String
    Private Des_Folder As String



    Public Sub ExtractAllFrames(ByVal AnimationFile As String, ByVal DestinationFolder As String)
        '//initiate class

        IsAnimating = False
        Filename = AnimationFile
        Des_Folder = DestinationFolder

        img = New Bitmap(AnimationFile)
        i = 1

        '//begin extract
        AnimateImage()

    End Sub

    'This method begins the animation.
    Private Sub AnimateImage()
        If Not IsAnimating Then

            'Begin the animation only once.
            ImageAnimator.Animate(img, New EventHandler(AddressOf Me.SaveFrames))
            IsAnimating = True
        End If

    End Sub

    Private Sub SaveFrames()
        '//kiểm tra đã hết frame chưa
        If i > Image.FromFile(Filename).GetFrameCount(Imaging.FrameDimension.Time) Then
            IsAnimating = False
            Exit Sub
        End If