کنترل Back

[Elham-Karimi 8]

سلام خدمت دوستان

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

این دکمه Back رو تا اینجا براش نوشتم :

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
 If (KeyCode=KeyCodes.KEYCODE_BACK)Then

ToastMessageShow("For Exit Plase Again Toch Back" , False) 
 Return True
Else

 If (KeyCode=KeyCodes.KEYCODE_BACK)Then
  ExitApplication

 End If


End If

End Sub

تا اینجاشو میدونم درسته

If (KeyCode=KeyCodes.KEYCODE_BACK)Then

ToastMessageShow("For Exit Plase Again Toch Back" , False) 
 Return True

میخام کاربر یه بار دیگه Back رو زد اینبار میاد بیرون و

ExitApplication

کنه

ممنونم راهنمایی کنین

[AMiN.M7892 1,029]

این کلاس زیر رو نگاه کنید متوجه میشید:

DoubleTaptoClose

[Elham-Karimi 8]

در 2 دقیقه قبل، AMiN.M7892 گفته است :

این کلاس زیر رو نگاه کنید متوجه میشید:

DoubleTaptoClose

سلام ممنونم

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

 

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

[M-CAP7AIN 537]

روش ساده و پیشنهادی :

یدونه تایمر می سازیم (کار تایمر یجور شمارنده به حساب میاد که متناسب با زمان ما در حال اجرا تا زمانی که خاموش بشه.)

نحوه کار کرد :

تایمر در حالت عادی خاموشه زمانی که دکمه برگشت فشرده میشه این تایمر فعال و 2 ثانیه بعد غیر فعال میشه ، حالا ما یبار دکمه برگشت رو میزنیم اگه تو همین 2 ثانیه دوباره دکمه برگشت رو بزنیم از برنامه خارج می شیم.

آما : لیستنر Timera_Tick هر 2 ثانیه این قسمت رو صدا میزنه و تایمر رو خاموش می کنه.

 

Sub Process_Globals
	Dim Timera As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)	
	Timera.Initialize("Timera" , 2000)
	Timera.Enabled = False
End Sub


Sub Timera_Tick
	Timera.Enabled = False
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		If Timera.Enabled = False Then
			Timera.Enabled = True
			ToastMessageShow("For Exit Plase Again Toch Back" , False)
			Else
				ExitApplication
		End If
	End If
	Return True
End Sub