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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

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

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

  下载LOFTER 我的照片书  |
[原创]对一个B4A官网日历控件的深层改进(四) - 沉默蜂QQ793136625 - 沉默蜂
图为部分变量的图解说明




下面是Main窗体的代码



#Region 代码说明

'版本:2014-2-26
'改进:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com
'说明:
'B4A 3 安装后并没有提供一个日历控件,B4A英文官网下载了一个日历控件,由于是老外编写的,所以难免有不适合的地方,于是花了几天时间对它进行了修改,实现了中国化
'B4A官网的这个日历控件并不是B4A公司推出,而是一位国外的B4A爱好者推出,并且这个日历版本是国外网友看了这位楼主的源码后改进的,今天我又对这个源码进行了中国化
'http://www.basic4ppc.com/android/forum/threads/custom-calendar-class.21996/#post-180356

#End Region 代码说明

#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: 万年历控件
#VersionCode: 1
#VersionName: 
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

Sub Process_Globals

End Sub

Sub Globals
Dim btButton As Button
End Sub



Sub Activity_Create(FirstTime As Boolean)


btButton.Initialize("btButton")
Activity.Title="主界面"
    Activity.Color=Colors.LightGray
Activity.AddView(btButton,20%x,30%y,100%x-40%x,30%y)
btButton.Text="切换到子窗口"
'程序启动后马上进入子窗体
If FirstTime Then  btButton_Click
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btButton_Click

StartActivity(Win2)
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 '点击取消按钮 
  ExitApplication '退出应用
'Return False 表示按键信息交给系统处理
'这个处理由两个步骤组成:
'1、在系统执行默认的退出键事件之前,先执行我写的代码
'2、执行系统默认的退出键事件
'Return False'返回False则表示按键信息交给系统处理
' Activity.Finish'关闭这个活动

Else
'Return True 将告诉系统,当前的退出键已经处理好了
           'Return True 只执行我写的代码,不再去执行系统默认的退出键事件
Return True'返回True则表示按键已经处理
End If
End If
End Sub
  评论这张
 
阅读(142)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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