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

Gute Laune Sommer bei Tools & Components

Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR

Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!

zum Beispiel:

Developer CD nur 479,20 EUR statt 599,- EUR sevDTA 3.0 nur 224,30 EUR statt 299,- EUR

vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR

- Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

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