آموزش "دوباره دکمه بازگشت را فشار دهید" برای خروج

[sepehry 10]

سلام

من چندوقته که توی این انجمن عضوم و از مطالب خوبش استفاده میکنم.

دیروز یه جرقه تو ذهنم زده شد و رفتم تو بیسیک فور و کدی نوشتم که وقتی کاربر یه بار بازگشت رو میزنه یه toast نشون بده که مثلا دوباره بزن و وقتی دوباره زد خارج بشه از برنامه.(شاید توی برنامه ها دیده باشید)

کدنویسی هاش به شکل زیره:

اول یه تایمر و یه اینت تعریف میکنیم:

Dim a As Int
Dim timer1 As Timer

خب حالا تو اکتیویتی کریت تایمر رو مقداردهی می کنیم:

timer1.Initialize("timerexit",2000) 'masalan do sec
timer1.Enabled = False

توی sub تمام شدن تایمر مینویسیم:

Sub timerexit_tick
a = 0
timer1.Enabled = False
End Sub

و بعدش تو sub دکمه بازگشت کد های زیر رو مینویسیم:

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
If a == 1 Then
Activity.Finish
End If
If a == 0 Then
a = a + 1
timer1.Enabled = True
ToastMessageShow("دوباره دکمه بازگشت را فشار دهید",False)
Return True
End If
End If
End Sub

تمام

سورس رو هم پیوست کردم براتون.

اگه مشکلی بود بگین(من تست کردم جواب داد)

back.rar

[amirjun32 105]

برادر من،ممنون اززحمتت.ولی این سورس ازقبلا داخل سایت بوده.کافیه یک سرچ بکنی

[مهدی ایزدی 9,203]

درود خدمت کاربر عزیز Sepehry

تشکر بخاطر آموزش هاتون و امیدوارم ادامه داشته باشه *give_rose*

تاپیک تکراری بود البته . قبلا توی یکی دو تا تاپیک آموزش داده شده بود

[حاج حسین 2,098]

سلام

خوشحالم که از ابتدا برای آموزش قدم به سایت گذاشتید

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

خروج با 2بار کلیک بازگشت+ حالت روز و شب

[ارمین رمضانی دلیجانی 381]

*خنده شیطان یه جوری به طرف میگید که دیگه نمیاد انجمن

sepehry دوست گرامی ممنون بابت آموزش زنده باشی

یا حق

[حاج حسین 2,098]

چشم آقای رمضانی

دیگه تکرار نمیشه اگرم آقای سپهری ناراحت شدن واقعا معذرت میخام

[نیما قبادی 246]

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

[sganji 678]

سلام

ممنون از آموزش خوبتون

این یکی با قبلی فرق داشت,متغیر کمتر میخواست!

[sepehry 10]

خداحافظ انجمن

بای