VB6.0 cambia el ícono del mouse del sistema

Declarar Función LoadCursorFromFile Lib "user32" Alias ​​"LoadCursorFromFileA" (ByVal lpFileName As String) Siempre

Declarar Función SetSystemCursor Lib "user32" Alias ​​"SetSystemCursor" (ByVal hCur As Long, ByVal id As Long) As Long

'Acerca de SetSystemCursor

hCur: el identificador del cursor El contenido del cursor identificado por hCur en esta función reemplaza el contenido. del cursor del sistema definido por id. El sistema destruye hCur llamando a la función DestroyCursor. Por lo tanto, hCur no puede ser el cursor cargado por la función LoadCursor. Para especificar un cursor cargado desde un recurso, primero copie el cursor usando la función CopyCursor y luego pase la copia a la función SetSystemCursor.

id: Especifica que el cursor del sistema se reemplaza por el contenido de la hora.

La siguiente es una serie de identificadores de cursor del sistema:

OCR_APPSTARTING: Flecha estándar y reloj de arena pequeño

OCR_NORMAL: Flecha estándar

OCR_CROSS : Cursor en forma de cruz

OCR_HAND: Forma de la mano (Windows NT 5.0 y posterior)

OCR_HELP: Flecha y marcador de este

OCR_IBEAM: Viga en forma de I

OCR_NO: Círculo oblicuo

OCR_SIZEALL: Las flechas en las cuatro direcciones apuntan al norte, sur, este y oeste respectivamente

OCR_SIZENESEW: Las flechas dobles apuntan respectivamente al noreste y al suroeste

OCR_SIZENS: Flechas dobles que apuntan al norte y sur respectivamente

OCR_SIZENWSE: Flechas dobles que apuntan al noroeste y sureste respectivamente

OCR_SIZEWE: Flechas dobles que apuntan al oeste de Hedong

OCR_UP: flecha vertical

OCR_WAIT: reloj de arena

Luego SetSystemCursor LoadCursorFromFile("D:\1.ani"), OCR_NORMAL.

El sistema llamará automáticamente a DestroyCursor para destruirlo.

Opción explícita

Función de declaración privada LoadCursorFromFile Lib "user32" Alias ​​​​"LoadCursorFromFileA" (ByVal lpFileName como cadena) siempre y cuando

Función de declaración privada SetSystemCursor Lib "user32 " (ByVal hCur As Long, ByVal id As Long) As Long

Función de declaración privada DestroyCursor Lib "user32" (ByVal hCur As Long) As Long

Const privada OCR_NORMAL = 32512

Dim lRet As Long

Private Sub Form_Load()

lRet = LoadCursorFromFile("D:\Icons\Standard Hand.cur")'Mi icono ruta

SetSystemCursor lRet, OCR_NORMAL

End Sub

Subcomando privado1_Click()

DestroyCursor(lRet)

End Sub

Es trágico... No puedo volver a cambiarlo... Tengo que restablecer el cursor.