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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

剖析Resume和Pause事件(二)  

2014-08-22 15:31:36|  分类: B.基础 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

------------------------------------------------------------------------------------- 以下是subActivity模块代码

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

Sub Process_Globals
'这里明的全局变量在应用启动时被使用。
'这里声明的变量能被所有模块使用。

End Sub

Sub Globals
'这里的声明的全局变量在Activity 创建时声明。
'这里声明的变量只能在此模块使用。
Dim btGotoMain As Label
Dim noTest As Notification


End Sub

Sub Activity_Create(FirstTime As Boolean)
'沉默蜂B4A技术博客 http://silentbees.blog.163.com**友情汉化:QQ:281840069**。示例:
Activity.Title="Sub窗体 - 剖析Resume和Pause事件"
Activity.Color=Colors.DarkGray
'开始:屏幕上放置按钮 -----------------------------------------------------------
btGotoMain.Initialize("btGotoMain")
btGotoMain.Text="到Main窗体"
btGotoMain.TextSize=25
btGotoMain.Gravity=Gravity.CENTER
Activity.AddView(btGotoMain,(100%x-200dip)/2,60dip,200dip,40dip)
'结束:屏幕上放置按钮 -----------------------------------------------------------


'开始:通知栏消息处理 -----------------------------------------------------------
noTest.Initialize
'Notification类很特别,如果你只进行了Initialize ,而没有使用Icon属性,那么消息的发送会失败
'这样的代码是错误的:noTest.Icon = ""
'即便你没有给通知栏消息准备图标,可以用这个B4A例程的图标,如noTest.Icon = "icon"
noTest.Icon = "icon"


'VB中Me指当前正在操作的窗体
noTest .SetInfo(  "子窗体 Create 事件", getDate  ,Me)
'为了以后可以通过代码的形式去取消当前生成的通知栏消息,所以得给刚才发出的消息做个标记
'通知栏消息的标记只能用数字来标记,不能用字母之类 

Main.pg_Numbers=Main.pg_Numbers+1
noTest.Notify(Main.pg_Numbers)
'结束:通知栏消息处理 -----------------------------------------------------------

End Sub

Sub Activity_Resume

noTest .SetInfo(  "子窗体 Resume 事件", getDate  ,Me)
Main.pg_Numbers=Main.pg_Numbers+1
noTest.Notify(Main.pg_Numbers)
End Sub

Sub Activity_Pause (UserClosed As Boolean)


If UserClosed Then

' Msgbox("进入 Activity_Pause 事件" & CRLF & "UserClosed = True", "消息") 
noTest .SetInfo(  "子窗体 Pause 事件", getDate  & "UserClosed = True"  ,Me)

Else

' Msgbox("进入 Activity_Pause 事件" & CRLF & "UserClosed = False", "消息") 
noTest .SetInfo(  "子窗体 Pause 事件",getDate & "UserClosed = False"  ,Me)

End If
Main.pg_Numbers=Main.pg_Numbers+1
noTest.Notify(Main.pg_Numbers)

End Sub


'点击按钮进入主窗体
Sub btGotoMain_Click
StartActivity( Main)
End Sub



Sub Activity_KeyPress (KeyCode As Int) As Boolean
'假如没有这段代码Activity_KeyPress,你点击了退出键,这就是交给系统处理

If (KeyCode = KeyCodes.KEYCODE_BACK) Then


If (Msgbox2("是否要退出当前界面?", "", "确定", "取消", "", Null) = DialogResponse.POSITIVE) Then

'DialogResponse是一个预定义的对象,其中包含了可能的返回值
'DialogResponse.Positive = -1 '点击确认按钮
'DialogResponse.CANCEL= -3 '点击取消按钮 

StartActivity( Main )

'Return False 表示按键信息交给系统处理
'这个处理由两个步骤组成:
'1、在系统执行默认的退出键事件之前,先执行我写的代码
'2、执行系统默认的退出键事件
Return False

Else


'Return True 将告诉系统,当前的退出键已经处理好了
'Return True 只执行我写的代码,不再去执行系统默认的退出键事件
Return True


End If


End If 

End Sub


'返回当前时间
Sub getDate () As String

Return DateTime.Time(DateTime.Now) & "  "

End Sub
  评论这张
 
阅读(148)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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