منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل هذا الكود (/showthread.php?tid=7686)

تعديل هذا الكود - مبتدئ - 20-02-13

يوجد 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 - 21-02-13

التعديل سيكون على كود البطن فقط
إقتباس :On Error Resume Next
If ListBox1.SelectedIndex + 1 = ListBox1.Items.Count Then
ListBox1.SelectedIndex = 0
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If


تعديل هذا الكود - مبتدئ - 21-02-13

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

جزاك الله خير

تعديل هذا الكود - ali.alfoly - 21-02-13

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