Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Paint()
Sleep 3000
End
End Sub
说明：3000表示3000毫秒即3秒
用完程序后，关闭主窗体则弹出关于窗体，可以在主窗体的UNLOAD事件中输入：
关于窗体.show
VB如何点击关闭程序后弹出窗口,几秒钟后又关闭
可以用计时器来实现，但用API的sleep函数更简单，在该窗体中输入以下代码：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Paint()Sleep 3000 End End Sub 说明：3000表示3000毫秒即3秒
VB怎么实现一个窗口弹出几秒后消失
不要指望用msgbox来实现这样的功能了，即使用API函数使它在运行一段时间后自动关闭，但是它在显示期间，你的程序是处在停止状态的，这是因为msgbox是模态窗口。其实你可以自己设计一个类似的窗体，然后用Timer来控制它的显示与关闭，这个一点也不难。
如何设置VB点退出按钮时,自动关闭VB程序
1、首先，在打开的VB编程软件中，写上一个程序框架。2、然后就可以在这里输入各种语句，根据自己需要可以多输几句。3、然后找到自己输入的两个语句块的中间部分。4、接着在中间的部分中，输入语句 【Exit sub】。5、最后输入完成后，就可以点击页面上方的运行选项按钮，去运行测试了。
vb 让程序点击关闭按钮时弹出提示框
Private Sub cmdEXIT_Click() '退出按钮 Private Sub Form_Unload(Cancel As Integer) '窗体的关闭按钮 Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "是否要确定退出 ?" ' 定义信息。Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。Title = "...
vb中怎么设计一个按钮点击后退出该程序(按钮是新的) 菜鸟求教
Private Sub Command1_Click()If MsgBox("是否要退出程序?", vbYesNo + vbExclamation, "退出程序") = vbNo Then MsgBox "继续留在本窗体中", vbExclamation, "退出程序"Else MsgBox "程序准备退出运行状态", vbExclamation, "退出程序"End End If End Sub ...
VB中如何让一窗体在N秒后自动关闭
Private a As Date Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 500 a = Timer End Sub Private Sub Timer1_Timer()If Timer - a >= 5 Then Unload Me Load Form2 Form2.Show End If End Sub
VB怎么在运行指定程序后便弹出窗口
这个可以用Shell勾子来监视系统正在打开的窗口，然后通过返回的 窗口句柄 来判断是不是你要的那个指定程序，如果是的话就用Msgbox来弹出你要的消息。如果需要代码的话，可以给我发站内消息。
如何使VB用shell运行一个程序后等运行的程序先退出后自己再退出?
End Function Private Sub Form_Load()Shell "Rundll32.exe url.dll, FileProtocolHandler xx.exe", vbHide '这个是调用程序的 Timer1.Interval = 100 End Sub Private Sub Timer1_Timer()Dim a a = exitproc("xx.exe")If a = 0 Then '检测进程不存在则此程序结束 End End If End Sub ...
如何才能VB程序运行后10S后自动退出
每次触发+1，到10时关闭程序。这个方法的缺点是timer的时间不精确。稍复杂的方法：用游戏级定时技术，GetTickCount函数获得当前时间保存，然后用一个死循环中反复用GetTickCount检查时间，当与之前保存的时间间隔达到10s后退出。在vb这种单线程里，可以在循环中加入doevents语句，这样窗体不会假死。
单击退出程序的VB代码怎么写
End语句帮助你关闭所有已经打开的文件,显示的窗口,以及申请的内存等等,能够满足90%的需要,但是End也不是万能的,所以严谨的程序员还是会自己释放所占用的资源,完毕后再退出。 扩展资料 [vb]代码库 view sourceprint? Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("确...
