[求助]倒计时代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]倒计时代码怎么写

共有2576人关注过本帖树形打印复制链接主题：[求助]倒计时代码怎么写

找到没重的名

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

加好友

发短信

等级：幼狐帖子：131 积分：2215 威望：0 精华：0 注册：2016/11/8 6:22:00

[求助]倒计时代码怎么写 发帖心情

Post By：2017/6/15 13:58:00 [只看该作者]

为什么下面这个代码可以在窗口让lable 数字有倒计时10，9，8……的功能。

Dim tb As WinForm.Label = e.Form.Controls("Label2")

tb.text = tb.text - 1

但在timespanbox里确提示错误

Dim tt As WinForm.TimeSpanBox = e.Form.Controls("TimeSpanBox1")

tt.value = tt.value - 1

我是想在窗口有一个倒计时功能，按开始按钮后，出现00：00：10，00：00：09，……

我在论坛看了有关的帖子，还是弄不成。能给我一个具体的代码吗?谢谢！

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/15 14:20:00 [只看该作者]

Dim d As Double = 69
Dim hour As Integer = d \ 3600
Dim min As Integer = (d Mod 3600) \ 69
Dim sec As Integer = d Mod 60
Dim str As String = Format(hour, "00") & ":" & Format(min, "00") & ":" & Format(sec, "00")
msgbox(str)

黄训良

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

加好友

发短信

等级：五尾狐帖子：1100 积分：8985 威望：0 精华：0 注册：2014/3/15 14:36:00

Post By：2017/6/15 14:43:00 [只看该作者]

例子如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目8.foxdb

找到没重的名

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

加好友

发短信

等级：幼狐帖子：131 积分：2215 威望：0 精华：0 注册：2016/11/8 6:22:00

Post By：2017/6/15 22:14:00 [只看该作者]

首先谢谢有点色老师的及时回答，同时也感谢三楼黄训良的回答，虽然你的示例文件我打不开，但我仍是十分真诚地谢谢你的帮助！

参考有点色老师的回答，我以反复研究了2个多小时，终于弄出来了。

作为为新手，我3天的业余时间全都耗在这个问题上了。中间死循环无数次图片点击可在新窗口打开查看

，虽然后来也设了5秒的间隔，但那也只是够我关掉死循环的窗口而已。前前后我死了无数次啊！图片点击可在新窗口打开查看

求安慰！帮助中感觉关于计时器的讲解太少了，我理解起来真的很吃力。

同时提个建议：我在搜索相关帖子时发现，当贴子列表出来后，下面翻页的那个部位设计的有点丑陋，没有上一页下一页的功能，而且页码间距太小，点页码点的是我也很郁闷！我承认我比较懒，不愿输页码。（其实是因为笔记本没有小键盘，输着不爽。）

晚安，朋友们！

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/15 23:36:00 [只看该作者]

嗯嗯，楼主还是挺有专研精神的图片点击可在新窗口打开查看

赞一个。

下一主题 >> << 上一主题

主题：[求助]倒计时代码怎么写