013 timer计时器

MYCSG.CN

013 timer计时器 - 文章首页→返回版区

■标题:013 timer计时器

■作者:IPSC [2025/3/26 12:57:06]
Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

Dim Timer1 As Timer '定义定时器 1 必须在这个事件定义不能在 Sub Globals定义

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("LabDemo")

Timer1.Initialize("Timer1", 500) '定时器1 设定激发间隔 500 毫秒

Timer1.Enabled=True '这行千万不要忘记了 VB6默认True 但是B4A 默认False

End Sub

Sub Timer1_Tick '定时器 1 事件

DateTime.DateFormat="yyyy年MM月dd日" '切记 MM 要大写 Month月份 Minute分钟就要用小写

TM=DateTime.Date(DateTime.Now) '使用DateTime函数获取当前日期赋值给变量 TM

DateTime.TimeFormat ="HH:mm:ss" '切记 mm 要小写 HH要大写免得17点显示5点

TM=TM & " " & DateTime.time(DateTime.Now) '使用DateTime函数获取当前时间前面加上日期星期后赋值给变量TM

Label1.text=TM '在界面标题上显示 TM 变量所代表的当前日期与时间

End Sub

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
46 毫秒 .