Office中国论坛/Access中国论坛

标题: 想做一个延迟窗体 [打印本页]

作者: cangqiong 时间: 2008-11-12 14:24
标题: 想做一个延迟窗体
首先在窗体里建一个退出按钮
然后在打开窗体时...退出按钮是不可用的.....想要延迟3秒后..退出按钮才可以用

最好能在窗体上看到这3秒 1.2.3后..退出按钮可以用了

作者: Henry D. Sy 时间: 2008-11-12 15:07
Private Sub Form_Load()
Me.Command1.Enabled = False
Me.TimerInterval = 3000
End Sub

Private Sub Form_Timer()
Me.Command1.Enabled = True
Me.TimerInterval = 0
End Sub

作者: cangqiong 时间: 2008-11-12 15:24
能在窗体上加倒数3 2 1 吗?
这样看着比较好看

作者: tz-chf 时间: 2008-11-12 16:26
dim n as interger(这个忘记了怎么写,系统会有提示的)
Private Sub Form_Load()
Me.Command1.Enabled = False
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
n=n+1
Me.Command1.caption = 4-n
if n=4 then
Me.Command1.Enabled = True
Me.TimerInterval = 0
end if
End Sub

作者: cangqiong 时间: 2008-11-12 16:51
n不会等于4的
不对啊?
过1秒后
又重新执行了!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)