VB.NET WinForm中如何实现base挡板仅随鼠标水平左右移动

原来的代码存在两个直接导致异常的问题：

• 坐标体系不匹配：直接取全局的MousePosition（屏幕绝对坐标）赋值给控件的Location属性，但控件的位置定义是相对于父容器（这里是窗体客户区）的局部坐标，没做坐标转换必然会出现位置偏移、无法跟鼠标正确对齐的问题。
• 未做轴向约束：把鼠标的X、Y坐标全量赋值给控件位置，自然会跟着鼠标上下任意移动，完全不符合挡板仅能水平移动的设计要求。

只需要做两处核心调整就能实现预期效果：

1. 抛弃鼠标返回的Y坐标，用固定值给挡板的垂直位置赋值，从根上锁死上下移动的可能
2. 直接用事件参数中自带的、已经转换好的窗体局部坐标，不需要手动做坐标换算

调整后的基础代码如下：

' 把这个常量值替换成你在设计器里给挡板设的固定垂直位置
Const BASE_FIXED_Y As Integer = 350

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    ' 仅取鼠标在窗体坐标系下的X值，Y轴用固定值
    base.Location = New Point(e.X, BASE_FIXED_Y)
End Sub

实际跑起来可以加几个细节优化，避免出现边界溢出、操作错位的问题：

• 限制移动范围，防止挡板飞出可视区域：

  Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
      ' 计算挡板能停留的最大X位置，保证整个挡板不超出窗体右边界
      Dim maxAllowedX As Integer = Me.ClientSize.Width - base.Width
      ' 把X值钳制在0~maxAllowedX的范围内，避免移出边界
      Dim clampedX As Integer = Math.Max(0, Math.Min(e.X, maxAllowedX))
      base.Location = New Point(clampedX, BASE_FIXED_Y)
  End Sub
  

• 调整对齐逻辑，让操作更自然：如果希望挡板的中心对准鼠标位置，而不是挡板左上角贴住鼠标，可以把钳制后的X值减去挡板宽度的一半，操作时不会出现鼠标指着挡板边缘的别扭感。

内容的提问来源于stack exchange，提问作者sam-hobbs