解决图片刷新闪烁可使能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