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

Deklaration:

Declare Sub SetLastErrorEx Lib "user32.dll" ( _
  ByVal dwErrCode As Long, _
  ByVal dwType As Long)

Beschreibung:
Diese Funktion setzt einen globalen Fehler für den entsprechenden Thread. Mit der GetLastError-Funktion kann man denletzten Fehler abfragen und darauf reagieren. Diese Funktion ist völlig identisch mit der SetLastError-Funktion.

Parameter:

dwErrCode	erwartet einen Fehler Code, der einer der Fehler-Konstanten entspricht.
dwType	Reserviert. Übergeben Sie hier denWert "0".

Rückgabewert:
Keine

Beispiel:

Private Declare Sub SetLastErrorEx Lib "user32.dll" ( _
  ByVal dwErrCode As Long, _
  ByVal dwType As Long)
 
' Eine der Fehler Konstanten
Private Const ERROR_INVALID_FUNCTION = 1 ' Unzulässige Funktion.

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