vb.net - 带有 ToolStripContainer 的 VB 2010 计时器

Question

我目前正在制作一个简单的程序。但是，我使用 for 循环直到增加 ToolStripContainer 的高度作为滑块。如何通过定时器控制来控制滑动速度？

 Do Until ToolStripContainer1.Height = 210
            ToolStripContainer1.Height = ToolStripContainer1.Height + 10
            cmdCalc.Text = "Change"
 Loop

谢谢

Answer 1

您可以尝试使用 Sleep() 方法

查看更多睡眠方法

一个简单的例子：

Do Until ToolStripContainer1.Height = 210
        ToolStripContainer1.Height = ToolStripContainer1.Height + 10
        cmdCalc.Text = "Change"
        Thread.Sleep(1000)
End Loop

Answer 2

一个带计时器的

        Dim t As New System.Windows.Forms.Timer
        AddHandler t.Tick, Sub(sender As Object, e As EventArgs)
              ToolStripContainer1.Height = ToolStripContainer1.Height + 10
              if ToolStripContainer1.Height = 210 then 
                cmdCalc.Text = "Change"                               
                DirectCast(sender, Timer).Dispose()
              end if
           End Sub
        t.Interval = 250
        t.Start()

创建一个计时器，为滴答添加一个处理程序，设置间隔（毫秒）并启动它。当高度为 210 时，它将文本设置为“更改”（也许您更早需要这个）并处理计时器。