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

Question

我有一个主要形式的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