Solved

How to stop excess flickering implementing gradient shading on a form?

Posted on 2011-09-11
3
371 Views
Last Modified: 2012-05-12
Hello,

I have implemented gradient shading on the forms in my program using a method I have found on a number of sites:

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

        If My.Settings.Gradient_Shading = False Then Exit Sub

        Dim formGraphics As Graphics = e.Graphics

        Dim gradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(0, Height), My.Settings.GradientColor_1, My.Settings.GradientColor_2)

        formGraphics.FillRectangle(gradientBrush, ClientRectangle)

    End Sub


This worked, but I found that in order to have the same shading on pages within a tab control on that form, I had to implement the following code:


Private Sub tbpOptimizer_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
          Handles tbpOptimizer.Paint

        Dim rect As New System.Drawing.Rectangle(0, 0, sender.Width, sender.Height)

        Dim g As Graphics = e.Graphics

        Dim gradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(0, sender.Height), My.Settings.GradientColor_1, My.Settings.GradientColor_2)

        g.FillRectangle(gradientBrush, rect)

    End Sub


This does work, but at times, the form flickers for a few seconds before the painting is done.  In trying to figure out what is happening, I found that the Paint event for the tab above fired about 80 times when that tab was selected!  I assume that is the cause of the flickering, because other tabs on the same Tab Control have their Paint event fired fewer times, and they flicker less.  But why would a tab page have to fire so many times?  And, more importantly, is there a better way for me to implement gradient shading onto my program screens?  

Thank you in advance.

Vijay
0
Comment
Question by:vdurbal
3 Comments
 
LVL 15

Expert Comment

by:x77
ID: 36521318
You can optimize using Double Buffer, but I think this in´nt the problem. If you do it, your remove Flicker but hide an inner problem.

I suggest a :

   Debug.Print "Paint " & Sender.ToString

at end of syour tbpOptimizer_Paint method.
I think you are painting twice.
By sample on Form.OnPaint and event suscription for Paint event.

Note. You wrote "sender.Width". You do´nt use "Option Strict". It saves a lot of code errors.
Take it at Project Properties on compiler Tab.
For new Project you can change Tools - Options - Project and Solutions - Default values for Vb (option Strict= ON).
I know that Option Strict demands more code (Ctype, Directcast ...), but it is the best option.
0
 
LVL 40

Accepted Solution

by:
Jacques Bourgeois (James Burger) earned 500 total points
ID: 36523469
First of all, take x77 advice about Option Strict. This is the best thing you can offer yourself in this Visual Basic world. The little pain of having to cast more often is nothing to the hours of debugging it can save you.

Second, since you are handling the background, I would put the code in OnPaintBackground instead of OnPaint.

But, this would not solve your problem. The problem comes from the fact that OnPaint and Paint are called for every control that gets drawn on the container. The more controls you have on the container, the more flickering you get. You need to have something that draws very fast, otherwise you get the flickering.

DoubleBuffering helps a little, but not much.

I have tried dozens of ways to prevent that, but since its controlled at the framework level, there is nothing to do. No matter what method you use to delay the call to the painting events, as soon as you enable them, its as if a Refresh is sent to all the controls on the TabControl, and this falls through the TabControl that repaints itself for each of its child.

I am not even sure that there is a solution. The TabControl is one of the few controls that cannot have transparency, so I think that even the guys at Microsoft were not able to solve it.

This one is the worst problem I had in 40 years of programming. In my case, the background is a textured bitmap, so it is even slower than with a gradient. If somebody could come up with a solution, I would give him all the points I have accumulated in the last month (symbollically only, since this is not possible :-)).
0
 

Author Closing Comment

by:vdurbal
ID: 36537546
Thanks for your help.  At least I won't spend more time trying to fix this!
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

For those of you who don't follow the news, or just happen to live under rocks, Microsoft Research released a beta SDK (http://www.microsoft.com/en-us/download/details.aspx?id=27876) for the Xbox 360 Kinect. If you don't know what a Kinect is (http:…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now