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

你想快速掌握安卓编程吗

 
 
 

日志

 
 

[原创]Checked控件  

2014-01-24 15:53:20|  分类: B.自带控件 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
[原创]认识B4A自带的Checked(检查框)控件 - 沉默蜂QQ793136625 - 沉默蜂
图为例程运行效果
 
[原创]认识B4A自带的Checked(检查框)控件 - 沉默蜂QQ793136625 - 沉默蜂
本例程只载入一个布局文件,布局文件上仅一个检查框控件
 

#Region 代码说明

'版本:2014-01-24
'设计:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com

#End Region


#Region  Project Attributes 
#ApplicationLabel: CheckBox
#VersionCode: 1
#VersionName: 
'SupportedOrientations(支持的方向) 值可以是: unspecified(未指定), landscape(纵向)或portrait(横向)。
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

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

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

End Sub

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

Dim CheckBox1 As CheckBox
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("bal_Main")
Activity.Color=Colors.LightGray
CheckBox1.Color =Colors.Gray
CheckBox1.Text="检查框1"

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub CheckBox1_CheckedChange(Checked As Boolean)

'参数Checked 是目前检查框控件的状态

If Checked Then
Log("当前是选中状态")
Else
Log("当前是未选中状态")
End If
End Sub
  评论这张
 
阅读(161)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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