estoy haciendo un tipo slider/carrusel de imágenes en Windows Form [VB.NET], estoy usando un Timer para que cada cierto tiempo se vayan presentando las imágenes en un PictureBox. Hasta ahora el programa me hace lo que pretendo, solo que me causa un gran problema, cada que se va cargando una imagen en el PictureBox me va aumentando el consumo de memoria del sistema hasta llegar al punto de tronar el programa.
El código que uso para hacer esta tarea:
Dim lista As New List(Of String)
Dim i As Integer = 0
Obtener el nombre de los archivos (jpg) de un directorio y almacenarlos en una lista.
Sub llenardatos()
Dim carpeta As New DirectoryInfo("C:\Users\Usuario\Desktop\Promo\")
For Each File As FileInfo In carpeta.GetFiles("*.jpg")
lista.Add(File.Name.ToString)
Next
End Sub
Al ejecutar el programa, cargar el primer elemento de la lista.
Private Sub frmP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
llenardatos()
Timer1.Start()
Timer1.Interval = 3000
PictureBox1.Image = Image.FromFile("C:\Users\Usuario\Desktop\Promo\" + lista(0))
End Sub
Uso de Timer, mostrar en PictureBox los elementos de la lista, si llegan al final, reiniciar el contador.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 1
Label1.Text = i
If i = lista.Count Then
i = 0
End If
PictureBox1.Image = Image.FromFile("C:\Users\Usuario\Desktop\Promo\" + lista(i))
End Sub
Espero me puedan orientar, que es lo que me causa el problema, cabe destacar que las imágenes son ligeras ya que la img más pesada es de 468KB