フォーム外でクリッピングを行わないダイアログを表示

Question

外部のダイアログボックスをクリッピングしないで、マウスポイントでダイアログを表示するにはどうすればよいですか？

たとえば、画面の右端付近にあるコントロールを右クリックすると、ダイアログが左側に表示され、コントロールが画面の下にある場合は、ダイアログの上にカーソルが表示されます。

これは私のコードです：

If e.Button = MouseButtons.Right Then 
     Dim tool = New Form2 With { 
      .Location = New Point(Cursor.Position.X, Cursor.Position.Y), 
      .WhoSend = sender 'some property 
     } 
     tool.ShowDialog() 
End If 

これは常にダイアログがウィンドウの外にクリッピングされている場合でも、カーソルの右下にダイアログが表示されます。

Answer 1

My.Computer.Screen.Boundsを使用すると、画面の領域を取得し、それに応じて場所を設定し、フォームの位置を変更できます。

If e.Button = MouseButtons.Right Then 
    Dim ScreenBounds = My.Computer.Screen.Bounds 

    Dim tool = New Form2 With { 
     .Location = New Point(if(Cursor.Position.X + .Width > ScreenBounds.Width,ScreenBounds.Width - .Width ,Cursor.Position.X), 
          if(Cursor.Position.Y + .Height > ScreenBounds.Width,ScreenBounds.Height - .Height ,Cursor.Position.Y), 
     .WhoSend = sender 'some property 
    } 
    tool.ShowDialog() 
End If