Télécharger le zip
Ca peut-être utile por lister les messages d'erreurs, mais le mieux, ce serait de décrire les erreurs. DARK SIDIOUS
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).
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+
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 997 membres 226 nouveaux aujourd'hui 16 153 membres club