从 VB6 exe Main 返回值？

Question

我的印象是这是不可能的，但这就是我目前所得到的。

Sub Main()        
    On Error GoTo ErrorHandler        
    If Command$ = "" Then
        LogAction "Begin document lockdown"
        LockdownDocs
        LogAction "Lockdown complete"
    Else
        LogAction "Begin document enabling"
        EnableDocs
        LogAction "Documents have be enabled"
    End If
Exit Sub
ErrorHandler:
    LogAction "DocLock Error " & Err.Number & "::" & Err.Description
End Sub

我希望它看起来像这样：

Function Main() As Boolean
    On Error GoTo ErrorHandler        
    If Command$ = "" Then
        LogAction "Begin document lockdown"
        LockdownDocs
        LogAction "Lockdown complete"
    Else
        LogAction "Begin document enabling"
        EnableDocs
        LogAction "Documents have be enabled"
    End If
    Return True
Exit Function
ErrorHandler:
    LogAction "Error " & Err.Number & "::" & Err.Description
    Return False
End Function

我见过的最接近的是 Visual Studio 2005 中的 Function Main() As Integer，但我使用的是 VB6。

Answer 1

有一个可能的解决方案here，通过使用 Win32 API 调用。本质上：

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

' Exit with ErrorLevel set to 9
ExitProcess 9

请注意，这相当于 VB 运行时的 End，因此您必须在调用 ExitProcess 之前进行任何清理、关闭连接、文件、设备、表单等。