VB 获取 GetLastError 的错误信息

最新推荐文章于 2018-06-01 10:21:23 发布

原创最新推荐文章于 2018-06-01 10:21:23 发布 · 680 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#VB

vb 专栏收录该内容

90 篇文章

订阅专栏

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