표시 대화 상자 형태로 외부 자르지 않고

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