我需要一种避免面板闪烁的方法，我在这里和全世界各地向专家提出了许多类似的问题，尝试了许多技巧，例如扩展面板、创建参数、控制样式等，浪费了很多时间，学习了无用的东西...我已经陷入了数月的困境。
...所有这些技巧都没有达到预期效果，我发现的最好的“减少闪烁”的方法是“Createparams”重写子程序，但是该方法会使任何窗体/应用程序的操作变慢20倍，如果这意味着失去应用程序性能的话，我不想失去闪烁（至少不想以CreateParams相同的负面性能为代价）。
在这个视频中，您可以看到我的测试表单，其中有一个50%透明的面板，在其中有一些设置为“缩放”层的背景图像的图片框，当我向上或向下滚动时，会出现很多闪烁。 http://www.youtube.com/watch?v=zIBDTMjrDd4&feature=youtu.be 我使用了“CreateParams”方法，如果不使用“CreateParams”，你将看不到我的面板闪烁的情况，真的很可怕。
这是没有闪烁的面板:
而这是面板出现闪烁的时候：
这是完整的类：
...所有这些技巧都没有达到预期效果，我发现的最好的“减少闪烁”的方法是“Createparams”重写子程序，但是该方法会使任何窗体/应用程序的操作变慢20倍，如果这意味着失去应用程序性能的话，我不想失去闪烁（至少不想以CreateParams相同的负面性能为代价）。
在这个视频中，您可以看到我的测试表单，其中有一个50%透明的面板，在其中有一些设置为“缩放”层的背景图像的图片框，当我向上或向下滚动时，会出现很多闪烁。 http://www.youtube.com/watch?v=zIBDTMjrDd4&feature=youtu.be 我使用了“CreateParams”方法，如果不使用“CreateParams”，你将看不到我的面板闪烁的情况，真的很可怕。
这是没有闪烁的面板:
而这是面板出现闪烁的时候：
这是完整的类：It is a Windows Form proyect
VS2012
Framework 3.5
On Windows 7 x64
Application Visual Styles is ON
Double Buffer is ON
Panel and pictureboxes are default controls
我想不需要说，我已经尝试了所有可能的视觉和环境配置，人们告诉我永远忘记闪烁问题。
Public Class Form1
Dim Scroll_Position As Int32 = 0
Dim Button_Down_Is_Pressed As Boolean = False
Dim Button_Up_Is_Pressed As Boolean = False
Dim WithEvents Progressive_Scroll_Timer As New Timer
Dim SmallChange As Int32 = 5
Dim Largechange As Int32 = 10
' Sub which reduces the Flickering, but this sub makes x20 times slower any operation of any Form/Application.
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = cp.ExStyle Or &H2000000
Return cp
End Get
End Property 'CreateParams
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Me.BackColor = Color.FromArgb(255, 0, 0, 0)
' Me.TransparencyKey = Color.FromArgb(255, 0, 0, 0)
Panel1.VerticalScroll.Maximum = 999999999
Progressive_Scroll_Timer.Interval = 50
Panel1.BackColor = Color.FromArgb(150, 0, 0, 0)
End Sub
Private Sub Panel_MouseHover(sender As Object, e As EventArgs) Handles Panel1.MouseHover
sender.focus()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Progressive_Scroll_Timer.Tick
If Button_Down_Is_Pressed Then
Scroll_Down(SmallChange)
ElseIf Button_Up_Is_Pressed Then
Scroll_Up(SmallChange)
Else
sender.stop()
End If
End Sub
Private Sub Scroll_Up(ByVal Change As Int32)
Scroll_Position -= Change
Panel1.SuspendLayout()
Try : Panel1.VerticalScroll.Value = Scroll_Position : Catch : Scroll_Position += Change : End Try
Panel1.ResumeLayout()
End Sub
Private Sub Scroll_Down(ByVal Change As Int32)
Scroll_Position += Change
Try : Panel1.VerticalScroll.Value = Scroll_Position : Catch : Scroll_Position -= Change : End Try
End Sub
Private Sub Button_Down_MouseDown(sender As Object, e As MouseEventArgs) Handles Button2.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Button_Down_Is_Pressed = True
Progressive_Scroll_Timer.Start()
End If
End Sub
Private Sub Button_Up_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Button_Up_Is_Pressed = True
Progressive_Scroll_Timer.Start()
End If
End Sub
Private Sub Button_Down_MouseUp(sender As Object, e As MouseEventArgs) Handles Button2.MouseUp
Button_Down_Is_Pressed = False
End Sub
Private Sub Button_Up_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
Button_Up_Is_Pressed = False
End Sub
Private Sub Form_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Panel1.MouseWheel
If Panel1.Focused Then
Select Case Math.Sign(e.Delta)
Case Is > 0 : Scroll_Up(Largechange)
Case Is < 0 : Scroll_Down(Largechange)
End Select
End If
End Sub
End Class