|
'Description: Returns system description for all error numbers
'Declarations
'Declare Function FormatMessage Lib "kernel32" 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
'Public Const FORMAT_MESSAGE_ALLOCATE_BUFFER = &H100
'Public Const FORMAT_MESSAGE_ARGUMENT_ARRAY = &H2000
'Public Const FORMAT_MESSAGE_FROM_HMODULE = &H800
'Public Const FORMAT_MESSAGE_FROM_STRING = &H400
'Public Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
'Public Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200
'Public Const FORMAT_MESSAGE_MAX_WIDTH_MASK = &HFF
'Public Const LANG_USER_DEFAULT = &H400&
'Function GetLastErrorStr(dwErrCode As Long) As String
Static sMsgBuf As String * 257, dwLen As Long
dwLen = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM _
Or FORMAT_MESSAGE_IGNORE_INSERTS Or FORMAT_MESSAGE_MAX_WIDTH_MASK, ByVal 0&, _
dwErrCode, LANG_USER_DEFAULT, ByVal sMsgBuf, 256&, 0&)
If dwLen Then GetLastErrorStr = Left$(sMsgBuf, dwLen)
'End Function
'Place the following code in under a command button or in a menu, etc...
'Sub needs a textbox and label
Dim x
x = GetLastErrorStr(Val(Text1.Text))
Label1.Caption = x
| |