从VB6 exe Main返回值？

发布时间：2020-12-17 07:22:46 所属栏目：百科来源：网络整理

导读：我得到的印象是这是不可能的,但这是我到目前为止所得到的. Sub Main() On Error GoTo ErrorHandler If Command$= "" Then LogAction "Begin document lockdown" LockdownDocs LogAction "Lockdown complete" Else LogAction "Begin document enabling" Enabl

我得到的印象是这是不可能的,但这是我到目前为止所得到的.

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.

解决方法

通过使用Win32 API调用,可能有一个解决方案 here.在本质上：

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

' Exit with ErrorLevel set to 9
ExitProcess 9

请注意,这相当于VB运行时的结束,因此您必须在调用ExitProcess之前执行任何清理,关闭连接,文件,设备,表单等.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!