رفتن به مطلب

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


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

سلام

اول میام یک متغیر 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

 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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