Red de conocimiento informático - Consumibles informáticos - Código del puntero del mouse

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