如何等待FlowLayoutPanel中添加的所有PictureBox重绘完成后再执行操作？

问题原因 #

FlowLayoutPanel默认采用按需绘制策略，仅渲染当前视口内的控件，超出视口的PictureBox不会触发Paint事件，导致直接抓取控件Image时无法获取完整渲染的内容。

解决方案 #

1. 强制使用DrawToBitmap抓取内容

无需依赖控件的可视状态，直接让每个PictureBox将内容绘制到Bitmap中，再转换为base64：

Dim htmlContent As String = ""

For Each ctrl In FlowLayoutPanel1.Controls
    If TypeOf ctrl Is PictureBox Then
        Dim pb As PictureBox = DirectCast(ctrl, PictureBox)
        If pb.Image IsNot Nothing Then
            ' 创建与PictureBox尺寸匹配的Bitmap
            Dim renderBmp As New Bitmap(pb.Width, pb.Height)
            ' 强制绘制控件内容到Bitmap
            pb.DrawToBitmap(renderBmp, New Rectangle(0, 0, pb.Width, pb.Height))
            
            ' 转换为base64并拼接HTML
            Using ms As New MemoryStream()
                renderBmp.Save(ms, Imaging.ImageFormat.Png)
                Dim base64Str As String = Convert.ToBase64String(ms.ToArray())
                htmlContent &= $"<img src=""data:image/png;base64,{base64Str}"" style=""margin:5px;"" />"
            End Using
            
            renderBmp.Dispose()
        End If
    End If
Next

2. 预渲染并保存Bitmap

在添加PictureBox到FlowLayoutPanel时，直接保存图片的Bitmap副本，后续生成HTML时直接使用预存的Bitmap，彻底绕过控件绘制依赖：

' 预存所有图片的Bitmap
Dim imageCache As New List(Of Bitmap)()

' 动态添加PictureBox时同时缓存Bitmap
For Each imgPath As String In YourImagePathList
    Dim pb As New PictureBox()
    pb.Image = Image.FromFile(imgPath)
    pb.Size = New Size(200, 200)
    FlowLayoutPanel1.Controls.Add(pb)
    
    ' 保存Bitmap副本（注意：若图片来自文件，需创建新Bitmap避免文件被锁定）
    imageCache.Add(New Bitmap(pb.Image))
Next

' 生成HTML时直接使用缓存的Bitmap
Dim htmlContent As String = ""
For Each bmp In imageCache
    Using ms As New MemoryStream()
        bmp.Save(ms, Imaging.ImageFormat.Png)
        Dim base64Str As String = Convert.ToBase64String(ms.ToArray())
        htmlContent &= $"<img src=""data:image/png;base64,{base64Str}"" style=""margin:5px;"" />"
    End Using
Next

' 记得用完后清理缓存
For Each bmp In imageCache
    bmp.Dispose()
Next
imageCache.Clear()

3. 强制刷新所有控件并处理消息循环

如果必须依赖控件的渲染状态，可以强制所有控件失效并刷新，同时触发消息循环确保绘制完成：

' 遍历所有控件，强制标记为需要重绘
For Each ctrl In FlowLayoutPanel1.Controls
    ctrl.Invalidate()
    ctrl.Update() ' 立即重绘控件
Next

' 处理所有待处理的Windows消息，确保绘制操作完成
Application.DoEvents()

' 现在可以正常抓取每个PictureBox的Image
Dim htmlContent As String = ""
For Each ctrl In FlowLayoutPanel1.Controls
    If TypeOf ctrl Is PictureBox Then
        Dim pb As PictureBox = DirectCast(ctrl, PictureBox)
        If pb.Image IsNot Nothing Then
            Using ms As New MemoryStream()
                pb.Image.Save(ms, Imaging.ImageFormat.Png)
                Dim base64Str As String = Convert.ToBase64String(ms.ToArray())
                htmlContent &= $"<img src=""data:image/png;base64,{base64Str}"" style=""margin:5px;"" />"
            End Using
        End If
    End If
Next

注意：Application.DoEvents()可能会引入线程安全问题，若你的应用涉及多线程操作，优先使用前两种方法。

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