Question

VB中怎么用timmer控制窗体出现时间，就是一个窗体弹出了一个msgbox 我要让这个窗体和msgbox在5秒关闭

然后打开一个新窗体

Answer 1

比如窗体2单击的时候让他弹出一个msgbox的框，可以这样

Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal uType As Long, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long
Private Sub Form_Click() '窗体单击事件
MessageBoxTimeout ByVal 0&, "5秒种后我会自动关闭的哦~~~~~", "自动关闭信息框演示:", ByVal 0&, ByVal 0&, 5000
'添加要显示的窗体的代码,比如Form3.show
Form3.Show
Unload Form2
End Sub

Answer 2

风格擐甲挥戈