¿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?
Opción explícita
Tipo privado POINTAPI
X As Long
Y As Long
Tipo final p>
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).