2016.12.26 版本号:v1.0.0.4-20161226a 1.将输入文本框输入处理方式改变,更加人性化: 原处理方法:(就是文本框内容变了就复制给滚动条和进行数字大小处理) Private Sub txtPulse_Change() If Val(txtPulse.Text) > 300 Then sldPulse.Value = 300 txtPulse.Text = 300 ElseIf Val(txtPulse.Text) < 100 Then sldPulse.Value = 100 txtPulse.Text = 100 Else sldPulse.Value = Val(txtPulse.Text) End If End Sub 现在用定时器处理. 2.卸载窗体的时候关闭定时器,卸载串口,卸载窗体.