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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]对一个B4A官网日历控件的深层改进(五)  

2014-02-26 15:13:00|  分类: 官网类库 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
下面是窗体Win2的代码

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

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

End Sub

Sub Globals

Dim CsCal As CustomCalendar


End Sub

Sub Activity_Create(FirstTime As Boolean)


Activity.Title="子界面"
Activity.Color=Colors.LightGray
CsCal.Initialize(Me,"CsCal",100%x,100%y,DateTime.Now,1949,2100)
Activity.AddView(CsCal.AsView,0,0,100%x,100%y)
CsCal.ShowCalendar(True)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

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'返回False则表示按键信息交给系统处理
' Activity.Finish'关闭这个活动
Else
'Return True 将告诉系统,当前的退出键已经处理好了
           'Return True 只执行我写的代码,不再去执行系统默认的退出键事件
Return True'返回True则表示按键已经处理
End If
End If
End Sub



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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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