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

然后打开一个新窗体
2024-11-06 14:26:58
推荐回答(2个)
回答(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

回答(2):

风格擐甲挥戈