Question

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

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

谢谢你

Answer 1

您可以尝试使用Sleep（）方法

查看更多Sleep Method

一个简单的例子：

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()

创建一个计时器，为tick添加一个处理程序，设置间隔（ms）并启动它。当高度为210时，它将文本设置为“更改”（可能您需要更早）并处理计时器。

带有ToolStripContainer的VB 2010 Timer

2 个答案: