backtimer

[رضا جابرپور 179]

backtimer

این مطلب رو آوردم که سر تیتری برای این موضوع باشه.

موارد کاربرد در کتابخوان سخنگو

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

یعنی وقتی روی دکمه back رو فشار می دیم بگیم 1و2و3و4و5 بعد برنامه خارج بشه

برای زیبا سازیش هم می تونیم یه progressbar بزاریم

نمونه کار به آدرس :

http://cafebazaar.ir/app/org.alleece.bookworm/?l=fa

Sub Process_Globals
Private backTimer As Timer
End Sub

Sub Globals
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
backTimer.Initialize("backTimer", 5000)
End If
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
backTimer.Enabled = True
Return True
Else
Return False
End If
End Sub

Sub Activity_KeyUp (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
backTimer.Enabled = False
Return True
Else
Return False
End If
End Sub

Sub BackTimer_Tick
Log("LongBack event")

backTimer.Enabled = False
ExitApplication

End Sub