013 timer计时器

IPSC1978.GICP.NET

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

■标题:013 timer计时器

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

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

[/vb]

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

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

(查看完整版网页)

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