بانک کد

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

سلام دوستان !

با استفاده از کد زیر میتوانید در هنگام خروج از برنامه ( با زدن کلید بازگشت ) یک پیغام نمایش دهید و در صورتی که کاربر مجددا کلید بازگشت را فشار داد از برنامه خارج شود . ابتدا باید یک متغیر از نوع Timer در Process_Globals و یک متغیر از نوع int ایجاد کنید و مقدار آن را روی 0 قرار دهید :

Sub Process_Globals
  Dim tim As Timer
End Sub

Sub Globals
  Dim ext As Int = 0
End Sub

سپس کد های زیر را در اکتیویتی قرار دهید :

Sub Activity_KeyPress (KeyCode As Int) As Boolean
  If KeyCode = KeyCodes.KEYCODE_BACK And ext = 1 Then
    ExitApplication
    Return False
  Else if  KeyCode = KeyCodes.KEYCODE_BACK And ext = 0 Then
    ToastMessageShow("برای خروج مجددا کلید بازگشت را فشار دهید",False)
    ext = 1
    tim.Initialize("tim",2000)
    tim.Enabled = True
    Return True
  Else
    Return False
  End If
End Sub

Sub tim_Tick
  ext = 0
  tim.Enabled = False
End Sub

حالا اگر از برنامه خروجی بگیرید , با زدن کلید بازگشت یک پیغام نمایش داده میشود و تایمر شروع به کار میکند و در صورتی که تا دو ثانیه بعد مجددا کلید بازگشت را فشار دهید از برنامه خارج میشوید و در غیر این صورت تایمر غیر فعال میشود و از برنامه خارج نمیشوید …

موفق باشید !

مطلب پیشنهادی :   اینتنت ارسال ایمیل
شما هم به کانال تلگرامی سایت ما بپیوندید !
همین حالا کلیک کنید !

درباره نویسنده

حامد باقری

2 نظر

    • سلام . برای اینکار کافیه که فقط بخش KeyPress را در اکتیویتی مورد نظرتون اضافه کنید و با استفاده از دستور شرطی مشخص کنید که با زدن کلید بازگشت چه کاری انجام شود و برای مثال در این بخش میتونید یک لایوت دیگه را لود کنید :
      Sub Activity_KeyPress (KeyCode As Int) As Boolean
      If KeyCode = KeyCodes.KEYCODE_BACK Then
      Activity.LoadLayout("test")
      Return True
      Else
      Return False
      End If
      End Sub

      فقط توجه داشته باشید که حتما باید دستور Return True را هم قرار بدید تا برنامه بسته نشود …

نظر بدهید