مهندسین برنامه نویسی کمککک !!!!!!!!

:10::10سلام باز هم کمک می خواهم

می خواهم یه فرمی به شکل زیر بسازم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
که با هر بار کلیک کردن دکمه open کادر showopen باز بشه و یه عکس ازم بگیره بعد این عکسو در image1(0)قرار بده بعد از قرار دادن عکس در image دوباره کادر showopen باز بشه و دوباره یه عکس ازم بگیره در image1(1)قرار بده و این کارو تا وقتی که چهر تا image پر شدن قرار بده بعد از ان هر 5 ثانیه visable سه تا از عکس ها falseبشه و فقط یکی رو نشون بده به ترتیب .....................
:

بابا یعنی کسی توی این انجمن نمی تونه برنامه به این سادگی رو حل کنه من خودم یه مقداریشو نوشتم یکی لطف کنه اشکالشو برطرف کنه .

کد:

---

http://www.easyul.com/dl/2575/image.rar.html

---

مشکلی که داری فقط اینه که روی دو تا image بالایی فقط سوئیچ می شه

سلام . چون دوست دارم واست جلدی نوشتم .

مواد لازم : 1 تایمر با interval=5 و خاصیت enable=false

4 عدد image که خاصیت stratch=true باشه:

در قسمت جنرال اینو بنویس :

کد:

---

Dim f As Byte

---

در form_load اینو بنویس

کد:

---

f=0

---

در رویداد کلید اینو بنویس :

کد:

---

Private Sub Command1_Click()
    dialog.Filter = "jpg file|*.jpg|bmp file |*.bmp"
    For i = 0 To 3
    dialog.ShowOpen
    Image1(i).Picture = LoadPicture(dialog.FileName)
    Next i
    For i = 1 To 3
    Image1(i).Visible = False
    Next i
    Timer1.Enabled = True
End Sub

---

در رویداد تایمر اینو بنویس:

کد:

---

Private Sub Timer1_Timer()
    Image1(f).Visible = False
    f = f + 1
    If f > 3 Then f = 0
    Image1(f).Visible = True
End Sub

---

فکر نکنم نیازی به توضیح داشته باشه . فاضل نصیری در خدمت شما

کاش فایل اجراییش رو هم بذارین...