VB cambia el cursor del mouse del escritorio

¿No sé si modificaste el sistema o el programa?

Si es un programa, como se mencionó anteriormente, si desea que el mouse aún cambie después de cerrar el programa, consulte lo siguiente

Declarar función LoadCursorFromFile Lib "user32 " Alias ​​​​"LoadCursorFromFileA" (ByVal lpFileName As String) Mientras sea largo

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

'Acerca de SetSystemCursor

hCur: El identificador del cursor. El contenido del cursor identificado por esta función hCur 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.

Pero puedes configurar el mouse para que cambie al patrón del mouse del sistema después de hacer clic en "Cancelar", siempre que tengas el archivo del mouse del sistema.