vb.net动画播放程序代码

Imports System.ComponentModel
Imports System.IO
Imports System.Drawing

Public Class Form1

Private imagesPaths As New List(Of String)
Private currentImageIndex As Integer
Private timer1 As New Timer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    timer1.Interval = 200 ' 调整为 0.2 秒切换一张图片
    AddHandler timer1.Tick, AddressOf Timer1_Tick
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim openFileDialog1 As New OpenFileDialog()
    openFileDialog1.Filter = "图片文件|*.jpg;*.png;*.bmp;*.gif" ' 注意：添加了 *.gif 以允许选择 GIF 图片
    openFileDialog1.Multiselect = True

    If openFileDialog1.ShowDialog() = DialogResult.OK Then
        imagesPaths.Clear()

        For Each filePath As String In openFileDialog1.FileNames
            imagesPaths.Add(filePath)
            ListBoxImages.Items.Add(Path.GetFileName(filePath))
        Next
    End If
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    If imagesPaths.Count > 0 Then
        currentImageIndex = 0
        timer1.Start()
    Else
        MessageBox.Show("请先选择图片")
    End If
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    If currentImageIndex < imagesPaths.Count Then
        Dim imagePath = imagesPaths(currentImageIndex)
        Dim image As Image
        If Path.GetExtension(imagePath).ToLower() = ".gif" Then
            image = Image.FromFile(imagePath)
        Else
            image = New Bitmap(imagePath)
            ' 对非 GIF 图片进行缩放以适应 PictureBox
            Dim newWidth As Integer = PictureBox1.Width
            Dim newHeight As Integer = PictureBox1.Height
            Dim newImage As Image = New Bitmap(image, newWidth, newHeight)
            image = newImage
        End If

        PictureBox1.Image = image
        currentImageIndex += 1
    Else
        timer1.Stop()
        currentImageIndex = 0
    End If
End Sub

End Class