Programación General > VBA

 Saber Por Donde Pasa El Mouse En Los Objeto

(1/3) > >>

ldvgsmca:
Saludos a todos.


Como hago para saber cuando el mouse sale de un objeto que esta sobre otro objeto, es decir

Tengo un frm dentro de el tengo un picture y dentro del picture tengo un frame
todos estos objeto estan centrados y cada uno mas pequeno que otro.

La pregunta como hago para saber cuando el puntero del mouse esta fuera del frame o cuando esta fuera del picture


Gracias

ElNapster:
No se si esto lo que quieres pero intenta haber que sale...


--- Código: Text ---Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "dentrol del frame"End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "dentro del picture"End Sub 
 :comp:

ldvgsmca:

--- Cita de: "elnapster" --- No se si esto lo que quieres pero intenta haber que sale...


--- Código: Text ---Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "dentrol del frame"End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "dentro del picture"End Sub 
 :comp:
--- Fin de la cita ---
realmento no es lo que quiero.

lo que quiero es saber cuando el mouse sale del objeto frame por decir cualquier cosa.

mi problema es que tengo un picture_a dentro de otro picture_b.

el obj picture_a tiene a su vez varios obj, como textbox, etc, lo que quiero es controlar que el usuario no le de click a otro obj que este fuera del picture_a para que termine de llenar los campos del picture_a si logro sabe cuando el mouse esta fuera del picture_a puedo mandar una alerte de mensaje al usuario


gracias

ElNapster:
Bueno si asi (bueno es es lo que creo) prueba hacer una funcion que verique los campos que son necesarios para poder pasar al otro  Picture_b, mandas a llamar a tu funcion desde el evento  mouse move del picture

Si es asi que es lo que medio entendi prueba hacer esto:




--- Código: Text ---Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)  If Not verifica Then        Picture_b.SetFocus: Text1.SetFocus           End IfEnd Sub Public Function verifica() As BooleanIf Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then    verifica = True    txtgeneral.Text = ""Else    txtgeneral.Text = "Uno de los campos esta vacio"End IfEnd Function 
Claro que yo solo tengo dentro de un picture_a un commandButton
en el Picture_b 3 textbox
y un textbox general que esta en la forma general el cual me avisa lo del error , vos tenes que ponerle sus repectivos mensajes con sus respectiso setfocus en los objetos de cada uno de los pictures......

Espero que sea asi .....
 :comp:

Epa:
Buenas.

Como cre q me hice entender en el post anterior, no existe un evento que ocurra al salir el mouse de un objeto en VB ( :blink: )

Saludos

Navegación

[0] Índice de Mensajes

[#] Página Siguiente