VB在对话框上显示倒计时关闭时间

[haxiang_3]

请问 如何 可以在VB对话框上显示关闭窗口的时间 比如 有十秒要关闭窗口了 10秒........9秒........8秒.........7秒....... 一直跳到0秒 然后就关闭了窗口呢`` 急 在线等

[fvflove]

自己做个对话框吧.

[haxiang_3]

给个 思路 我是这样 想的

我在对话框上先把文字打好了 如 离对话框关闭还有...

后面的时间 我用一个时间控件来完成 用一个全局的变量来记时间 在用字符连接 修改Caption

[yachong]

[Quote=引用 2 楼 haxiang_3 的回复:]
给个 思路 我是这样 想的

我在对话框上先把文字打好了 如 离对话框关闭还有...

后面的时间 我用一个时间控件来完成 用一个全局的变量来记时间 在用字符连接 修改Caption
[/Quote]
就这么办就可以
如果不用全局变量，在Timer时间中定义一个Static变量也可以

[zhufenghappy]

其实可以用一个窗体作对话框，通过时间控件控制到一定时间关闭。

[fvflove]

'增加一个标签.一个Timer1
'以下代码在窗体中
Option Explicit
Dim Tim As Long

Private Sub Form_Load()
   Tim = Timer + 10
   Timer1.Enabled = True
   Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
   Label1.Caption = "还有" & Int(Tim - Timer) & "秒结束"
End Sub

[fvflove]

'晕.忘记了,在时间控件里面要先判断 int(Tim-Timer)的值,当小于1的时间就关闭了,.

[haxiang_3]

谢谢了 问题已经解决 谢谢