ایمج ویو نیاز به یک قطعه کد برای درج تصویر در ایمیج ویو به صورت پشت سر هم

[ali2016 54]

سلام من یه برنامه ساختم که توش یه اییج ویو و دوتا باتن هست به کار رفته

Sub Globals
	Private ImageView1 As ImageView
    Private Button1 As Button
	Private Button2 As Button
End Sub

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

و میخواهم که عکس  با کلیک روی بوتون یک بره به عکس بعدی و با کلیک روی بوتون دو بره به عکس قبلی

لازم به ذکره که اسم عکس های من به شکل زیره

a1

.

.

a50

راستی من نمیخوام از دو یا چند تا ایمیج ویو استفاده کنم

کل انجمن رو گشتم ولی هیچ کدوم از تایپیک ها مشکل من رو حل نمیکرد

آیا راهی هست که من عکس هارو با حلقه ی فور نشون بدم ؟؟؟؟؟

 

[Hamidbergis 332]

سلام

ببین شما حالا که عکس هات از a1 تا a50 هست کارت راحت تره

تو رویداد کلیک باتن بک گراند ایمیج ویو رو به این صورت تعریف کن که a باشه و یه متغیر اینت هم کنارش که هر بار زدن باتن یدونه بیاد رو متغیر اینت

به این صورت میتونی هی عکس رو ببری بعدی اگرم خواستی بیاد عقب یکی از اون متغیر اینت کم کن

[مهدی ایزدی 9,203]

درود

از دیتابیس استفاده میکنید یا همینجوری بدون دیتابیس کار میکنید ؟

[ali2016 54]

از دیتا بیس استفاده نمیکنم

 

دقیقا همینطور که دوستمون گفت......

 

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

در 8 ساعت قبل، Hamidbergis گفته است :

سلام

ببین شما حالا که عکس هات از a1 تا a50 هست کارت راحت تره

تو رویداد کلیک باتن بک گراند ایمیج ویو رو به این صورت تعریف کن که a باشه و یه متغیر اینت هم کنارش که هر بار زدن باتن یدونه بیاد رو متغیر اینت

به این صورت میتونی هی عکس رو ببری بعدی اگرم خواستی بیاد عقب یکی از اون متغیر اینت کم کن

 

[ali2016 54]

کسی نمیتونه کمک کنه به من؟؟؟؟

[ali2016 54]

در در 1395/07/02, 07:41:46، Hamidbergis گفته است :

سلام

ببین شما حالا که عکس هات از a1 تا a50 هست کارت راحت تره

تو رویداد کلیک باتن بک گراند ایمیج ویو رو به این صورت تعریف کن که a باشه و یه متغیر اینت هم کنارش که هر بار زدن باتن یدونه بیاد رو متغیر اینت

به این صورت میتونی هی عکس رو ببری بعدی اگرم خواستی بیاد عقب یکی از اون متغیر اینت کم کن

یه نمونه کد بدید لطفا

[مهدی ایزدی 9,203]

توی assets ما 20 تا عکس داریم به نام های:

ax-1.jpg

تا 20 !

Sub Globals

	Private ScrollView1 As ScrollView
	Private ImageView1 As ImageView
	Dim stop As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("scrolll")
	For i = 1 To 20
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	p.LoadLayout("Layout1")
	Dim bt As BitmapDrawable
	bt.Initialize(LoadBitmap(File.DirAssets,"ax-"&i&".jpg"))
	ImageView1.Background = bt
	stop = stop + 35%y
	ScrollView1.Panel.Height = stop
	Next
End Sub