VB.Net：加载后3秒切换PictureBox可见性的实现问题求助

我明白你遇到的困扰了：窗体加载时想让PictureBox1先显示，3秒后切换成PictureBox2可见、PictureBox1隐藏，但直接尝试延迟操作或者调用PictureBox.Refresh()/PictureBox.Update()都没生效。这其实是因为UI线程被阻塞导致的，下面给你两种靠谱的实现方案，顺便解释下为啥之前的方法没用。

为什么之前的操作没效果？ #

在Form_Load事件里如果直接用Thread.Sleep(3000)这类阻塞方法，会把UI线程卡死——此时窗体还没完成初始绘制，就算你调用了Refresh/Update，UI线程也没时间处理这些绘制请求，自然看不到任何变化。

方案1：使用Timer控件（传统且稳定） #

这是最经典的实现方式，不需要额外的异步语法，适合快速上手：

1. 在你的窗体上拖一个Timer控件（默认命名为Timer1）
2. 设置Timer1的Interval属性为3000（代表3000毫秒=3秒），Enabled设为False
3. 编写如下代码：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始状态：显示PictureBox1，隐藏PictureBox2
    PictureBox1.Visible = True
    PictureBox2.Visible = False
    ' 启动Timer，3秒后触发Tick事件
    Timer1.Interval = 3000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 切换两个PictureBox的可见性
    PictureBox1.Visible = False
    PictureBox2.Visible = True
    ' 关闭Timer，避免重复触发
    Timer1.Enabled = False
End Sub

方案2：使用Async/Await（现代无控件方式） #

如果你不想额外加Timer控件，可以用VB.NET的异步语法，通过Task.Delay实现非阻塞延迟，UI线程在等待期间还能正常处理绘制：

Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始状态设置
    PictureBox1.Visible = True
    PictureBox2.Visible = False
    
    ' 等待3秒，Await关键字会让UI线程暂时释放去处理其他任务
    Await Task.Delay(3000)
    
    ' 等待结束后切换可见性
    PictureBox1.Visible = False
    PictureBox2.Visible = True
End Sub

这种方式更简洁，而且不会阻塞UI，体验更好。

内容的提问来源于stack exchange，提问作者1eyewonder