Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo usar vb para hacer que la imagen siga el movimiento del mouse y el mouse se muestre en el medio de la imagen?

¿Cómo usar vb para hacer que la imagen siga el movimiento del mouse y el mouse se muestre en el medio de la imagen?

Necesita usar API para obtener la posición del mouse.

Opción explícita

Tipo privado POINTAPI

X As Long

Y As Long

Tipo final

p>

Función de declaración privada GetCursorPos Lib "user32" (lpPoint As POINTAPI) siempre

Atenuar OldPOS As POINTAPI 'Guarda la posición anterior del mouse.

La parte anterior se coloca en la declaración del formulario.

Agregue el siguiente código en el evento de carga del formulario:

GetCursorPos OldPOS

Luego agregue el siguiente código en el evento Mousemove del Picturebox (suponiendo que el Picturebox se llame Picturebox1 , el formulario se llama Form1)

Dim A As POINTAPI

GetCursorPos A

If (A.X - OldPOS.Left=A.X-Form1.Left- .5 *Picturebox1.Width

Picturebox1.Top=A.X-Form1.Top-.5*Picturebox1.Height

OldPOS=A

Esto debería funcionar. Hay muchas formas de cargar imágenes en el cuadro de imágenes, Baidu usted mismo (es bastante problemático usar Palm Baidu para responder la pregunta).