Screen.GetWorkingArea and PointToScreen problem with dual screen

[NickThissen]

Hi,

I have a button btnRegEx that when pressed shows a ContextMenuStrip, similar to the '>' button in the Find/Replace dialog in Visual Studio when you are using Regular Expressions.

I have a ContextMenuStrip cms which I show using its Show(x,y) method.

At first I was simply setting x and y (the location of the ContextMenuStrip) to some point next to the button, but I noticed that when the button is close to the edge of the screen it goes off screen. I wanted to prevent that so I built some logic into the x-y calculation.
When the ContextMenuStrip width is larger than the 'remaining space left' I simply show it more to the left. Same for its Height of course.

I am using the Screen.GetWorkingArea(point) method to determine the 'remaining space left'. As I understand it, it returns the working area closest to the point you specify (to which I pass the button's location).

As long as I stay on my first monitor, it is all working perfectly fine. The problem occurs when I move the form to my second monitor. The contextmenustrip is still showing on the first monitor for some reason...

Here is the code I am using:

Private Sub btnRegEx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegEx.Click
        Dim p As Point = PointToScreen(New Point(btnRegEx.Left, btnRegEx.Top))
        Dim x, y As Integer
 
        Dim openWidth As Integer = Screen.GetWorkingArea(p).Width - p.X
        If cms.Width > openWidth Then
            x = Screen.GetWorkingArea(p).Width - cms.Width
        Else
            x = p.X + btnRegEx.Width + 2
        End If
        Dim openHeight As Integer = Screen.GetWorkingArea(p).Height - p.Y
        If cms.Height > openHeight Then
            y = Screen.GetWorkingArea(p).Height - cms.Height
        Else
            y = p.Y + btnRegEx.Height + 2
        End If
 
        cms.Show(x, y)
    End Sub

I have noticed that when I click the button when the form is on the second monitor, the buttons location (p) is calculated with the first monitor's top-left corner as (0,0), even though it is on the second monitor.
This way, the GetWorkingArea function returns something like 1280, while the buttons x-location is something like 1700...

So, how do I get the buttons coordinate relative to the actual screen it is on, rather than the entire dual monitor screens as a whole?

[MaximilianMayrhofer]

How do you have your multi-monitor set up? Extended desktop?

[Negative0]

I think you could use something like this to find the relative height/width:

        Dim p As Point = PointToScreen(Button1.Location)


        For i = 0 To Screen.AllScreens.Count - 1
            If p.X > Screen.AllScreens(i).Bounds.Width Then
                p.X -= Screen.AllScreens(i).Bounds.Width
            End If
            If p.Y > Screen.AllScreens(i).Bounds.Height Then
                p.Y -= Screen.AllScreens(i).Bounds.Height
            End If
        Next

[NickThissen]

How do you have your multi-monitor set up? Extended desktop?

Does that matter? At the moment I have it in extended desktop, but the users of my application might have it in any configuration they like, and obviously the problem should not occur in any of them.

I think you could use something like this to find the relative height/width:

        Dim p As Point = PointToScreen(Button1.Location)


        For i = 0 To Screen.AllScreens.Count - 1
            If p.X > Screen.AllScreens(i).Bounds.Width Then
                p.X -= Screen.AllScreens(i).Bounds.Width
            End If
            If p.Y > Screen.AllScreens(i).Bounds.Height Then
                p.Y -= Screen.AllScreens(i).Bounds.Height
            End If
        Next

I'll try it later, thanks.