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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

返回当前打开应用的例子(二)  

2015-08-30 18:21:34|  分类: QQ微信分享 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

下面是Scanner服务模块代码

#Region  Service Attributes 

'开机启动
#StartAtBoot: true 
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub


'Sub Service_Create 会在第一次调用service时调用.
'这里可以初始化全局变量.一旦service开始,会一直存在,直到你调用StopService或者整个进程被销毁。
'也就是说,第一次调用service会调用create,再次调用就不会再进入create了.
'并且这里初始化的全局变量会一直保留,不会被回收,直到进程结束。
'
'Sub Service_Start 当你调用StartService (或 StartServiceAt)时每次都会被调用,
'这里的代码在进程被切换到后台后还是会继续运行。这意味着系统会不结束你的进程,
'直到这里的代码运行结束。 如果你计划每几分钟或几小时后再次运行,
'你需要在这个过程里使用StartServiceAt 
'(也就是说代码都运行完后,最后一句加上StartServiceAt,相当于定时器,定义下一次在几分钟或几小时后再次运行)


Sub Service_Create

'Notification是B4A自带的一个通知栏库
Dim ni As Notification
ni.Initialize
ni.Icon="icon"
ni.OnGoingEvent=True '设定是否通知"正在进行".这个通知显示在正在进行节,而且不会被清除.
ni.Sound=False '设定是否再通知时播放声音. 
ni.Vibrate=False '设定是否在通知时震动. 
ni.SetInfo2("扫描二维码","点击这里扫描二维码","scan",Main) '设定信息
' ni.SetInfo2("Scan Something","Click here to scan a barcode","scan",Main)
Service.StartForeground(1,ni)'启动前台,将当前服务置为前台状态并显示给定通知. 

End Sub

Sub Service_Start (StartingIntent As Intent)
End Sub

Sub Service_Destroy

End Sub

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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