VB中可拖动重叠图像的绘制闪烁问题及解决方案咨询

方案1：使用自定义双缓冲控件替代Form直接绘制 #

直接在Form上绘制容易受Form本身的控件布局、消息循环影响，自定义一个支持双缓冲的控件作为画布会更稳定：

Public Class DrawingCanvas
    Inherits Control

    Public Sub New()
        ' 开启双缓冲必备设置
        Me.SetStyle(ControlStyles.UserPaint Or _
                    ControlStyles.AllPaintingInWmPaint Or _
                    ControlStyles.OptimizedDoubleBuffer, True)
        Me.UpdateStyles()
    End Sub

    ' 存储所有要绘制的图像及其位置
    Public ImageItems As New List(Of ImageItem)

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        ' 清空画布（如需背景可替换为绘制背景图逻辑）
        e.Graphics.Clear(Me.BackColor)
        ' 按顺序绘制图像，实现重叠效果
        For Each item In ImageItems
            e.Graphics.DrawImage(item.Image, item.Position)
        Next
    End Sub

    ' 定义图像项类，存储图像对象与位置信息
    Public Class ImageItem
        Public Property Image As Image
        Public Property Position As Point
    End Class
End Class

使用示例：
将自定义控件拖到Form上，加载图像时添加到集合并触发局部刷新：

' 加载并添加图像
Dim imgItem As New DrawingCanvas.ImageItem()
imgItem.Image = Image.FromFile("test.png")
imgItem.Position = New Point(100, 100)
DrawingCanvas1.ImageItems.Add(imgItem)
DrawingCanvas1.Invalidate()

拖动逻辑实现：

Private draggingItem As DrawingCanvas.ImageItem = Nothing
Private offset As Point

Private Sub DrawingCanvas1_MouseDown(sender As Object, e As MouseEventArgs) Handles DrawingCanvas1.MouseDown
    ' 从后往前遍历，确保选中最上层的图像
    For i = DrawingCanvas1.ImageItems.Count - 1 To 0 Step -1
        Dim item = DrawingCanvas1.ImageItems(i)
        Dim imgRect As New Rectangle(item.Position, item.Image.Size)
        If imgRect.Contains(e.Location) Then
            draggingItem = item
            ' 计算鼠标与图像左上角的偏移量
            offset = New Point(e.X - item.Position.X, e.Y - item.Position.Y)
            ' 将拖动的图像移至最上层
            DrawingCanvas1.ImageItems.Remove(item)
            DrawingCanvas1.ImageItems.Add(item)
            Exit For
        End If
    Next
End Sub

Private Sub DrawingCanvas1_MouseMove(sender As Object, e As MouseEventArgs) Handles DrawingCanvas1.MouseMove
    If draggingItem IsNot Nothing AndAlso e.Button = MouseButtons.Left Then
        ' 记录旧位置区域
        Dim oldRect As New Rectangle(draggingItem.Position, draggingItem.Image.Size)
        ' 更新图像位置
        draggingItem.Position = New Point(e.X - offset.X, e.Y - offset.Y)
        ' 记录新位置区域
        Dim newRect As New Rectangle(draggingItem.Position, draggingItem.Image.Size)
        ' 只刷新新旧位置的合并区域
        DrawingCanvas1.Invalidate(Rectangle.Union(oldRect, newRect))
    End If
End Sub

Private Sub DrawingCanvas1_MouseUp(sender As Object, e As MouseEventArgs) Handles DrawingCanvas1.MouseUp
    draggingItem = Nothing
End Sub

方案2：优化Form的双缓冲与重绘逻辑（针对你之前的尝试） #

如果坚持用Form作为画布，需修正以下问题：

1. 双缓冲设置要放在Form构造函数中，确保初始化时生效：

Public Sub New()
    InitializeComponent()
    ' 开启Form双缓冲
    Me.SetStyle(ControlStyles.UserPaint Or _
                ControlStyles.AllPaintingInWmPaint Or _
                ControlStyles.OptimizedDoubleBuffer, True)
    Me.UpdateStyles()
    Me.DoubleBuffered = True
End Sub

2. 绝对避免调用Me.Refresh()，改用局部区域刷新：
   拖动时记录图像的旧位置与新位置，合并两个区域后仅刷新该范围：

' 假设你用currentPos存储图像位置，imgSize存储图像尺寸
Dim oldRect As New Rectangle(currentPos, imgSize)
currentPos = New Point(e.X - offset.X, e.Y - offset.Y)
Dim newRect As New Rectangle(currentPos, imgSize)
Me.Invalidate(Rectangle.Union(oldRect, newRect))

你之前方法无效的原因 #

• 双缓冲设置时机错误：运行时设置可能因控件已初始化而不生效；
• 全量刷新导致闪烁：Me.Refresh()会强制重绘整个Form，这是闪烁的核心诱因；
• Form子控件干扰重绘：你用来辅助拖动的小PictureBox会打断Form的绘制流程，自定义控件能隔离这类干扰。

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