注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[代码]双击回退键事件  

2015-06-19 09:40:52|  分类: B.基础 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

#Region Project Attributes
#ApplicationLabel: B4A 示例
#VersionCode: 1
#VersionName:
'SupportedOrientations 可能的值: unspecified(未指定),landscape(横向)和portrait(纵向).
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'全局变量在程序启动时被声明。
'这些变量可以从其他模块访问。

End Sub

Sub Globals

#Region 双击回退键

Dim closeCounter As Int
Dim closeTimer As Long

#End Region


End Sub

Sub Activity_Create(FirstTime As Boolean)
'不要忘记加载用可视化设计器创建的布局文件。例如:
'Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Activity_KeyPress (KeyCode As Int) As Boolean

Select KeyCode

Case KeyCodes.KEYCODE_BACK

closeCounter = closeCounter + 1 ' Handle the user exit request

' 第一次点击回退键
If closeCounter = 1 Then
closeTimer = DateTime.Now
' ToastMessageShow("再次点击退出程序", False)
End If

' 第二次点击回退键
If closeCounter = 2 AND DateTime.Now > closeTimer + 3000 Then
closeCounter = 1
closeTimer = DateTime.Now
' ToastMessageShow("Press Back again to exit", False)
End If

' Two tries within 3 seconds, we're done

If closeCounter = 2 Then
closeCounter = 0
ToastMessageShow("OK", False)
Activity.Finish
End If

Return True
Case Else
Return False
End Select

End Sub

  评论这张
 
阅读(224)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017