Clm's erreur : message d'une erreur windows

Soyez le premier à donner votre avis sur cette source.

Vue 3 333 fois - Téléchargée 294 fois

Description

Ce code est vraiment simplissime mais il peut être utile.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
83 -
Ca peut-être utile por lister les messages d'erreurs, mais le mieux, ce serait de décrire les erreurs.

DARK SIDIOUS
cs_zappy
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
-
Il serait utile de préciser que cette source peut servir dans le cadre d'utilisation des API avec la fonction GetLastError() as long & ainsi avoir la description de l'erreur généré.

Rappellons au passage que windows averti des erreurs dans le retour des fonctions (non evenementiel).
cs_zappy
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
-
Exemple d'utilisation :

Public Function GetWin32ErrorDescription(ErrorCode As Long) As String
Dim lngRet As Long
Dim strAPIError As String

strAPIError = String$(2048, " ")
lngRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, ErrorCode, 0, strAPIError, Len(strAPIError), 0)
strAPIError = Left$(strAPIError, lngRet)
GetWin32ErrorDescription = strAPIError
End function

Appel de fonction sample :
hFindFile = FindFirstFile(AddSlash(strPath) & strMask, lpFindFileData)
if hFindFile = -1 then
lLastError = GetLastError()
msgbox "Derniere erreur :" & GetWin32ErrorDescription(lLastError)
else
(...)
end if

A+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.