结束程序的所有进程

[liaoshude]

如何结束自己做的程序的进程？例如在停止按钮下 结束程序的复制过程 就是把所有以这个程序发生的进程停止

[红叶哥]

Private Sub Command1_Click()
end
End Sub

[chenhui530]

TerminateProcess

[liaoshude]

只有一个窗体，也只有复制这一个进程
for each process in form?

[域樹臨風]

Private Sub Form_Unload(Cancel As Integer) '卸载事件(这样在关闭程序时释放内存空间)
Dim n As IntegerFor n = 0 To Forms.conunt - 1 '通过循环找到所有的窗体。forms.count表示窗体的总数。
Unload Forms(n) '卸载找到的每个窗体
Next
End Sub
'(个人整理而得，如果发现有错漏请提出，谢谢。^_^)

[vansoft]

END，全部停掉

楼上的循环肯定是错的。

建议全用for each。

[嗷嗷叫的老马]

..................

[lan563]

[mculoverc]

end