动画按钮运动

Question

我试图在VB.Net的Windows窗体上动画两个按钮的运动。窗体从主窗体中加载ShowDialog（）。我有以下代码：

Private Sub MoveButtons(sender As Object, e As EventArgs) Handles picLogo.Click 
    Dim SLoc As Point = btnSearch.Location 
    Dim CLoc As Point = btnCancel.Location 

    txtSearch.Enabled = False 
    txtSearch.Visible = False 
    btnSearch.Text = "Add" 

    For idx As Integer = 1 To 36 
     SLoc.Y -= 1 
     btnSearch.Location = SLoc 
     CLoc.Y -= 1 
     btnCancel.Location = CLoc 
     Thread.Sleep(5) 
    Next 
End Sub 

我最初的代码它使用Top财产，但结果是一样的。取消按钮按预期向上滑动，但搜索/添加按钮从下往上消失，然后跳到正确的位置。不管我是否更改按钮文本，都会发生这种情况。除了明显的Location和Text属性之外，两个按钮是相同的，但取消按钮的DialogResult设置为DialogResult.Cancel。

Answer 1

你是不是给UI任何时间来正确进行自我更新。尽管Thread.Sleep(5)对您的循环时间至关重要，但它也将UI线程置于睡眠状态。你不想这样做。

因此，一个简单但不知情的修复方法是将Application.DoEvents()放入循环中。这将允许UI自行更新。这应该使你的代码工作...

... 
Application.DoEvents() 
Thread.Sleep(5) 

但如果这种类型的东西做的话，你会发现你的UI减慢。它会给应用程序带来不好的感觉。你永远不想让UI线程进入睡眠状态。

你应该做的是从UI中取出所有非UI的东西。你可以创建一个线程并把它放在那里。但是，在线程内部，您需要将任何UI调用回Invoke。以下是我

Private Sub MoveButtons(sender As Object, e As EventArgs) Handles picLogo.Click 
    txtSearch.Enabled = False 
    txtSearch.Visible = False 
    btnSearch.Text = "Add" 
    Dim moveThread As New System.Threading.Thread(AddressOf moveButtonsSub) 
    moveThread.Start() 
End Sub 

Private Sub moveButtonsSub() 
    Dim SLoc As Point = btnSearch.Location 
    Dim CLoc As Point = btnCancel.Location 
    For idx As Integer = 1 To 36 
     SLoc.Y -= 1 
     CLoc.Y -= 1 
     Me.Invoke(
      Sub() 
       btnSearch.Location = SLoc 
       btnCancel.Location = CLoc 
      End Sub) 
     Thread.Sleep(5) 
    Next 
End Sub