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調用。在essense：

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

' Exit with ErrorLevel set to 9 
ExitProcess 9 

請注意，這是End到VB運行時等價，所以你必須做任何清理，調用ExitProcess之前連接，文件，設備，表格等的縮小。