VB.NET：如何在鼠标位置定位对话框？获取真实鼠标位置

问题原因 #

e.Location是相对于被点击的列头单元格的局部坐标，并非屏幕或父窗体的全局坐标，直接赋值给Form的Location属性会导致对话框位置偏移。

解决方案 #

以下两种方法都可以获取准确的鼠标位置，实现对话框的正确定位：

方法1：基于事件参数的精确坐标转换

通过将单元格内的局部坐标，转换为屏幕全局坐标：

Private Sub filterclm(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV.ColumnHeaderMouseClick
    Using filter As New FormFilter
        ' 获取列头单元格相对于DataGridView的位置
        Dim cellRect As Rectangle = DGV.GetCellDisplayRectangle(e.ColumnIndex, -1, True)
        ' 计算鼠标点击位置相对于DataGridView的坐标
        Dim dgvRelativePos As New Point(cellRect.X + e.Location.X, cellRect.Y + e.Location.Y)
        ' 转换为屏幕全局坐标
        Dim screenPos As Point = DGV.PointToScreen(dgvRelativePos)
        
        ' 设置对话框位置为鼠标点击的屏幕坐标
        filter.Location = screenPos
        ' 可选：让对话框中心对齐鼠标
        ' filter.Location = New Point(screenPos.X - filter.Width \ 2, screenPos.Y - filter.Height \ 2)
        
        If filter.ShowDialog(Me) = DialogResult.OK Then
            ' 处理确认后的业务逻辑
        End If
    End Using
End Sub

• GetCellDisplayRectangle(e.ColumnIndex, -1, True)：获取列头行（行索引为-1）对应单元格的显示区域，其Location是相对于DataGridView的坐标。
• PointToScreen：将控件内部的相对坐标转换为屏幕全局坐标，与Form的Location属性（屏幕坐标）匹配。

方法2：直接获取鼠标屏幕坐标

使用Control.MousePosition直接获取当前鼠标的屏幕坐标，代码更简洁：

Private Sub filterclm(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV.ColumnHeaderMouseClick
    Using filter As New FormFilter
        ' 直接使用鼠标的屏幕坐标设置对话框位置
        filter.Location = Control.MousePosition
        ' 可选：让对话框中心对齐鼠标
        ' filter.Location = New Point(Control.MousePosition.X - filter.Width \ 2, Control.MousePosition.Y - filter.Height \ 2)
        
        If filter.ShowDialog(Me) = DialogResult.OK Then
            ' 处理确认后的业务逻辑
        End If
    End Using
End Sub

• 这种方法在点击事件触发时，与方法1的结果几乎一致；若需严格对应点击瞬间的位置，优先选择方法1。

内容的提问来源于stack exchange，提问作者user17611369