Positioning form: Location() and PointToScreen() question

[Colin McGuire]

Thanks everyone for help in my previous post. Using the
"Point.op_Addit ion" from the previous post I have to now focus on the
real problem.

I need to manually position a new form so that its upper left hand
corner is positioned exactly in the middle of the button that was
pressed (Button1).

I can't seem to get the knack of Location() and PointToScreen() to
position the new form here. According to the help, location() is to do
with coordinates of the container and PointToScreen() for the screen
but I can't link them together properly.
Thank you again
Colin
Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Dim b As Button = CType(sender, Button)
Dim f As New Form
f.StartPosition = FormStartPositi on.Manual
f.FormBorderSty le = FormBorderStyle .None
f.Location = Point.op_Additi on(b.PointToScr een(b.Location) , _
New Size(b.Width \ 2, b.Height \ 2))
f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
f.Show()
End Sub

[Jay B. Harlow [MVP - Outlook]]

Colin,

f.Location = Point.op_Additi on(b.PointToScr een(b.Location) , _
New Size(b.Width \ 2, b.Height \ 2))
b.Location is relative to the owning form, b.PointToScreen is attempting to
adjust the point relative to the button itself, not relative to the owing
form.

Try:
f.Location = Point.op_Additi on(Me.PointToSc reen(b.Location ), _
New Size(b.Width \ 2, b.Height \ 2))

Which will adjust the location of the button (relative to the form)
relative to the screen.

Hope this helps
Jay

"Colin McGuire" <co***********@ lycos.co.uk> wrote in message
news:ab******** *************** ***@posting.goo gle.com... Thanks everyone for help in my previous post. Using the
"Point.op_Addit ion" from the previous post I have to now focus on the
real problem.

I need to manually position a new form so that its upper left hand
corner is positioned exactly in the middle of the button that was
pressed (Button1).

I can't seem to get the knack of Location() and PointToScreen() to
position the new form here. According to the help, location() is to do
with coordinates of the container and PointToScreen() for the screen
but I can't link them together properly.
Thank you again
Colin
Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Dim b As Button = CType(sender, Button)
Dim f As New Form
f.StartPosition = FormStartPositi on.Manual
f.FormBorderSty le = FormBorderStyle .None
f.Location = Point.op_Additi on(b.PointToScr een(b.Location) , _
New Size(b.Width \ 2, b.Height \ 2))
f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
f.Show()
End Sub