PDA

View Full Version : قرار دادن تصویر در picture box


behnezhad
جمعه 18 مرداد 1387, 15:43 عصر
سلام من می خوام تو یه PB تصاویری که تو یه فولدر قرار داره قرار بگیره و هر یک ثانیه تصویر بهدی رو نشون بده چکار کنم؟/؟؟
r_oscar2007
جمعه 18 مرداد 1387, 16:11 عصر
iv = Dir(App.Path & "\" & "*.jpg")
While iv <> ""
Picture1.Picture = LoadPicture(iv)
iv = Dir()
Wend