怎么自动关闭？ - VB6论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎么自动关闭？

标题：怎么自动关闭？

只看楼主

adffdda

等　级：论坛游民
帖　子：98
专家分：15
注　册：2015-1-6
结帖率：92.86%

已结贴√ 问题点数：20 回复次数：4

怎么自动关闭？

用vb创建一个窗体，怎么倒计时，代码怎么写？

[此贴子已经被作者于2017-2-25 21:13编辑过]

2017-02-21 22:50

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

得分:10

放个定时器。
定时器设置为 1000 毫秒触发一次。
每运行一次，把当前值减掉1，当当前值 <=0 是关闭窗体。

i=val(lable1)
i=i-1
lable1=i
if i<=0 then
unload me
end if

授人于鱼，不如授人于渔
早已停用QQ了

2017-02-22 08:48

xiangyue0510

等　级：贵宾
威　望：86
帖　子：934
专家分：5244
注　册：2015-8-10

得分:10

Timer控件，既可以用他修改lable，也可以用它判断计数为0时关闭窗口。如何激活timer事件，就是你自己如何设想的问题了。
timer控件如何使用请自行百度，很简单的。

2017-02-22 08:50

adffdda

等　级：论坛游民
帖　子：98
专家分：15
注　册：2015-1-6

得分:0

谢谢！！

2017-02-22 13:20

adffdda

等　级：论坛游民
帖　子：98
专家分：15
注　册：2015-1-6

得分:0

i=val(lable1)
i=i-1
lable1=i
if i<=0 then
unload me
end if

[此贴子已经被作者于2017-2-25 21:13编辑过]

2017-02-22 13:27