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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]沉默蜂版颜色选择器(一)  

2014-10-12 19:29:16|  分类: 图形图像 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 [原创]沉默蜂版颜色选择器 - 沉默蜂 - 沉默蜂B4A安卓编程实战资料
运行效果图

下面是Main活动视图代码


#Region 代码说明

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

#End Region

#Region  Project Attributes 
#ApplicationLabel: B4A 示例
#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 gColorPicker As MyColorPicker
Dim btShow As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
'不要忘记加载用可视化设计器创建的布局文件。例如:
'Activity.LoadLayout("Layout1")
Activity.Color=Colors.White
gColorPicker.Initialize(Activity,Me,"ColorPicker",True,Colors.Transparent,Colors.White)
gColorPicker.SetShow(True)
btShow.Initialize("btShow")
btShow.Text="显示颜色选择器"
btShow.Gravity=Gravity.CENTER
Activity.AddView(btShow,0,100%y-80dip,100%x,80dip)

End Sub

Sub btShow_Click
gColorPicker.SetShow(True)
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

'点击颜色盘上的应用按钮
Sub ColorPicker_btnApplyColor(vColor As Int )
Activity.Color=vColor
End Sub

'点击颜色盘上的确定按钮
Sub ColorPicker_btnOKColor(vColor As Int )
Activity.Color=vColor
End Sub

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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