رفتن به مطلب
  • 0

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


arastooms

سوال

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

7 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...