求救，关于紧急事件处理方面的问题 （急急急……）

Question

业余用VB做程序，请问有一突发事件，需要按一个开关，中断所有的程序，应该如何做？用到什么函数或命令？如何控制外部程序的中断？分不够可以加

Answer 1

你可以直接通过End语句强制中止程序。

Answer 2

获得进程：
http://expert.csdn.net/Expert/topic/2663/2663728.xml?temp=.8355371
关闭进程：
http://expert.csdn.net/Expert/topic/2806/2806327.xml?temp=.323208

Answer 3

'******如何使窗口位於最前
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const flag = SWP_NOMOVE Or SWP_NOSIZEPrivate Sub Form_Load()
     SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flag
End Sub