Position Form Using Mouse Coordinates

[icecrew]

hi guyz,
when the user clicks a label on a form, i wish to load a new form and position the new form such that the new form's top-left hand corner is at the mouse's coordinates.

i know how to use GetCursorPos to get the mouse coordinates but after that i'm lost.

thanks for your help guyz...

[nemaroller]

Form2.Left = returnedMousePositionX
Form2.Top = returnedMousePositionY

API usually returns in pixels, VB defaults to twips...

So you may have to:

Form2.Left = Screen.TwipsPerPixelX * returnedMousePositionX
Form2.Top = Screen.TwipsPerPIxelY * returnedMousePositionY

where returnedMousePositionX , Y are the mouse coordinates...

[macai]

This will explain it a little more clearly than nemaroller.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Sub Command1_Click()
 Dim NewFrm1 As New Form1 '<- copy the current form
 Dim CursorPos As POINTAPI '<- the form pos will be here
 
 GetCursorPos CursorPos '<- Sets CursorPos
 
 CursorPos.y = CursorPos.y * Screen.TwipsPerPixelY
 CursorPos.x = CursorPos.x * Screen.TwipsPerPixelX
 '^         converts pixels to twips             ^
 
 NewFrm1.Top = CursorPos.y '<- Sets NewFrm1's top pos
 NewFrm1.Left = CursorPos.x '<- Sets NewFrm1's left pos
 
 NewFrm1.Show '<- Displays your new form!
End Sub

[nemaroller]

Christ Macai, how'd you know what I was going to post?

[macai]

Originally posted by nemaroller
Christ Macai, how'd you know what I was going to post?

It becomes common knowledge amongst VBers... im just faster
than you.

[icecrew]

hehehehe ...
thanks guyz ... i do some fairly advanced database programming, sometimes i even crossover from VB to Linux DBs .. yet the small stuff like this often eludes me!



thanks again...

[macai]

Im good at alot of stuff. But im weird with DBs! I wrote my own
DB format, but i just cant get the hang on Access or SQL!!