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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]ProgressBar(进度条)控件使用  

2014-01-27 16:32:37|  分类: 自带控件 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

[原创]ProgressBar(进度条)控件使用 - 沉默蜂QQ793136625 - 沉默蜂
 图为此例程运行效果


#Region 代码说明

'版本:2014-01-27
'设计:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com
'说明:ProgressBar(进度条)控件使用

#End Region



#Region  Project Attributes 
#ApplicationLabel: ProgressBar 控件使用
#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
'这里声明的全局变量在应用启动时被使用。
'这里声明的变量能被所有模块使用。
Dim timTIME As Timer
'Timer 必须在Process_Global 里声明

End Sub

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

Dim ProgressBar1 As ProgressBar
'ProgressBar是一个进度条控件
'ProgressBar.Progress 属性用来设定进度状态 ,值在 0~100 之间.
'进度条的高度不能设置,使得显示时像一条细小的蛇似的
End Sub

Sub Activity_Create(FirstTime As Boolean)


If FirstTime Then 
  Activity.LoadLayout("main")
   '布局文件上就只放一个ProgressBar控件
  
   Activity.Color=Colors.LightGray
  'Timer必须在 Activity_Create 初始化,每隔1秒启动一次定时器。
  timTIME.Initialize("timTIME",1000*1)
  
  '激活定时器
  timTIME.Enabled=True
 
End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub timTIME_TICK( )'定时器事件
    
    ProgressBar1.Progress=ProgressBar1.Progress+1
If ProgressBar1.Progress=100 Then
timTIME.Enabled=False
ToastMessageShow("进度控件的进度值为100 " ,True)'自动显示快速消息
End If
End Sub


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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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