SetLastError-Funktion Diese Funktion setzt einen globalen Fehler für den entsprechenden Thread.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  486

Beschreibung:
Diese Funktion setzt einen globalen Fehler für den entsprechenden Thread. Mit der "GetLastError" Funktion kann man den letzten Fehler abfragen und darauf reagieren.

Deklaration:

Declare Function SetLastError Lib "kernel32.dll" (ByVal dwErrCode As Long)

Parameter:

dwErrCode

Erwartet eine der Fehler-Konstanten

Rückgabewert:
keiner

Beispiel:

Private Declare Sub SetLastError Lib "kernel32" (ByVal dwErrCode As Long) 
 
' Eine der Fehler-Konstanten
Private Const ERROR_INVALID_FUNCTION = 1 ' Unzulässige Funktion.

Private Sub Command1_Click() 
 
  ' Fehler setzen
  SetLastError ERROR_INVALID_FUNCTION 
 
  ' Ist der Fehler gesetzt ?
  If Err.LastDllError = ERROR_INVALID_FUNCTION Then 
    MsgBox "Unzulässige Funktion.", vbCritical , "Fehler: " & Err.LastDllError 
  End If 
End Sub