可以利用Timer时钟控件实现,这样做的好处是无需等待,释放CPU时间去做别的事
创新互联建站网站建设公司,提供成都网站建设、成都网站制作,网页设计,建网站,PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,是专业的做网站团队,希望更多企业前来合作!
使用OpenProcess打开进程,然后用ToolhelpAPI的CreateToolhelp32Snapshot函数创建线程快照,然后用Thread32First和用Thread32Next枚举该进程的线程,对于枚举出来的该进程的每个线程结构中获取线程ID,用OpenThread打开线程,用SuspendThread挂起该线程。当该进程的所有线程被挂起,该进程就被挂起了,也就被暂停了。反之,想恢复该进程,只需用函数ResumeThread恢复该进程的所有线程即可。 以上的做法是因为win32子系统没有导出SuspendProcess函数,只能绕个弯实现,可在Native API,却有该函数,函数名为ZwSuspendProcess(也可能是SuspendProcess,我用手机写这个的,没电脑,没法查,反正有一个是对的,你可以用VS里的工具DEPEND查查看函数名),在ntdll.dll被导出,该函数可以在vb中使用,不过得自己写声明,他的声明和SuspendThread几乎是一样的,就是句柄是进程句柄而不是线程句柄而已,与之对于的是ZwResumeProcess(也可能是ResumeProcess)。
你这种暂停,只能用一种方式(timer控件)代替
加一个timer控件和一个按钮
Timer1.Interval = 1000
Timer1.Enabled = True
timer也是一个循环了
然后用按钮控制(Timer1.Enabled)暂停或继续
在程序代码最上边,加上Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
在想暂停的地方,运行Sleep 1000 '1000代表1秒
在暂停按钮的Click事件中设置:Timer1.Enable=False
在继续按钮的Click事件中设置:Timer1.Enable=True
详细查看了你的问题,完全不需要使用线程sleep的方法。
在这边,我要给你引入一个概念。就是Form窗体的两个方法。
Form.Show()和Form.ShowDialog()
第一个Show方法运行后,你的主程序还是会进行,你的代码还是会继续进行下去。此时,窗体还是弹出的。
第二个ShowDialog方法运行后,此时,弹出的一个窗体,你不将其关闭,那么,主程序就会一直等待这个窗体关闭后,才执行后面的代码。
所以,你只需要使用showdialog这个方法,即可达到你想要的结果。
那么,如何才能让弹出的窗体不改变呢?很简单
你可以找到窗体的formcloseing事件,在这个事件中,有一个参数:e
这个e有一个属性,就是e.handle,表示是否处理过这个事件了。
这个时候,如果你不想让窗体关闭,你可以写:
e.handle=true,那么表示已经处理过窗体关闭的事件了。
注:有些情况,可能是:e.cancel=true