[مبتدئ]

يوجد Button كود

كود :

On Error Resume Next
        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

Timer كود

كود :

On Error Resume Next
        Dim file_name As String = ListBox1.SelectedItem
        file_name = ListBox1.SelectedItem
        Dim bm As New Bitmap(file_name)
        PictureBox1.Image = bm

اريد عند الذهاب لى اخر صوره يرجع لى اول صوره

[ali.alfoly]

التعديل سيكون على كود البطن فقط

إقتباس :On Error Resume Next
If ListBox1.SelectedIndex + 1 = ListBox1.Items.Count Then
ListBox1.SelectedIndex = 0
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If

[مبتدئ]

ali.alfoly كتب :التعديل سيكون على كود البطن فقط

جزاك الله خير

[ali.alfoly]

تحت امرك
بالتوفيق ان شاء الله