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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[库]双击退出(二)  

2015-09-27 21:14:06|  分类: 官网类库 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
类模块代码如下:

'当前版本 DoubleTaptoClose 1.2.bas
'Class module
'~1.8 seconds
Private Sub Class_Globals
  Private Ti As Timer
Private Timr As Timer
Private I As Float
Private TT As String

End Sub

'Initializes the Class
'ToastText = The text that will be displayed when the back button is clicked once
Public Sub Initialize (ToastText As String)
I = 0
Ti.Initialize ("Ti",1000)
Ti.Enabled = True
Timr.Initialize ("Timr",100)
Timr.Enabled = True
TT = ToastText
End Sub
Private Sub Ti_Tick

If I > 0 Then
I = I-0.49
End If

End Sub
Private Sub Timr_Tick
If I >= 2 Then
ExitApplication
End If

End Sub
'Add this to the Activity_Keypress method
Public Sub TapToClose

ToastMessageShow (TT,False)
I = I+1.3
End Sub
  评论这张
 
阅读(88)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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