想做一个延迟窗体

cangqiong

首先在窗体里建一个退出按钮        
然后在打开窗体时...退出按钮是不可用的.....想要延迟3秒后..退出按钮才可以用

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

Henry D. Sy

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

能在窗体上加 倒数3 2 1 吗?
这样看着比较 好看

tz-chf

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

n不会等于4的
不对啊?
过1秒后
又重新执行了!