DesarrolloVB : Mensaje: RE: [VB] Evento Move

Juan Carlos, no sé si es muy técnica, pero lo probé y me funcionó.

Si declaras dos variables públicas como Integer y le asignas el valor de Top y Left en el Form Load

Después con un control Timer en un intervalo chico, preguntas si Top y Left son distintas de los valores de tus variables.

Acá viene lo más desprolijo, llamo al evento del timer desde los eventos más comunes (mouse up, key press)

Te paso más o menos cómo me quedó

Public XD As Integer
Public YD As Integer

Private Sub Timer1_Timer()
Timer1.Interval = 1
If Form1.Left <> XD Then
    XD = Form1.Left
    MsgBox "Se movio"
    Exit Sub
End If
If Form1.Top <> YD Then
    MsgBox "Se movió"
    YD = Form1.Top
    Exit Sub
End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Timer1_Timer
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Call Timer1_Timer
End Sub

Espero que no sea muy desprolijo y te sirva

Un abrazo

Jorge

-----Mensaje original-----
De: Juan Carlos Reyes Ramírez [mailto:jcarloscitsa@...]
Enviado el: Miércoles, 03 de Noviembre de 2004 03:39
Para: DesarrolloVB@...; visualbasic-esp@yahoogroups.com
Asunto: [VB] Evento Move

Saludos a tod@s:

El presente es para solicitar su apoyo, mi pregunta es la siguiente:

¿Existe algún método que me permita saber si un formulario se mueve, o de qué forma puedo saber si un formulario fue desplazado de lugar?

Desde ya muchas gracias por su atención y colaboración.

J Carlos Reyes

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Consejos

¿Sabías que...?

Mensajes