VB实现静态贝塞尔曲线演示转支持拖拽控制点交互版本的咨询

• 第一步：新增模块级状态变量
  在窗体类的通用声明部分新增以下变量，用于记录拖拽相关状态：

' 拖拽状态标记
Dim isDragging As Boolean = False
' 当前拖拽的点编号：1=起点(洋红)、2=控制点1(蓝)、3=控制点2(蓝)、4=终点(洋红)
Dim draggedPointIndex As Integer = 0
' 鼠标点击位置与控制点的偏移量，避免拖拽时控制点出现跳变
Dim offsetX, offsetY As Integer

• 第二步：实现鼠标按下选中控制点逻辑
  给PictureBox添加MouseDown事件，判断当前鼠标点击位置是否落在任意控制点的10px命中范围内（和你绘制的控制点大小一致），命中后激活拖拽状态：

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    ' 只响应鼠标左键点击
    If e.Button <> MouseButtons.Left Then Exit Sub

    ' 依次判断是否命中四个控制点，若只需允许拖拽蓝色控制点，删除点1、点4的判断分支即可
    If Math.Abs(e.X - Point1_X) <= 5 AndAlso Math.Abs(e.Y - Point1_Y) <= 5 Then
        draggedPointIndex = 1
    ElseIf Math.Abs(e.X - Point2_X) <= 5 AndAlso Math.Abs(e.Y - Point2_Y) <= 5 Then
        draggedPointIndex = 2
    ElseIf Math.Abs(e.X - Point3_X) <= 5 AndAlso Math.Abs(e.Y - Point3_Y) <= 5 Then
        draggedPointIndex = 3
    ElseIf Math.Abs(e.X - Point4_X) <= 5 AndAlso Math.Abs(e.Y - Point4_Y) <= 5 Then
        draggedPointIndex = 4
    Else
        ' 未命中任何控制点，不进入拖拽状态
        Exit Sub
    End If

    ' 计算点击位置和控制点的偏移量
    Select Case draggedPointIndex
        Case 1 : offsetX = e.X - Point1_X : offsetY = e.Y - Point1_Y
        Case 2 : offsetX = e.X - Point2_X : offsetY = e.Y - Point2_Y
        Case 3 : offsetX = e.X - Point3_X : offsetY = e.Y - Point3_Y
        Case 4 : offsetX = e.X - Point4_X : offsetY = e.Y - Point4_Y
    End Select
    isDragging = True
End Sub

• 第三步：实现鼠标移动拖拽更新逻辑
  给PictureBox添加MouseMove事件，拖拽状态下实时更新控制点坐标、同步文本框数值、重绘曲线：

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    If Not isDragging Then Exit Sub

    ' 计算新坐标，限制在PictureBox范围内避免拖出可视区
    Dim newX = e.X - offsetX
    If newX < 0 Then newX = 0
    If newX > PictureBox1.Width - 1 Then newX = PictureBox1.Width - 1
    Dim newY = e.Y - offsetY
    If newY < 0 Then newY = 0
    If newY > PictureBox1.Height - 1 Then newY = PictureBox1.Height - 1

    ' 更新对应点的坐标和文本框显示
    Select Case draggedPointIndex
        Case 1
            Point1_X = newX
            Point1_Y = newY
            tbPoint1_X.Text = newX.ToString()
            tbPoint1_Y.Text = newY.ToString()
        Case 2
            Point2_X = newX
            Point2_Y = newY
            tbPoint2_X.Text = newX.ToString()
            tbPoint2_Y.Text = newY.ToString()
        Case 3
            Point3_X = newX
            Point3_Y = newY
            tbPoint3_X.Text = newX.ToString()
            tbPoint3_Y.Text = newY.ToString()
        Case 4
            Point4_X = newX
            Point4_Y = newY
            tbPoint4_X.Text = newX.ToString()
            tbPoint4_Y.Text = newY.ToString()
    End Select

    ' 实时重绘曲线
    PictureBox1.Invalidate()
End Sub

• 第四步：实现鼠标释放结束拖拽逻辑
  给PictureBox添加MouseUp事件，结束拖拽状态：

Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
    isDragging = False
    draggedPointIndex = 0
End Sub

原界面效果参考：

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