منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تعديل هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
يوجد 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
اريد عند الذهاب لى اخر صوره يرجع لى اول صوره
التعديل سيكون على كود البطن فقط
إقتباس :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 كتب :التعديل سيكون على كود البطن فقط

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