如果您遵循MS警告，API调用ExitProcess（）是否在VB6中正常工作？

Question

Microsoft指出VB6 doesn't support ExitProcess（退出并返回值）。

但是，它表示此调用在某些情况下可能会失败（如果线程尚未完成等）。

所以我想知道这个电话是否能正常工作（始终如一:-)，只要你遵守文章中的警告。

我可以更进一步，从Sub Main或Form中调用ExitProcess（）来监视应用程序。

更新：经过多次阅读后（我真的在询问之前对此进行了一些研究）我找到了suggestion to use the TerminateProcess API instead。我正在调查这个选项。

有什么想法吗？

Answer 1

您可以使用来自VB6的Karl Peterson的method of creating a console app吗？然后使用Con.ExitCode = 1（如第二个示例所示）。

他正在发布免费加载项vbAdvance，可帮助您构建控制台应用。

Answer 2

Answer 3

看一看： What unloads the modules when a vb6 program terminates

创建全局变量

  

Public ErrorLevel As Long

创建一个像这样的子：

  

Public Sub UnloadAll（）

     

Dim f As Integer

     

f = Forms.Count

     

同时f＆gt; 0

  Unload Forms(f - 1)

  If f = Forms.Count Then Exit Do

  f = f - 1

     

循环

     

ExitProcess ErrorLevel

     

End Sub

在你'main'的末尾或你主要表格的卸载代码中放置：

  

UnloadAll

运作良好