Posicion del Curso

parboli · #1 (**permalink**) 21/07/2008, 19:41

Como están ?? Miren necesito cargar un pequeño formulario exactamente donde esta posicionado el cursor del mouse. Alguien sabe como hacerlo. Gracias de antemano por la ayuda.

parboli · #2 (**permalink**) 22/07/2008, 07:22

ayuda por favor

Jhonnyf · #3 (**permalink**) 22/07/2008, 07:52

posicion del mouse dentro de tu software? o en la pantalla?

parboli · #4 (**permalink**) 22/07/2008, 09:57

dentro mi programa

Jhonnyf · #5 (**permalink**) 22/07/2008, 10:31

pense que habia una funcion para saber las coordenas del mouse en la aplicacion, en lopuedes hacer usando API de esta manera

Código:

Private Type POINTAPI
     X As Long
     Y As Long
 End Type

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


Dim Mouse As POINTAPI

Private Sub AbrirFrm(Formulario As Form)
    Call GetCursorPos(Mouse)
   Formulario.Show
   Formulario.Left = Mouse.X * 15 'por defecto la escala es TWIP, asi que lo multiplicamos por 15 para obtener Pixels
   Formulario.Top = Mouse.Y * 15
End Sub


'Lo  llamas asi
'AbrirFrm NombreFormulario

parboli · #6 (**permalink**) 22/07/2008, 12:54

Gracias Jhonnyf lo probaré y lo comento

parboli · #7 (**permalink**) 24/07/2008, 07:35

Funcionó excelente Jhonnyf muchas gracias