开发笔记:图片框可见性中的动画gif随委托子和后台线程而变化

我有一个主要形式的Telerik RadRibbonBar，其中有许多按钮。其中一些按钮使窗体中的某些面板可见，这些面板填充除RadRibbonBar及其按钮之外的所有主要窗体。

这些面板有一些动态计算的形式，它们需要0到2-3分钟才能打开。因此，我们决定在面板和带有动画gif的PictureBox之间放置一个表单。我的问题是，一旦我用动画gif将新形式设置为.visible = False，我就无法从图片框中获取动画gif。

我在这里放了一些代码，看看是否有人可以帮助我。

Public Sub MICommand1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MICommand1.Click
cargando = True
makevisiblePanel(1)
azkenpanelzenbakia = 1
cargando = False
End Sub
Public Sub MICommand2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MICommand2.Click
cargando = True
makevisiblePanel(2)
azkenpanelzenbakia = 2
cargando = False
End Sub


等等许多其他按钮。现在makevisiblePanel（byval面板为整数）

Private Sub makevisiblePanel(ByVal panel As Integer)
rf.Visible = True
If Not loaded Then
makeeverypanelInvisible()
firstCallPanelInLoad(panel)
rf.Visible = False
Else
makeeverypanelInvisible()
backgroundworkerRA(panel)
End If
End Sub


后台工作程序的定义如下：

Private Sub backgroundworkerRA(ByVal panel As Integer)
Dim t As New Threading.Thread(Sub() selectVisiblePanel(zein))
t.IsBackground = True
t.Start()
End Sub
Private Sub selectVisiblePanel(ByVal zein As Integer)
selectVisiblePanel_threadasko_rf()
Select Case zein
Case 0
selectVisiblePanel_threadasko_P10()
selectVisiblePanel_threadasko_Rp()
Case 1
selectVisiblePanel_threadasko_P1()
selectVisiblePanel_threadasko_Rd1()
'Some lot more cases
End Select
selectVisiblePanel_threadasko_rf_v(False)
Select Case zein
Case 0
selectVisiblePanel_threadasko_P10Front()
Case 1
selectVisiblePanel_threadasko_P1Front()
'Lots more cases
End Select
End Sub


我首先看到面板可见，然后用send.toBack将它们放在表格的背面，然后在让我的面板不可见之后我将它们放回到前面。

像这样每个selectVisiblePanel都有一个Delegate Sub和一个Panel＃number.Visible = True。像这样：

Delegate Sub rfCallBack()
Private Sub selectVisiblePanel_threadasko_rf()
If Me.rf.InvokeRequired Then
Dim d As New rfCallBack(AddressOf selectVisiblePanel_threadasko_rf)
Me.Invoke(d, New Object() {})
Else
Me.rf.WindowState = FormWindowState.Maximized
End If
End Sub
Delegate Sub rf_vCallBack(ByVal vf As Boolean)
Private Sub selectVisiblePanel_threadasko_rf_v(ByVal vf As Boolean)
If Me.rf.InvokeRequired Then
Dim d As New rf_vCallBack(AddressOf selectVisiblePanel_threadasko_rf_v)
Me.Invoke(d, New Object() {vf})
Else
Me.rf.Visible = vf
End If
End Sub
Delegate Sub P1CallBack()
Private Sub selectVisiblePanel_threadasko_P1()
If Me.Panel1.InvokeRequired Then
Dim d As New P1CallBack(AddressOf selectVisiblePanel_threadasko_P1)
Me.Invoke(d, New Object() {})
Else
Me.Panel1.Visible = True
Me.Panel1.SendToBack()
End If
End Sub
Delegate Sub RD1CallBack()
Private Sub selectVisiblePanel_threadasko_Rd1()
If Me.RadDock1.InvokeRequired Then
Dim d As New P1CallBack(AddressOf selectVisiblePanel_threadasko_Rd1)
Me.Invoke(d, New Object() {})
Else
Me.RadDock1.Visible = True
End If
End Sub


我希望在我使用的新表单中可以在PictureBox中看到.gif，但我只是在创建主表单时看到它。当我点击RadribbonBar中的任何一个按钮时，我只看到面板但我没有看到PictureBox。

我在一个简单的应用程序中使用更简单的代码，我用它来进行快速调试。

如果有人能帮助我，我会很高兴。

What I get

What I would like to get