Показать сообщение отдельно
Старый 24.10.2023, 21:27   #2
Тим70
Новичок
Джуниор
 
Регистрация: 24.10.2023
Сообщений: 3
По умолчанию

Создайте массив Bitmap,загрузите в них картинки и в Taimer загружайте их в PictureBox по очереди.
Вот пример на VB.NET

Public Class Form1
Dim Bm() As Bitmap
Dim n As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 1 To 8
ReDim Preserve Bm(i)
Bm(i) = Image.FromFile(i & ".png")
Timer1.Interval = 100
Next
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Text = "Start" Then
Timer1.Start()
Button1.Text = "Stop"
Else
Button1.Text = "Start"
Timer1.Stop()
End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
n += 1
PB1.Image = Bm(n)
If n = 8 Then n = 0
End Sub
End Class
Тим70 вне форума Ответить с цитированием