vb.net – 在运行sub时显示动画gif

>使用BackgroundWorker(下面的示例)
>如果可以,请使用不确定的进度条,但这取决于所使用的技术.

BG工作者的例子：

Private wrkDeploy As New BackgroundWorker()

Private Sub wndMain_Loaded(ByVal sender As Object,ByVal e As RoutedEventArgs)
? ? AddHandler wrkDeploy.DoWork,AddressOf wrk_DoWork
? ? AddHandler wrkDeploy.RunWorkerCompleted,AddressOf wrk_RunWorkerCompleted
End Sub

Private Sub wrk_RunWorkerCompleted(ByVal sender As Object,ByVal e As RunWorkerCompletedEventArgs)
? ? ' Hide Gif and start normal UI process again
End Sub

Private Sub wrk_DoWork(ByVal sender As Object,ByVal e As DoWorkEventArgs)
? ? ' Do all heavy work here
End Sub

Private Sub btnFilter_Click(ByVal sender As Object,ByVal e As RoutedEventArgs)
? ? ' Show GIF and disable whatever you need to
? ? wrkDeploy.RunWorkerAsync()
End Sub