Código del puntero del mouse
PrivateDeclareFunctionalxSetCursorLib\"user32\"Alias\"SetCursor\"(ByValhCursorAsLong)AsLong
@#Establece el puntero del mouse especificado como puntero actual
PrivateDeclareFunctionalxGetCursorLib\ "user32\"Alias\"GetCursor\"()AsLong
@#Obtener el identificador del puntero del mouse actualmente seleccionado
PrivateSubMouseType()
@# Obtener el valor de los cursores izquierdo y derecho
Screen.MousePointer=9@#Establezca el mouse de la pantalla en 9 (ratón izquierdo y derecho).
lngMouseOne=alxGetCursor()@#Devuelve los valores izquierdo y derecho del mouse en WINDOWS (2000\\98\\XP).
Screen.MousePointer=7@#Establezca el mouse de pantalla en 11 (reloj de arena).
lngMouseTwo=alxGetCursor()@#Devuelve los valores izquierdo y derecho del mouse en WINDOWS (2000\\98\\XP).
Screen.MousePointer=0@#Restablece el mouse de la pantalla a 0 (ACCESO autodeterminado).
blTextout=False
blTextlook=False
EndSub
Método 2:
Simplemente busque un .cur Copie el archivo en el mismo directorio que el archivo mdb
PrivateDeclareFunctionCopyCursorLib\"user32\"Alias\"CopyIcon\"(ByValhcurAsLong)AsLong
PrivateDeclareFunctionLoadCursorFromFileLib\"user32\"Alias\" LoadCursorFromFileA\" (ByVallpstrCurFileAsString)AsLong
PrivateDeclareFunctionGetCursorLib\"user32\"()AsLong
PrivateDeclareFunctionSetSystemCursorLib\"user32\"(ByValhcurAsLong, ByValidAsLong)AsLong
PrivateConstOCR_NORMAL =32512
DimlngMyCursorAsLong
DimlngSystemCursorAsLong
PrivateSubcmdMyCursor_Click()@#Cambiar estilo de puntero
DimstrCurFileAsString
strCurFile= CurrentProject.Path \"\\Cursor.cur\"
@#Puedes llamar a otros archivos de estilo de mouse .cur a voluntad para mostrar varios punteros
lngMyCursor=LoadCursorFromFile(strCurFile)
lngSystemCursor=GetCursor()
lngSystemCursor=CopyCursor(lngSystemCursor)
SetSystemCursorlngMyCursor, OCR_NORMAL
Text1.SetFocus
Text1.Text=\"El puntero del mouse se ha configurado en el estado que desea\"
cmdMyCursor.Enabled=False
cmdSystemCursor.Enabled=True
EndSub
PrivateSubcmdSystemCursor_Click()@#Restaurar estilo de puntero del sistema
SetSystemCursorlngSystemCursor, OCR_NORMAL
Text1.SetFocus
Text1.Text=\ "El puntero del mouse ha sido restaurado al estado del sistema\"
cmdMyCursor.Enabled=True
cmdSystemCursor.Enabled=False
lngSystemCursor=0
EndSub
PrivateSubForm_Close()
IflngSystemCursorlt;gt;0ThenSetSystemCursorlngSystemCursor,OCR_
NORMAL
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IflngSystemCursorlt;gt;0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub