VB.NET如何实现Timer逐渐减速直至停止，达成转盘式随机选择效果

• 原有的间隔调整逻辑未生效：你编写的Interval计算代码没有把结果赋值回Timer的Interval属性，且判断逻辑断层，无法实现逐步增大间隔的减速效果
• 缺少减速状态判断：Timer的Tick事件中没有对应停止按钮的减速触发逻辑，点击停止后不会改变滚动速度
• 停止阈值逻辑错误：原有代码用btnRandom.Enabled作为停止判断条件，和你需要的「点击停止后逐步减速停止」的逻辑不匹配

1. 声明全局控制变量 #

先在窗体类的全局位置（所有方法外部）添加如下变量：

' 减速步长：每次Timer触发时增加的间隔毫秒数，数值越大减速速度越快
Dim slowDownStep As Integer = 50
' 停止阈值：Timer间隔达到该值时直接停止滚动
Dim stopThreshold As Integer = 1500

2. 补充停止按钮点击逻辑 #

添加btnStop.Click事件处理程序：

Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
    btnStop.Enabled = False
End Sub

3. 替换Timer2_Tick代码 #

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    ' 执行随机选择逻辑
    Dim randomIndex As Integer = CInt(Rnd() * (lstList1.Items.Count - 1))
    txtNameLabel.Text = lstList1.Items(randomIndex)
    lstList1.SelectedItem = txtNameLabel.Text

    ' 判断是否已点击停止按钮，进入减速阶段
    If btnStop.Enabled = False Then
        Timer2.Interval += slowDownStep
        ' 达到阈值后停止Timer，恢复按钮状态
        If Timer2.Interval >= stopThreshold Then
            Timer2.Stop()
            txtName.Enabled = True
            btnRandom.Enabled = True
            btnAdd.Enabled = True
            btnRemove.Enabled = True
            btnAdd.ForeColor = Color.Black
            btnRemove.ForeColor = Color.Black
            btnRandom.ForeColor = Color.Black
        End If
    End If
End Sub

你可以根据需求修改参数调整滚动效果：

• 初始滚动速度：在btnRandom.Click的Timer2.Start()前加一行Timer2.Interval = 10，数值越小初始滚动速度越快
• 减速快慢：调整slowDownStep数值，数值越大减速越快，滚动总时长越短
• 停止总时长：调整stopThreshold数值，数值越大减速停止的总时长越长

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