عوض شدن عکس با کشیدن انگشت به چپ و راست

[arastooms 1,046]

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

من 5 تا عکس تمام صفحه برای راهنمای برنامه درست کردم 
الان با یک دکمه عکسها رو عوض میکنم 
میخام ببینم چه طور میتونم تعریف کنم که کاربر با کشیدن انگشت این 5 تا عکس رو ببینه 
( کمی کاربر پسند تر هست و زیبا تر)
مرسی و تشکر

[امین شاهدی 5,773]

Sub Globals

Dim numb As Int

End Sub

Sub panel1_Touch (Action As Int, X As Float, Y As Float)

	Select Action

		Case Activity.ACTION_DOWN

			startX = X

			startY = Y

		Case Activity.ACTION_UP

			If Abs(Y - startY) > 20%y Then Return

			If X - startX > 20%x Then 

				Try

				numb=numb-1

			ImageView1.Bitmap=LoadBitmap(File.DirAssets,numb&".png")

			Catch

				ToastMessageShow("first",False!")

				numb=numb+1	'

				End Try

			Else If startX - X > 20%x Then

				Try

				numb=numb+1

			ImageView1.Bitmap=LoadBitmap(File.DirAssets,numb&".png")

			Catch

				ToastMessageShow("last",False)

				numb=numb-1	'

				End Try

			End If

	End Select

End Sub

[arastooms 1,046]

دوستان راهنمایی کوچکی هست برای این پست
که 5 تا عکس رو جا به جا کنم؟

[mahfelsoft 130]

اگه بخوایم همین کار رو با پنل هایی انجام بدیم که متن توشون لود کردیم و متن رو هم از دیتابیس میگیریم چطور باید عمل کنیم ؟

[arash127 488]

یک پنل زیر ایمیج ویوت بذار و بعد کد زیر را داخل رویداد پنل بنویس

 

این را توی گلوبالز بذار

Dim startX, startY As Float

بعد

Sub panel1_Touch (Action As Int, X As Float, Y As Float)
	Select Action
		Case Activity.ACTION_DOWN
			startX = X
			startY = Y
		Case Activity.ACTION_UP
			If Abs(Y - startY) > 20%y Then Return
			If X - startX > 30%x Then 
				'کد عکس قبلی
			Else If startX - X > 30%x Then
				'کد عکس بعدی
			End If
	End Select
End Sub

میتونی از انیمیشن هم استفاده کنی وقتی میخوای عکس را عوض کنی

[arastooms 1,046]

یک پنل زیر ایمیج ویوت بذار و بعد کد زیر را داخل رویداد پنل بنویس

 

این را توی گلوبالز بذار

Dim startX, startY As Float

بعد

Sub panel1_Touch (Action As Int, X As Float, Y As Float)
	Select Action
		Case Activity.ACTION_DOWN
			startX = X
			startY = Y
		Case Activity.ACTION_UP
			If Abs(Y - startY) > 20%y Then Return
			If X - startX > 30%x Then 
				'کد عکس قبلی
			Else If startX - X > 30%x Then
				'کد عکس بعدی
			End If
	End Select
End Sub

میتونی از انیمیشن هم استفاده کنی وقتی میخوای عکس را عوض کنی

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

من دستورات رو انجام دادم برای 2 تا عکس کاملا انجام شد 

اما برای بیشتر از 2 تا عکس هرچی دستور رو نگاه می کنم متوجه نمیشم چه کدی باید کجا اضافه کنم ؟

میشه بفرمایید برای بیشتر از 2 تا عکس مثلا 5 تا 

png.1 

png.2

png3

, ....

کدوم خط باید دستورات رو بنویسم

در ضمن اینم ساب من هست که برای دو تا عکس اول با راهنمایی شما کار میکنه 

 

Sub panel1_Touch (Action As Int, X As Float, Y As Float)
	Select Action
		Case Activity.ACTION_DOWN
			startX = X
			startY = Y
		Case Activity.ACTION_UP
			If Abs(Y - startY) > 20%y Then Return
			If X - startX > 20%x Then 
			ImageView1.Bitmap=LoadBitmap(File.DirAssets,"1.png")	'کد عکس قبلی
			Else If startX - X > 20%x Then
			ImageView1.Bitmap=LoadBitmap(File.DirAssets,"2.png")	'کد عکس بعدی
			End If
	End Select
End Sub

[arastooms 1,046]

اساتید میشه نگاه مجددی به موضوع بندازید

[SoRoUsH 300]

دوست عزیز اسپم ندید! اگر کسی بدونه حتما پاسخ میده!