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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

类模块][滑动开关控件]Switch view (一)  

2014-04-13 13:20:52|  分类: B.官网类库 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
类模块][滑动开关控件]Switch view (一) - 沉默蜂QQ793136625 - 沉默蜂
 小米系统上的滑动开关截图

类模块][滑动开关控件]Switch view (一) - 沉默蜂QQ793136625 - 沉默蜂
例程运行截图


#Region 代码说明

'版本:2014-04-12
'注解:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com

'在手机上用滑动开关来代码传统的复选框已成一种趋势
'通过在B4A官网搜索,总算找到一个关于滑动开关的例程及其类模块
'由于我不懂JAVA,所以目前也不知怎样去更改这个控件的背景色及行高等等更多的操作
'哪位有兴趣,希望能进一步改进此控件

'来源Class Switch View (Android 4+)
'http://www.basic4ppc.com/android/forum/threads/switch-View-android-4.38971/


#End Region

#Region  Project Attributes 
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName: 
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#LibraryName: SwitchView
#End Region

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

Sub Process_Globals

End Sub

Sub Globals
Dim sw As SwitchView
End Sub

Sub Activity_Create(FirstTime As Boolean)

'初始化滑动开关
sw.Initialize(Me, "sw")
'将这个滑动开关加到活动视图上
Activity.AddView(sw.Switch, 10dip, 10dip, 200dip, 50dip)
'关闭时的按钮文本
sw.TextOff = "关闭"
'开启时的按钮文本
sw.TextOn = "开启"
End Sub

'滑动开关改变触发此事件
Sub sw_CheckedChange(Checked As Boolean)

Select Checked
Case True
customLog("滑动开关被开启" )
Case False
customLog("滑动开关被关闭" )
End Select
'GetChecked 获取当前滑动开关状态
Select sw.GetChecked
Case True
customLog("滑动开关被开启" )
Case False
customLog("滑动开关被关闭" )
End Select



End Sub



Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub customLog(message As String)
    Log(DateTime.Time(DateTime.now) & "  "&message)
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

  评论这张
 
阅读(295)| 评论(1)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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