Afficher ou masquer la barre de taches

 

Lorsque l'on utilise l'api il n'existe qu'un moyen de savoir si tous c'est bien passé, cette fonction retourne le texte "clair" du message d'erreur, mais lErrNum contient le numèro de l'erreur

Option Explicit

Public Declare Function GetLastError Lib "kernel32" () As Long
Public 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_FROM_SYSTEM = &H1000

Public Function LastSystemError() As String
    '
    ' better system error
    '
    Dim sError As String * 500
    Dim lErrNum As Long
    Dim lErrMsg As Long
    '
    lErrNum = GetLastError
    lErrMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, _
      ByVal 0&, lErrNum, 0, sError, Len(sError), 0)
    LastSystemError = Trim(sError)
    '
End Function

UTILISATION : msgbox LastSystemError