نمایش تصادفی عکس روی فرم

[sajad_boj70]

با سلام خدمت همه دوستان
من یک فرم دارم و میخوام توی بانک اطلاعاتیم 10 عکس ذخیره کنم.
و میخوام برنامم جوری باشه که با اجرای برنامه یک عکس به صورت تصادفی از بانک انتخاب بشه و در فرم نمایش داده بشه و پس از چند ثانیه برنامه بسته بشه.
دوستان اگه لطف کنن کمک کنن ممنون میشم.
در ضمن اگر دوستان یک برنامه Test بزارن بهتر نتیجه میگیریم.

[sajad_boj70]

آقایون لطفا یکی جواب بده:گریه:

[returnx]

نیازی به دیتا بیس نیست بدون دیتابیس هم میشه اینکارو کرد
فقط با 4خط کد میشه اینکارو انجام داد....
واست یک نمونه گذاشتم ...
http://www.4shared.com/file/pxLFfg_z/Random_pic.html

[jakijavad]

به عکس ها اندیس بده ( از 0 تا 9 ) بعد می تونی متناسب با زمان سیستم موقع لود فرم یه عدد بین 0 تا 9 بدست بیاری طبق کد زیر :

Randomize Timer
rndNum = Int(Rnd * 10

حالا باید یکی از عکس ها نمایش داده بشه طبق کد زیر :
Image(rndNum).Visible=True

نهایتا کد زیر حاصل میشه :
Private Sub Form_Load()
Dim rndNum As Integer
Randomize Timer
rndNum = Int(Rnd * 10)
Image(rndNum).Visible = True
End Sub


همه عکس ها از قبل بایستی خاصیت Visible=False باشه .

اگه مبهم بود بگو واضح تر توضیح بدم .