在启动画面vb.net中使用动画gif

时间:2014-05-09 15:15:21

标签: vb.net visual-studio animation

我在我已创建的visual studio 2013项目中创建.gif动画时遇到了麻烦。

在网上找了一些适当的"适当的"这样做的方式。在这个MSDN问题之后:Link我复制了一些代码以了解它是如何工作的。我也看到了使用计时器的参考。

 Public Not Inheritable Class SplashScreen

 Private progressGifPath As String = "C:\Documents\Visual Studio 2013\Projects\CameraFinder\icons" + "\orangeLoading.gif"
Private _AnimatedGif As New Bitmap(progressGifPath)

Private m_IsAnimating As Boolean
Public Property IsAnimating() As Boolean
    Get
        Return m_IsAnimating
    End Get
    Set(ByVal value As Boolean)
        m_IsAnimating = value
    End Set
End Property


Private Sub VICameraFinderLoading_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'Set up the dialog text at runtime according to the application's assembly information.  


    If My.Application.Info.Title <> "" Then

    Else

      End If


End Sub


Private Sub PlayGIF()
    If Not m_IsAnimating Then
         ImageAnimator.Animate(_AnimatedGif, New EventHandler(AddressOf    Me.OnFrameChanged))
        m_IsAnimating = True
    End If
End Sub

Private Sub OnFrameChanged(ByVal o As Object, ByVal e As EventArgs)
    If m_IsAnimating Then
        ImageAnimator.UpdateFrames()
        Dim aGraphics As Graphics = PictureBox.CreateGraphics
        aGraphics.DrawImage(_AnimatedGif, New Point(30, 30))
        aGraphics.Dispose()
    End If
End Sub


End Class

所以我尝试了这个,但我在图片框上看不到任何东西(我确认看到它被带到了前面)。显然,包含的gif可能有一个大小限制。关于什么是包含它的更好方法的任何想法?

谢谢!

1 个答案:

答案 0 :(得分:0)

想出来。我没有将图片框的图像设置为gif。

编辑:

澄清一下,上面的代码根本不是问题。我实际上并不需要它。我完全从启动画面类中删除了它。解决方案是进入我的图片框的属性(F4)并将backgroundImage设置为.gif的文件路径(从而将其作为嵌入式资源导入)。这样做可以在启动画面中进行动画制作。