رفتن به مطلب

بایگانی شده

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

حسین شیخ بارانی

آموزش خروج با دوبار کلیک بدون کتابخانه

پست های پیشنهاد شده

سلام

اول میام یک متغیر Boolean تعریف می کنیم و مقدار اولیش رو false می ذاریم

بعد توی رویداد KeyPress  چک میکنیم اگه این متغیر false هست و خب یک پیام نشون میدیم یعد مقدار رو هم true کنه  تا اگر یک بار دیگه کلیک کرد  توی else شرط برنامه رو ببندیم و یک تایمر رو فعال می کنیم تا بعد از یک مدت مقدار متغیر مون رو false کنه

کد ها رو می ذارم اگه جای سوالی بود  در خدمتم

یاعلی

Sub Process_Globals
	Dim t As Timer
End Sub

Sub Globals
	Dim back As Boolean =False
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.Color =Colors.White
	t.Initialize("t",1500)
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode =KeyCodes.KEYCODE_BACK Then
		If back =False Then
			ToastMessageShow("test",False)
			back=True
			t.Enabled=True
		Else
			Activity.Finish			
		End If
	End If
	Return True
End Sub

Sub t_Tick
	back=False
	t.Enabled=False
End Sub

 

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


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

×
×
  • جدید...