DestroyCursor-Funktion Diese Funktion entlädt einen Mauscursor und gibt dessen Ressourcen frei.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  7.389

Deklaration:

 Declare  Function  DestroyCursor  Lib  "user32.dll"  ( ByVal hCursor As Long ) As Long

Beschreibung:
Diese Funktion entlädt einen Mauscursor und gibt dessen Ressourcen frei.

Parameter:

hCursor

Erwartet das Handle des zu entladenen Mauscursors.

Rückgabewert:
Ist die Funktion erfolgreich, so wird der Wert "1" zurückgegeben, andernfalls derWert "0".

Beispiel:

Private Declare Function LoadCursor Lib "user32.dll" _
  Alias "LoadCursorA"  ( _
  ByVal hInstance As Long, _
  ByVal lpCursorName As Any) As Long
Private Declare Function GetCursor Lib "user32.dll" () As Long
Private Declare Function SetClassLong Lib "user32" _
  Alias "SetClassLongA"  ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
Private Declare Function DestroyCursor Lib "user32.dll" ( _
  ByVal hCursor As Long) As Long
 
Private Const GCW_HCURSOR = (-12)
 
' LoadCursor lpCursorName-Konstanten
Private Const IDC_APPSTARTING = 32650& ' Pfeil und Sanduhr
Private Const IDC_ARROW = 32512& ' Stdandard Pfeil
Private Const IDC_CROSS = 32515& ' Kreuz
Private Const IDC_IBEAM = 32513& ' Text Marker
Private Const IDC_ICON = 32641& ' (Win NT) Leerer Cursor
Private Const IDC_NO = 32648& ' Drag & Drop Symbol "Nicht ablegen"
Private Const IDC_SIZE = 32640& ' (Win NT) Verschiebe/Vergrößer-Cursor in alle vier Richtungen
Private Const IDC_SIZEALL = 32646& ' Verschiebe/Vergrößer-Cursor in alle vier Richtungen
Private Const IDC_SIZENESW = 32643& ' Verschiebe/Vergrößer-Cursor links oben und rechts unten
Private Const IDC_SIZEWE = 32644& ' Verschiebe/Vergrößer-Cursor links und rechts 
Private Const IDC_UPARROW = 32516& ' Pfeil hoch
Private Const IDC_WAIT = 32514& ' Sanduhr
 
Dim hCur As Long, hCurOld As Long

' Kreuz als StandardCursor im Fenster anzeigen
Private Sub Form_Activate()
  Dim Retval As Long
 
  ' Aktuellen Cursor ermitteln
  hCurOld = GetCursor
 
  ' Neuen Cursor laden
  hCur = LoadCursor(0&, IDC_CROSS)
 
  ' Cursor zuweisen
  Retval = SetClassLong(Me.hwnd, GCW_HCURSOR, hCur)
End Sub

' erstellten Cursor löschen und alten wiederherstellen
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim Retval As Long
 
  ' Alten Cursor wiederherstellen
  Retval = SetClassLong(Me.hwnd, GCW_HCURSOR, hCurOld)
 
  ' erstellten Cursor entfernen
  Retval = DestroyCursor(hCur)
End Sub