Autor Tema: Saber Por Donde Pasa El Mouse En Los Objeto (Leído 3660 veces)

ldvgsmca · « **en:** Lunes 5 de Febrero de 2007, 21:46 »

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 = &#34;dentrol del frame&#34;
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = &#34;dentro del picture&#34;
End Sub
 

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

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 If
End Sub
 
Public Function verifica() As Boolean
If Text1.Text &#60;&#62; &#34;&#34; And Text2.Text &#60;&#62; &#34;&#34; And Text3.Text &#60;&#62; &#34;&#34; Then
    verifica = True
    txtgeneral.Text = &#34;&#34;
Else
    txtgeneral.Text = &#34;Uno de los campos esta vacio&#34;
End If
End 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 .....

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 (

)

Saludos

ElNapster

Pero creo que el mouse move .. podria calificar para eso .. o me equivoco ? cual es el link de ese post ? sera que me lo podes indicar que no se como buscarlo.. intente la busqueda pero me muestra unos que nada que ver con eso que pusiste ....

Epa

Buenas.

Crea un proyecto con 1 form y 1 modulo

en el form agrega un picturebox y un timer. dejale los nombres genericos, al timer ponle el intervalo que quieras.

Luego agrega el siguiente codigo en el modulo:

Código: Text

 
Public Declare Function GetCursorPos Lib &#34;user32&#34; (lpPoint As POINTAPI) As Long
 
Public Type POINTAPI
        x As Long
        y As Long
End Type
 
Public Function isOver(ByRef x As Integer, ByRef y As Integer) As Boolean
  
  Dim a As Long
  Dim coo As POINTAPI
  
  a = GetCursorPos(coo)
  
  x = coo.x * Screen.TwipsPerPixelX
  y = coo.y * Screen.TwipsPerPixelY
  
  isOver = a
  
End Function

y en el formulario el siguiente:

Código: Text

 
Private Sub Timer1_Timer()
  Dim x As Integer, y As Integer
  Dim RetVal As Boolean
 
 
  RetVal = isOver(x, y)
 
  If RetVal = False Then
    MsgBox &#34;Error&#34;, , &#34;+ Error +&#34;
    Exit Sub
  End If
 
  x = x - Me.Left - 60
  y = y - Me.Top - 345
  
  x = x - Picture1.Left
  y = y - Picture1.Top
  
  If (x &#60; 0) Or (x &#62; Picture1.Width) Or (y &#60; 0) Or (y &#62; Picture1.Height) Then
    Picture1.BackColor = RGB(255, 0, 0)
  Else
    Picture1.BackColor = RGB(0, 0, 255)
  End If
  
End Sub
 
 

Ejecuta la aplicacion y mueve el mouse sobre el picturebox. Wala

No era tan complicado, ahora solo tienes que adaptarlo a tu aplicacion, en el evento mousemove del control activas el timer, luego una vez que salio lo desactivas, para ahorrar un poco de memoria.

Saludos

Este es
http://foros.solocodigo.com/index.php?showtopic=26834

ldvgsmca

Cita de: "Epa"

Buenas.

Crea un proyecto con 1 form y 1 modulo

en el form agrega un picturebox y un timer. dejale los nombres genericos, al timer ponle el intervalo que quieras.

Luego agrega el siguiente codigo en el modulo:

Código: Text

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
   x As Long
   y As Long
End Type

Public Function isOver(ByRef x As Integer, ByRef y As Integer) As Boolean

  Dim a As Long
  Dim coo As POINTAPI

  a = GetCursorPos(coo)

  x = coo.x * Screen.TwipsPerPixelX
  y = coo.y * Screen.TwipsPerPixelY

  isOver = a

End Function

y en el formulario el siguiente:

Código: Text

Private Sub Timer1_Timer()
  Dim x As Integer, y As Integer
  Dim RetVal As Boolean

  RetVal = isOver(x, y)

  If RetVal = False Then
   MsgBox "Error", , "+ Error +"
   Exit Sub
  End If

  x = x - Me.Left - 60
  y = y - Me.Top - 345

  x = x - Picture1.Left
  y = y - Picture1.Top

  If (x < 0) Or (x > Picture1.Width) Or (y < 0) Or (y > Picture1.Height) Then
   Picture1.BackColor = RGB(255, 0, 0)
  Else
   Picture1.BackColor = RGB(0, 0, 255)
  End If

End Sub

Ejecuta la aplicacion y mueve el mouse sobre el picturebox. Wala

No era tan complicado, ahora solo tienes que adaptarlo a tu aplicacion, en el evento mousemove del control activas el timer, luego una vez que salio lo desactivas, para ahorrar un poco de memoria.

Saludos

Este es
http://foros.solocodigo.com/index.php?showtopic=26834

realmente esto es lo que necesito, muy sabio tu codigo.....

gracias por tu ayuda

saludos

ldvgsmca

Cita de: "ldvgsmca"

Cita de: "Epa"
Buenas.

Crea un proyecto con 1 form y 1 modulo

en el form agrega un picturebox y un timer. dejale los nombres genericos, al timer ponle el intervalo que quieras.

Luego agrega el siguiente codigo en el modulo:

Código: Text

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
   x As Long
   y As Long
End Type

Public Function isOver(ByRef x As Integer, ByRef y As Integer) As Boolean

  Dim a As Long
  Dim coo As POINTAPI

  a = GetCursorPos(coo)

  x = coo.x * Screen.TwipsPerPixelX
  y = coo.y * Screen.TwipsPerPixelY

  isOver = a

End Function

y en el formulario el siguiente:

Código: Text

Private Sub Timer1_Timer()
  Dim x As Integer, y As Integer
  Dim RetVal As Boolean

  RetVal = isOver(x, y)

  If RetVal = False Then
   MsgBox "Error", , "+ Error +"
   Exit Sub
  End If

  x = x - Me.Left - 60
  y = y - Me.Top - 345

  x = x - Picture1.Left
  y = y - Picture1.Top

  If (x < 0) Or (x > Picture1.Width) Or (y < 0) Or (y > Picture1.Height) Then
   Picture1.BackColor = RGB(255, 0, 0)
  Else
   Picture1.BackColor = RGB(0, 0, 255)
  End If

End Sub

Ejecuta la aplicacion y mueve el mouse sobre el picturebox. Wala

No era tan complicado, ahora solo tienes que adaptarlo a tu aplicacion, en el evento mousemove del control activas el timer, luego una vez que salio lo desactivas, para ahorrar un poco de memoria.

Saludos

Este es
http://foros.solocodigo.com/index.php?showtopic=26834
realmente esto es lo que necesito, muy sabio tu codigo.....

gracias por tu ayuda

saludos

saludos y gracias a la vez, realmente esta es la solucion y te felicito por el analisis de tu codigo y dejame decirte que eso es lo que necesita tambien para lo de mi OCX.

Gracias

Epa

Me alegra q halla servido

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

ldvgsmca

Cita de: "Epa"

Me alegra q halla servido

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

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

SoloCodigo

Autor Tema: Saber Por Donde Pasa El Mouse En Los Objeto (Leído 3660 veces)

ldvgsmca

Saber Por Donde Pasa El Mouse En Los Objeto

ElNapster

Re: Saber Por Donde Pasa El Mouse En Los Objeto

ldvgsmca

Re: Saber Por Donde Pasa El Mouse En Los Objeto

ElNapster

Re: Saber Por Donde Pasa El Mouse En Los Objeto

Epa

Re: Saber Por Donde Pasa El Mouse En Los Objeto

ElNapster

Re: Saber Por Donde Pasa El Mouse En Los Objeto

Epa

Re: Saber Por Donde Pasa El Mouse En Los Objeto

ldvgsmca

Re: Saber Por Donde Pasa El Mouse En Los Objeto

ldvgsmca

Re: Saber Por Donde Pasa El Mouse En Los Objeto

Epa

Re: Saber Por Donde Pasa El Mouse En Los Objeto

ldvgsmca

Re: Saber Por Donde Pasa El Mouse En Los Objeto

Epa

Re: Saber Por Donde Pasa El Mouse En Los Objeto