| Pregunta: | 27477 - ICONO DEL RATÓN |
| Autor: | David Martínez |
| ¿Sabeis cambiar el icono del ratón con API para que se vea reflejado tb en el escritorio de windows?, con mousepointer solo se ve reflejado en la ventana de la aplicación. Gracias. | |
| Respuesta: | Le_Chuck Yop |
| Este es el codigo que use para cambiar el icono y lo cambia tanto como para windows como para el formulario en ejecucion, tambien sirve para cursores animados:
USO: Private Sub Command1_Click() ' Algunproceso.... CambiaCursor("C:\WINDOWS\Cursor.Cur") 'Algunproceso RestCursor End Sub 'Para inclur en un modulo Declare Function LoadCursorFromFile Lib "user32" Alias _ "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Declare Function SetSystemCursor Lib "user32" _ (ByVal hcur As Long, ByVal id As Long) As Long Declare Function GetCursor Lib "user32" () As Long Declare Function CopyIcon Lib "user32" (ByVal hcur As Long) As Long Const OCR_NORMAL = 32512 Public lngOldCursor As Long, lngNewCursor As Long Public Sub CambiaCursor(CursorPath As String) 'Copia el icono para compatibilidad con Win NT lngOldCursor = CopyIcon(GetCursor()) 'Carga el icono desde el archivo lngNewCursor = LoadCursorFromFile(CursorPath) 'Activa el cursor SetSystemCursor lngNewCursor, OCR_NORMAL End Sub Public Sub RestCursor() 'Reestablece el cursor SetSystemCursor lngOldCursor, OCR_NORMAL End Sub | |