regalcoin富豪币:vb窗口的问题

来源:百度文库 编辑:高校问答 时间:2024/05/05 08:12:02
请问大家,我要怎样写才可以使一个窗口在启动后在规定的时间内消失 ,谢谢

首先,在窗体中放置一个 Timer 计时器控件,然后输入如下代码:

Private sub form_Load
'这是设定计时器一分钟触发一次计时事件(Timer事件)
timer1.timer=60000
end sub

private Timer1_timer()
'触发 Timer 事件说明已经过去一分钟
'这时卸载窗体
unload me
end sub

以上的例程在 VB6.0 WinXP 下测试通过。

使用一个定时器(Timer),用它来控制。