Question

vb 中怎么让窗体出现3秒后自动关闭；

Dim i As Integer

Private Sub Timer1_Timer()
i = i + 1
If i = 4 Then
Timer1.Interval = 0
Unload Me
frdl.Show
End If
End Sub
我这样写对吧

Answer 1

只有1个错点
interval怎么可以是0毫秒?

1000=1秒 自己算 而且这个应该写在窗体初始化或加载里
2L的代码有错 隐藏和卸载区别很大 integer 不可作为变量且timer没有这个函数

Answer 2

'你那样写有几个地方是错的
dim i as long
'Timer1.Enabel属性设为False
Private sub Form1_Load()
i=0 '初始化 i 的值
Timer1.Interval = 1000
Timer1.Enable=True '开启Timer1控件
end sub
Private sub Timer1_Timer()
i=i+1
if i=3 then unload me '关闭本窗体
end sub

Answer 3

加个Timer
Private sub form1_ load()
Integer=3000
Timer1.Enable=True
End Sub
Private Sub timer1_timer()
Me.hide
End sub
顺便说一句。那个Timer的属性Integer的单位是毫秒。。不是秒。