vb.net 闪屏

【问题标题】：vb.net splashscreenvb.net 闪屏
【发布时间】：2012-08-23 11:09:16
【问题描述】：

我正在使用 VB.Net 创建一个 Windows 窗体应用程序。

我必须在图片框中显示带有 GIF 图像（正在加载）的启动画面。同时对表单执行操作。所以我隐藏了表单并显示了启动画面。

如果我让线程休眠，GIF 图像不会动画。

需要建议来实现上述内容！

【问题讨论】：

为什么要让线程休眠？
我想将启动画面的持续时间设置为一定的时间，比如 5 秒。所以，我让线程休眠，但它也停止了 GIF 图像。需要另一种方法！

标签： vb.net multithreading splash-screen

【解决方案1】：

如果您希望启动画面在固定时间后自动关闭，只需使用计时器即可。

Public Class SplashScreen
    Private WithEvents _timer As New System.Windows.Forms.Timer()

    Private Sub FormVb1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        _timer.Interval = 5000  ' five seconds
        _timer.Enabled = True
    End Sub

    Private Sub _timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles _timer.Tick
        Close()
    End Sub
End Class

【讨论】：

我应该在哪里包含此代码？我有一个 Report.vb 表单（需要在显示启动画面时隐藏）
示例代码显示了启动屏幕表单代码中的代码。但是，您可以轻松地对其进行修改，以便从报告表单中执行相同的操作。