Excel用户窗体MouseMove事件实现拖动Label同步修改TextBox值

你需要将Label的Left值范围（6到126）线性映射到0-100的数值区间，直接用lbl1.Left -6得到的是0到120，不符合需求。正确的做法是通过比例计算转换数值，具体修改如下：

修改后的完整VBA代码 #

Dim myX As Double
Dim myY As Double

Private Sub lbl1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    myX = X
    myY = Y
End Sub

Private Sub Lbl1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim sliderMinLeft As Integer
    Dim sliderMaxLeft As Integer
    Dim valueRange As Integer
    
    ' 定义滑块的左右边界
    sliderMinLeft = 6
    sliderMaxLeft = 126
    valueRange = sliderMaxLeft - sliderMinLeft
    
    If Button And 1 Then
        lbl1.Left = lbl1.Left + (X - myX)
    End If
    
    ' 限制Label的移动范围
    If lbl1.Left < sliderMinLeft Then
        lbl1.Left = sliderMinLeft
    ElseIf lbl1.Left > sliderMaxLeft Then
        lbl1.Left = sliderMaxLeft
    End If
    
    ' 计算并更新TextBox的值，映射到0-100区间
    ' 用Int()取整，需要保留小数可直接去掉Int()
    TextBox1.Value = Int((lbl1.Left - sliderMinLeft) / valueRange * 100)
End Sub

关键说明 #

• 先固定滑块的最小/最大Left值（6和126），算出总移动长度为126-6=120
• 通过(当前Left - 最小Left)/总长度 * 100的公式，把Left偏移量转换成0-100的比例值
• 每次拖动完成（包括边界修正后）立即更新TextBox1，确保数值实时同步

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