getting screen coordinates for positioning a floating control next to a tableLayOutPanel embeded con

microsoft.public.dotnet.languages.vb

13 Jun 2006 6:34 AM

steve

Hi All

I have textboxes within a TableLayoutpanel and I want to be able to position
an independant control adjacent to a selected textbox

This independent control allows selection of text to insert into the textbox

I am having trouble achieving this, see code below, the x position is too
far to the right and the y position is close to the bottom of the textbox
and I want it to be side by side.

I am obviously not understanding the coordinate system properly

Regards
Steve
Private Sub txtbox_Mousedown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs)

'common sub for any textbox clicked

Dim mypoint As New Point

Panel1.Visible = True

Panel1.BringToFront()

mypoint.X = sender.pointtoscreen(sender.location).x + sender.width

mypoint.Y = sender.pointtoscreen(sender.location).y

Panel1.Location = mypoint

end sub

13 Jun 2006 11:57 AM

Walter Wang [MSFT]

Hi Steve,

Thank you for your post.

The coordinate system for a Windows Form is based on device coordinates,
and the basic unit of measure when drawing in Windows Forms is the device
unit (typically, the pixel). Points on the screen are described by x- and
y-coordinate pairs, with the x-coordinates increasing to the right and the
y-coordinates increasing from top to bottom. The location of the origin,
relative to the screen, will vary depending on whether you are specifying
screen or client coordinates.

A Windows Forms application specifies the position of points in a form or
control using client coordinates. The origin for client coordinates is the
upper-left corner of the client area of the control or form. Client
coordinates ensure that an application can use consistent coordinate values
while drawing in a form or control, regardless of the position of the form
or control on the screen.

In your code, since the Panel1 and the TextBox have different parent
container, the coordinates of them are not exchangable, we must convert
them to screen coordinates first before we can add or compare.

I've written following commented code to achieve the objective in your post:

Private Sub txtbox_Mousedown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs)

    Panel1.Visible = True
    Panel1.BringToFront()

    Dim txt As TextBox = CType(sender, TextBox) ' it's recommended to cast
the sender to TextBox first
    Dim p as Point = txt.Parent.PointToScreen(txt.Location) ' since the
txt.Location is a client coordinate in its parent, we should call
txt.Parent.PointToScreen, not txt.PointToScreen
    p.X = p.X + txt.Width
    Panel1.Location = Panel1.Parent.PointToClient(p)    ' again, since the
Panel1.Location is a client coordinate in its parent, we should call
Panel1.Parent.PointToClient() to convert a screen coordinate back to a
client coordinate

end sub

Hope this helps. Please feel free to post here if anything is unclear.

Regards,
Walter Wang
Microsoft Online Community Support

==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================

This posting is provided "AS IS" with no warranties, and confers no rights.

13 Jun 2006 9:14 PM

steve

Hi Walter

Thanks for the great reply

Worked a treat

Regards
Steve

Show quoteHide quote

"Walter Wang [MSFT]" <waw***@online.microsoft.com> wrote in message
news:0IESkCujGHA.764@TK2MSFTNGXA01.phx.gbl...
> Hi Steve,
>
> Thank you for your post.
>
> The coordinate system for a Windows Form is based on device coordinates,
> and the basic unit of measure when drawing in Windows Forms is the device
> unit (typically, the pixel). Points on the screen are described by x- and
> y-coordinate pairs, with the x-coordinates increasing to the right and the
> y-coordinates increasing from top to bottom. The location of the origin,
> relative to the screen, will vary depending on whether you are specifying
> screen or client coordinates.
>
> A Windows Forms application specifies the position of points in a form or
> control using client coordinates. The origin for client coordinates is the
> upper-left corner of the client area of the control or form. Client
> coordinates ensure that an application can use consistent coordinate
> values
> while drawing in a form or control, regardless of the position of the form
> or control on the screen.
>
> In your code, since the Panel1 and the TextBox have different parent
> container, the coordinates of them are not exchangable, we must convert
> them to screen coordinates first before we can add or compare.
>
> I've written following commented code to achieve the objective in your
> post:
>
>
> Private Sub txtbox_Mousedown(ByVal sender As Object, ByVal e As
> System.Windows.Forms.MouseEventArgs)
>
>    Panel1.Visible = True
>    Panel1.BringToFront()
>
>    Dim txt As TextBox = CType(sender, TextBox) ' it's recommended to cast
> the sender to TextBox first
>    Dim p as Point = txt.Parent.PointToScreen(txt.Location) ' since the
> txt.Location is a client coordinate in its parent, we should call
> txt.Parent.PointToScreen, not txt.PointToScreen
>    p.X = p.X + txt.Width
>    Panel1.Location = Panel1.Parent.PointToClient(p)    ' again, since the
> Panel1.Location is a client coordinate in its parent, we should call
> Panel1.Parent.PointToClient() to convert a screen coordinate back to a
> client coordinate
>
> end sub
>
>
> Hope this helps. Please feel free to post here if anything is unclear.
>
> Regards,
> Walter Wang
> Microsoft Online Community Support
>
> ==================================================
> When responding to posts, please "Reply to Group" via your newsreader so
> that others may learn and benefit from your issue.
> ==================================================
>
> This posting is provided "AS IS" with no warranties, and confers no
> rights.
>

14 Jun 2006 12:19 AM

Walter Wang [MSFT]

Hi Steve,

Appreciate your update and response. I am glad to hear that the problem has
been fixed. If you have any other questions or concerns, please do not
hesitate to contact us. It is always our pleasure to be of assistance.

Have a nice day!

Regards,
Walter Wang
Microsoft Online Community Support

==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================

This posting is provided "AS IS" with no warranties, and confers no rights.