显示跳动的时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示跳动的时间

共有10415人关注过本帖树形打印复制链接主题：显示跳动的时间

飞天

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：172 积分：1914 威望：0 精华：0 注册：2012/6/6 17:08:00

Post By：2012/7/25 22:01:00 [显示全部帖子]

在系统空闲时事件中:

With CurrentTable

Dim Str1 As String = "当前时间: " & Date.now()

StatusBar.Message3 = Str1

End With

飞天

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：172 积分：1914 威望：0 精华：0 注册：2012/6/6 17:08:00

Post By：2012/7/25 22:05:00 [显示全部帖子]

窗口中,启用计时,间隔1000

增加一个 Label1 控件,在计时器TimerTick事件中,如下代码:

Dim lbl As WinForm.Label

lbl = e.Form.Controls("Label1")

lbl.Text = "当前时间: " & Date.now()

主题：显示跳动的时间