VB如何点击关闭程序后弹出窗口，几秒钟后又关闭

2025-05-08 18:07:49

推荐回答（3个）

回答1：

可以用计时器来实现，但用API的sleep函数更简单，在该窗体中输入以下代码：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Paint()
Sleep 3000
End
End Sub
说明：3000表示3000毫秒即3秒

回答2：

补充一下，上面所说的该窗体是指关于窗体
用完程序后，关闭主窗体则弹出关于窗体，可以在主窗体的UNLOAD事件中输入：
关于窗体.show

回答3：

在UNLOAD 事件中写入代码，用TIMER1记时