解決圖檔重新整理閃爍可使能DoubleBuffering
将以下代碼插入
Public Sub EnableDoubleBuffering()
' Set the value of the double-buffering style bits to true.
Me.SetStyle(ControlStyles.DoubleBuffer _
Or ControlStyles.UserPaint _
Or ControlStyles.AllPaintingInWmPaint,
True)
Me.UpdateStyles()
End Sub
并調用
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
EnableDoubleBuffering()
End Sub
Microsoft官方執行個體
進入網址選擇右上角VB
