استفاده از حلقه فور

[amir7900 13]

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

مثل این

[پژمان نیکروان 6,055]

درود.

عکسات کجا هستن؟ و از کجا میخوای فراخوانیشون کنی؟

الان تا کجاشو بلدی انجام بدی؟

[amir7900 13]

تو اسم عکسا رو به ترتیب 0 و 1 و 2 و... قرار بده و بعدش مثلا اگه میخوای تو پنل لود کنی:

Dim t As Int
t = 10
For i = 0 To 20'tedad
Dim img As ImageView
img.Initialize("")
img.Bitmap = LoadBitmap(File.DirAssets,i&".jpg")
panel1.AddView(img,0,t,50%x,50%y)
t = t + img.Height + 10
Next

یه سوال دارم اون t ک از نوع int هستش چیکار میکنه ک مساوی با 10 زدی؟*fekr*

[sganji 678]

فاصله پنل از بالا رو تعین میکنه و هربار زیاد میشه!

توی حلقه for نگاه کنید متوجه میشید.

[amir7900 13]

درود.

عکسات کجا هستن؟ و از کجا میخوای فراخوانیشون کنی؟

الان تا کجاشو بلدی انجام بدی؟

عکس ها تو خود نرم افزار یعنی پوشه فایل هستن و اگه خواست از دیتابیس هم میتونم استفاده کنم

میدونم ک باید از پنل کمک بگیرم ولی نمیدونم چطور

[amir7900 13]

فاصله پنل از بالا رو تعین میکنه و هربار زیاد میشه!

توی حلقه for نگاه کنید متوجه میشید.

اون عکس رو ک گذاشتم رو دیدید؟ مثل اون میخواستم...اگه میشه سورسش رو تو فروشگاه بزارین هم میخرم

[mahfelsoft 130]

توی عکسی که شما گذاشتید برای عوض کردن صفحه از کتابخونه ahviewpager استفاده کرده که شما فعلا فکر نمیکنم بتونید باهاش کار کنید . حالا شما فقط یه صفحه میخوای که عکس توش اسکرول بشه ؟

[sganji 678]

تو اسم عکسا رو به ترتیب 0 و 1 و 2 و... قرار بده و بعدش مثلا اگه میخوای تو پنل لود کنی:

Dim t As Int
t = 10
For i = 0 To 20'tedad
Dim img As ImageView
img.Initialize("")
img.Bitmap = LoadBitmap(File.DirAssets,i&".jpg")
panel1.AddView(img,0,t,50%x,50%y)
t = t + img.Height + 10
Next