نمایش عکس به صورت اسلاید

[eshragh-sos]

سلام.
اگه بخواهیم چند تا عکس به صورت مرتب و پشت سر هم که در یک پوشه غیر از مسیر برنامه ( مثلاً در یک پوشه به نام عکس در درایو E) در فرم نمایش داده بشه چکار بکنیم.
من جسجو کردم یه برنامه هم بود که فقط عکسهایی رو نشون میده که قبلا بهش آدرس داده شده.
من می خوام جوری باشه که وقتی عکسهای داخل پوشه رو عوض کردم برنامه نشون بده. (بدون دخالت کاربر)

[eshragh-sos]

سلام
لطفا در مورد این کدها راهنماییم کنید:
در شرط آخر اگر شماره عکس به 10 رسید نمایش رو از اول شروع می کنه. حالا اگر تو پوشه تعداد عکس ها کمتر یا بیشتر از 10 تا بود برنامه ارور می ده.
قابل ذکره نمایش عکسها به ترتیب مهم است.


Public Class Form1
Dim n As Integer = 1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
PictureBox1.Image = System.Drawing.Image.FromFile("D:\pic\1.jpg")
PictureBox2.Image = System.Drawing.Image.FromFile("D:\pic\2.jpg")
RadioButton1.Checked = True

End Sub

Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
PictureBox2.Height = 200
PictureBox2.Width = PictureBox2.Width - 1
If PictureBox2.Width = 1 Then
PictureBox2.Width = 200
PictureBox2.Image = System.Drawing.Image.FromFile("D:\pic\" & n & ".jpg")
PictureBox1.Image = System.Drawing.Image.FromFile("D:\pic\" & n + 1 & ".jpg")
n = n + 1

If n = 10 Then
n = 1
End If
End If
End Sub