Programación General > VBA

 Saber Por Donde Pasa El Mouse En Los Objeto

<< < (3/3)

ldvgsmca:

--- Cita de: "Epa" --- Me alegra q halla servido  :D

Aunque avabo de darme cuenta que para el ocx

Esto:

--- Código: Text ---   x = x - Me.Left - 60 y = y - Me.Top - 345  
Lo cambias por esto:


--- Código: Text ---   x = x - Me.Left y = y - Me.Top  
Ya que las restas esas son para los bordes del formulario, los cuales el ocx no tiene.

Saludos
--- Fin de la cita ---
gracias  tu solucion fue efectiva, pero ahora nacesito preguntarte asi como la funcion de la API GetCursorPos, para obtener la posicion del puntero habra una para posicionar.

te lo pregunto porque necesito hacer lo siguiente.


cuando detecte que estoy fuera del picture1 necesito colocar el puntero del mouse dentro del objeto


gracias

Epa:
buenas

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

x = (form.left + picture.left + picture.width / 2) / 15
y = (form.top + picture.left + picture.height / 2) / 15

Llamas a la funcion y te posicionara el mouse en el centro del control.

Saludos

Navegación

[0] Índice de Mensajes

[*] Página Anterior