همان رفتاری که در تلگرام و اکثر برنامههای حرفهای میبینید: لمس اول بازگشت فقط یک پیام هشدار نشان میدهد و زمان آن در lastBack ذخیره میشود؛ اگر کاربر کمتر از ۲ ثانیه (۲۰۰۰ میلیثانیه) دوباره بزند یعنی قصد جدی برای خروج دارد و برنامه با ExitApplication بسته میشود. DateTime.Now زمان فعلی را بر حسب میلیثانیه میدهد و تفاضل دو زمان، فاصله لمسها را نشان میدهد. مزیت این روش روی دیالوگ تأیید این است که سریعتر است و UX مدرنتری دارد.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۴ شهریور ۱۴۰۵ - ۰۹:۵۹ |
| تعداد بازدید | ۵ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub Process_Globals
Private lastBack As Long
End Sub
Sub Activity_KeyPress(KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim now As Long = DateTime.Now
' فاصله دو لمس کمتر از ۲ ثانیه؟ پس کاربر واقعاً میخواهد خارج شود
If now - lastBack < 2000 Then
ExitApplication
End If
lastBack = now
ToastMessageShow("برای خروج دوباره دکمه بازگشت را بزنید", False)
Return True
End If
Return False
End Sub