[vb]获取GetLastError的错误信息

最新推荐文章于 2022-12-28 15:55:07 发布

原创最新推荐文章于 2022-12-28 15:55:07 发布 · 3.7k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #function #system

本文提供了一个使用Visual Basic编写的示例代码，通过调用Windows API函数FormatMessage来获取并解析DLL错误代码，帮助开发者更好地理解如何在实际应用中处理和显示错误信息。

Option Explicit

Private Declare Function FormatMessage Lib "kernel32.dll" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200

Public Function GetLastDllErr(ByVal lErr As Long) As String
    Dim sReturn As String
    sReturn = String$(256, 32)
    FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or _
        FORMAT_MESSAGE_IGNORE_INSERTS, 0&, lErr, _
        0&, sReturn, Len(sReturn), ByVal 0
    sReturn = Trim(sReturn)
    GetLastDllErr = sReturn

End Function