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
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 :-)).