[WIP] Customizable ProgressBar

[NickThissen]

Hey,

[This is still a Work In Progress, so not finished yet!]


I noticed a few requests on how to draw your own ProgressBar, so I decided to make one myself. Instead of simply providing one drawing style and having you edit the control to suit your needs, I decided to make it customizable instead.

The ProgressBarEx control provides you with PaintBackground and PaintProcess events.

The PaintBackground event fires when the background is painted and passes the Graphics and ClipRectangle objects you need to draw the background manually. You could draw a gradient, a picture, a solid color, whatever you like, instead of the default BackColor.

The PaintProcess event fires when the process part of the ProgressBar is painted (the bar that shows how far the progress is). It also provides you with the Graphics object, and the Bounds object that represents the 'process rectangle'. So, you do not need to calculate the size and location of that rectangle manually, it is given to you in this event. You simply need to create your desired brush, and draw it.

Since there is also a Blocks style, like the normal ProgressBar, the PaintProcess event also provides you with a Blocks Rectangle array. Each Rectangle in that array represents one block. You can loop through the blocks and paint each block the same, or you could paint each block with a random color, or you could have a gradient going smoothly from left to right. Again, the rectangles you need for the drawing are all given to you, no calculation required.

For the Blocks style, there are also the BlockWidth and BlockSeparation property, which are straightforward; they set the width and separation of the blocks.

The ProgressBar also shows the relative value (49%) in the middle. You can turn that off with the ShowValue property.

If you don't require or want to do fancy custom drawing, you can simply set the BackColor (for the background) and Color (for the process bar color) properties, and you will have either a continuous, or block, ProgressBar in that color.

I am also working on a Marquee style with animation, and an Orientation property which allows you to have a vertical ProgressBar, but those are not functional yet.


The ProgressBar looks like this by default, in the Continuous style:

Pretty simple. But the custom drawing can now begin!


Here are a few examples on custom drawing the ProgressBar.

Example 1 - A horizontal gradient in a continuous bar.
Using the PaintProcess event and the EventArguments it passes, we can simply draw a gradient on the process bar, leaving the background simply the BackColor.

Private Sub ProgressBarEx1_PaintProcess(ByVal sender As System.Object, ByVal e As ProgressBarEx.ProgressBarEx.ProgressBarProcessPaintEventArgs) Handles ProgressBarEx1.PaintProcess
        Using b As New Drawing2D.LinearGradientBrush(e.Bounds, _
                                                     Color.DarkBlue, _
                                                     Color.LightBlue, _
                                                     Drawing2D.LinearGradientMode.Horizontal)
            e.Graphics.FillRectangle(b, e.Bounds)
        End Using
    End Sub

Result:


That was easy, wasn't it?


Example 2 - Drawing red and blue blocks interchangebly.
Next, we will use the Blocks style and draw the first block red, then blue, red, blue, etc. We use a simple For loop for this, and use the Mod operator to check if the loop iterator is even (i Mod 2 = 0) or odd. If it's even, we draw red, otherwise blue.

Private Sub ProgressBarEx1_PaintProcess(ByVal sender As System.Object, ByVal e As ProgressBarEx.ProgressBarEx.ProgressBarProcessPaintEventArgs) Handles ProgressBarEx1.PaintProcess
        Dim brush As New SolidBrush(Color.Red)
        For i As Integer = 0 To e.Blocks.Length - 1
            If (i Mod 2 = 0) Then  'i is even
                brush = New SolidBrush(Color.Red)
            Else
                brush = New SolidBrush(Color.Blue)
            End If
 
            e.Graphics.FillRectangle(brush, e.Blocks(i))
        Next
        brush.Dispose()
    End Sub

Result:

Ok, not very pretty, but the concept is clear.


Finally, let's try something a bit more complicated
Example 3 - Horizontal gradient with horizontal white accents
Here, I draw a horizontal gradient from red to darkred, across the entire process area, smoothly between each block. I also use a second white gradient to highlight each block separately. Finally, I also draw a black border around each block.

Private Sub ProgressBarEx1_PaintProcess(ByVal sender As System.Object, ByVal e As ProgressBarEx.ProgressBarEx.ProgressBarProcessPaintEventArgs) Handles ProgressBarEx1.PaintProcess
        For Each b As Rectangle In e.Blocks
            Using totalBrush As New Drawing2D.LinearGradientBrush(e.Bounds, _
                                                    Color.Red, _
                                                    Color.DarkRed, _
                                                    Drawing2D.LinearGradientMode.Horizontal)
                e.Graphics.FillRectangle(totalBrush, b)
            End Using
            Using whiteBrush As New Drawing2D.LinearGradientBrush(b, _
                                                                  Color.White, _
                                                                  Color.Transparent, _
                                                                  Drawing2D.LinearGradientMode.Horizontal)
                e.Graphics.FillRectangle(whiteBrush, b)
            End Using
            b = New Rectangle(b.X, b.Y, b.Width, b.Height - 1)
            e.Graphics.DrawRectangle(Pens.Black, b)
        Next
    End Sub

Result:



As you can see, the code is still very easy, but the result is becoming more and more complicated. Since you don't have to worry about calculating the correct width of the rectangles you have to draw, you can concentrate on just drawing them. You could also draw rounded rectangles or circles instead of blocks if you want. You can draw whatever you want!


You can also just use this as an example of how to draw your own ProgressBar.


The code for the ProgressBarEx class is in the next post, as this one got too long!


Good luck!

[NickThissen]

Finally, here is the code of the ProgressBarEx class. Just add a new UserControl, call it ProgressBarEx, and copy/paste this code. Then Build your project, and it should be at the top of your Toolbox.

Public Class ProgressBarEx

#Region " Properties "

    Private _Value As Integer = 0
    Public Property Value() As Integer
        Get
            Return _Value
        End Get
        Set(ByVal value As Integer)
            If value >= Me.MinValue And value <= Me.MaxValue Then
                _Value = value
                Me.Invalidate()
            Else
                Throw New ArgumentOutOfRangeException("The value must be between the minimum and maximum values.")
            End If
        End Set
    End Property

    Private _Step As Integer = 10
    Public Property [Step]() As Integer
        Get
            Return _Step
        End Get
        Set(ByVal value As Integer)
            _Step = value
        End Set
    End Property

    Private _Orientation As ProgressBarOrientation
    Public Property Orientation() As ProgressBarOrientation
        Get
            Return _Orientation
        End Get
        Set(ByVal value As ProgressBarOrientation)
            _Orientation = value
        End Set
    End Property

    Private _MinValue As Integer = 0
    Public Property MinValue() As Integer
        Get
            Return _MinValue
        End Get
        Set(ByVal value As Integer)
            If value < Me.MaxValue Then
                _MinValue = value
            Else
                Throw New ArgumentOutOfRangeException("The minimum value must be less than the maximum value.")
            End If
        End Set
    End Property

    Private _MaxValue As Integer = 100
    Public Property MaxValue() As Integer
        Get
            Return _MaxValue
        End Get
        Set(ByVal value As Integer)
            If value > Me.MinValue Then
                _MaxValue = value
            Else
                Throw New ArgumentOutOfRangeException("The maximum value must be more than the minimum value.")
            End If
        End Set
    End Property

    Private _Color As Color = Color.Lime
    Public Property Color() As Color
        Get
            Return _Color
        End Get
        Set(ByVal value As Color)
            _Color = value
        End Set
    End Property

    Private _ShowValue As Boolean = True
    Public Property ShowValue() As Boolean
        Get
            Return _ShowValue
        End Get
        Set(ByVal value As Boolean)
            _ShowValue = value
        End Set
    End Property

    Private _Style As ProgressBarExStyle
    Public Property Style() As ProgressBarExStyle
        Get
            Return _Style
        End Get
        Set(ByVal value As ProgressBarExStyle)
            _Style = value
        End Set
    End Property

    Private _BlockWidth As Integer = 5
    Public Property BlockWidth() As Integer
        Get
            Return _BlockWidth
        End Get
        Set(ByVal value As Integer)
            _BlockWidth = value
        End Set
    End Property

    Private _BlockSeparation As Integer = 3
    Public Property BlockSeparation() As Integer
        Get
            Return _BlockSeparation
        End Get
        Set(ByVal value As Integer)
            _BlockSeparation = value
        End Set
    End Property

#End Region

#Region " Enums, Variables "

    Public Enum ProgressBarOrientation
        Horizontal = 0
        Vertical = 1
    End Enum

    Public Enum ProgressBarExStyle
        Blocks = 0
        Continuous = 1
        Marquee = 2
    End Enum

#End Region

#Region " Events "

    Public Event PaintBackground(ByVal sender As Object, ByVal e As PaintEventArgs)
    Public Event PaintProcess(ByVal sender As Object, ByVal e As ProgressBarProcessPaintEventArgs)

    Public Class ProgressBarProcessPaintEventArgs
        Inherits EventArgs

        Public Sub New(ByVal bounds As Rectangle, ByVal g As Graphics, Optional ByVal blocks() As Rectangle = Nothing)
            _Bounds = bounds
            _Graphics = g
            If blocks Is Nothing Then
                _Blocks = New Rectangle() {}
            Else
                _Blocks = blocks
            End If
        End Sub

        Private _Bounds As Rectangle
        Public ReadOnly Property Bounds() As Rectangle
            Get
                Return _Bounds
            End Get
        End Property

        Private _Blocks As Rectangle()
        Public ReadOnly Property Blocks() As Rectangle()
            Get
                Return _Blocks
            End Get
        End Property

        Private _Graphics As Graphics
        Public ReadOnly Property Graphics() As Graphics
            Get
                Return _Graphics
            End Get
        End Property

    End Class

#End Region

#Region " Methods "

    Public Sub PerformStep()
        If Me.Step > 0 Then
            Me.Value = Math.Min(Me.Value + Me.Step, Me.MaxValue)
        Else
            Me.Value = Math.Max(Me.Value + Me.Step, Me.MinValue)
        End If
    End Sub

    Public Sub Increment(ByVal value As Integer)
        If value > 0 Then
            Me.Value = Math.Min(Me.Value + value, Me.MaxValue)
        Else
            Me.Value = Math.Max(Me.Value + value, Me.MinValue)
        End If
    End Sub

#End Region

#Region " Process Logic "

    Private Function GetProcessRect() As Rectangle
        Dim w As Integer = Me.Width
        Dim h As Integer = Me.Height
        Dim valRel As Integer = GetRelativeValue()
        Return New Rectangle(0, 0, w * valRel \ 100, h)
    End Function

    Private Function GetBlocks() As Rectangle()
        Dim b As New List(Of Rectangle)

        Dim w As Integer = Me.BlockWidth
        Dim h As Integer = Me.Height
        Dim r As Rectangle

        Dim x As Integer = 0
        Dim stopX As Integer = CInt((GetRelativeValue() / 100) * Me.Width)
        While (x + w <= stopX)
            r = New Rectangle(x, 0, w, h)
            b.Add(r)

            x += Me.BlockWidth + Me.BlockSeparation
        End While

        Return b.ToArray
    End Function

    Private Function GetRelativeValue() As Integer
        Return CInt(100 * Me.Value / (Me.MaxValue - Me.MinValue))
    End Function

#End Region

#Region " Drawing "

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        DoPaintBackground(e.Graphics)
        DoPaintProcess(e.Graphics)
        If Me.ShowValue Then DoPaintValue(e.Graphics)
    End Sub

    Private Sub DoPaintBackground(ByVal g As Graphics)
        RaiseEvent PaintBackground(Me, New PaintEventArgs(g, Me.ClientRectangle))
    End Sub

    Private Sub DoPaintProcess(ByVal g As Graphics)
        Dim rect As Rectangle = GetProcessRect()
        Dim blocks() As Rectangle = GetBlocks()
        Using brush As New SolidBrush(Me.Color)
            If Me.Style = ProgressBarExStyle.Continuous Then
                g.FillRectangle(brush, rect)
            ElseIf Me.Style = ProgressBarExStyle.Blocks Then
                For Each b As Rectangle In blocks
                    g.FillRectangle(brush, b)
                Next
            End If
        End Using

        Dim e As New ProgressBarProcessPaintEventArgs(rect, g, blocks)
        RaiseEvent PaintProcess(Me, e)
    End Sub

    Private Sub DoPaintValue(ByVal g As Graphics)
        Dim valStr As String = GetRelativeValue.ToString & "&#37;"
        Dim sf As New StringFormat()
        sf.Alignment = StringAlignment.Center
        Dim s As SizeF = g.MeasureString(valStr, Me.Font)

        g.DrawString(valStr, Me.Font, New SolidBrush(Me.ForeColor), (Me.Width - s.Width) / 2, (Me.Height - s.Height) / 2)
    End Sub

#End Region

End Class

[Emcrank]

In the ToolBox it says there is no usable controls . How do i get the progressbar?

[NickThissen]

No usable controls? Are you in design view? Do you see all the usual controls? If you do, did you Build your solution after adding the new class?

[Emcrank]

Yes i did

[Emcrank]

I tried it again and it worked

[tassa]

Is there any way to stop the progressbar from flicking? And why does mine have like 1% of the color as the second gradient color? If I choose it to begin the gradient with blue and end it with white, the first percent has a white color, but after that, works like a charm.

Btw, great class Nick!

[NickThissen]

I didn't notice any flickering, but if you do you can try to setting the following ControlStyles, by adding this code:

Public Sub New()
   Me.SetStyles(ControlStyles.AllPaintingInWmPaint, True)
   Me.SetStyles(ControlStyles.ResizeRedraw, True)
   Me.SetStyles(ControlStyles.UserPaint, True)
   Me.SetStyles(ControlStyles.DoubleBuffer, True)
End Sub

There may be a few slight typo's there as I typed this right here in the browser, but you should be able to find the right ones.

For the drawing, what is your code for the drawing? Perhaps the Rectangle you pass to the LinearGradientBrush is wrong.

[tassa]

I changed the paint process to this:

Private Sub DoPaintProcess(ByVal g As Graphics)
        Dim rect As Rectangle = GetProcessRect()
        Dim blocks() As Rectangle = GetBlocks()
        Using b As New Drawing2D.LinearGradientBrush(Me.Bounds, _
                                                     Color.Red, _
                                                     Color.White, _
                                                     Drawing2D.LinearGradientMode.Horizontal)
            g.FillRectangle(b, rect)
        End Using
        Dim e As New ProgressBarProcessPaintEventArgs(rect, g, blocks)
        RaiseEvent PaintProcess(Me, e)
    End Sub

In reference to your code, I don't know what to do with SetStyles, it says: "SetStyles is not a member of ProgressBarEx."

[NickThissen]

First of all, you are supposed to use this control by handling the PaintProcess event, instead of changing the actual UserControl code. Still, I can't see anything wrong with your code so I dunno why it doesn't paint correctly. Can you show me a screenshot of what it does?

Oh and SetStyles is supposed to be SetStyle, sorry.

[tassa]

Hmph, seems like there must be something wrong with my eyes. I tried taking two screen shots, but the flickering isn't visible on the shot. I'll check my code later on.

SetStyle should be in the UserControl code, right?

[NickThissen]

No, I meant a screenshot of where it draws the gradient incorrectly.

Yes, the SetStyle methods must be in the UserControl constructor.

[tassa]

When I typed the code you gave me, the tooltip on the the New() keyword said: 'Public Sub New()' in designer generated type 'App.ProgressBarEx' should call InitializeComponent method. I don't know what to do with that.

[NickThissen]

For the drawing, as I said before, the control is supposed to be used by handling the PaintProcess method and drawing in there. But you can do the drawing in the UserControl code too if you want I suppose. Anyway, you should not use Me.Bounds for the brush rectangle. You should either use 'rect', or Me.ClientRectangle, depending on your need. Using 'rect' will draw the gradient from full red on the left side, to full white on the right side of the progress 'fill', no matter how much the value is. Using ClientRectangle will draw it from full red on the left side, to full white on the right side of the entire progressbar. The difference is hard to explain in words but you'll get the idea if you try both. With ClientRectangle, the gradient is fixed, while with 'rect', the gradient is 'elongated' when the value changes.


For the warning you get, it tells you exactly what you need to do:
The constructor (Public Sub New) should call the InitializeComponent method. So add a call to the InitializeComponent method.

[tassa]

If I use 'rect', it throws this exception Rectangle '{X=0,Y=0,Width=0,Height=20}' cannot have a width or height equal to 0.

For the InitializeComponent sub, should it be like this: (I've never used it, that's why I ask)

Private Sub InitializeComponent()
   Me.SetStyles(ControlStyles.AllPaintingInWmPaint, True)
   Me.SetStyles(ControlStyles.ResizeRedraw, True)
   Me.SetStyles(ControlStyles.UserPaint, True)
   Me.SetStyles(ControlStyles.DoubleBuffer, True)
End Sub

When I type it it gives me this error: Error 1 'Private Sub InitializeComponent()' has multiple definitions with identical signatures.

Thanks a lot for your help .

[NickThissen]

For the Rectangle error, that's odd. I don't get that error even when the rectangle is 0,0,0,48.

For the InitializeComponent, you don't create a method called InitializeComponent, you only need to call it. It already exists, in the hidden Designer code. It is the method that sets up the Form (or in this case UserControl) by adding the controls and setting their properties. In this case, it doesn't do much, but you should still call it in the constructor:

      Public Sub New()
         InitializeComponent()

         Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
         Me.SetStyle(ControlStyles.ResizeRedraw, True)
         Me.SetStyle(ControlStyles.UserPaint, True)
         Me.SetStyle(ControlStyles.DoubleBuffer, True)
      End Sub

Usually, if you just type "Public Sub New" and press enter, VS will autocomplete it to something like this:

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

You just need to add your own code beneath the last comment.


----
This may be a little confusing, so let me explain what actually happens. If you add a new Form to your project, it's code will be blank, right? But, the code you see is not the only code, there is also the Designer code.

If you add a Button to your form, for example, the only reason VS knows how and where to draw your button, and with which properties, is because that information is stored in the Designer file, as you can see if you look closely:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form
 
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(127, 78)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(284, 262)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

Here, you see the InitializeComponent method, doing its job by setting the form and control properties. Now, there is always a so called default constructor, which I believe in this case automatically calls the InitializeComponent method. Otherwise, your controls and form properties would be lost when you run your application, as the InitializeComponent method was never called.

But, once you add your own constructor, by adding the Public Sub New 'method' in the usual code file, the default constructor is no longer used, and there is a risk that the InitializeComponent method is never called!

You can even try that. Add a Public Sub New, and leave out the InitializeComponent call. The result when you run the application will be a completely blank form, default size, no text, etc. The controls are never added!

So, in short, if you create your own constructor in a Form or UserControl, you should always call the InitializeComponent method before you do anything else.

[tassa]

Thanks Nick! . This works perfectly now! And thanks for that explanation!

[formlesstree4]

Got a little problem here when using the progressbar.
I used your example for the gradient (the dark blue to light blue.) but instead of it painting like i thought it would....I get this:


Not really sure what's going on....any help would be great.

I set these in the form load: (also tried without them)

Private Sub solaris_Startup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        Me.SetStyle(ControlStyles.ResizeRedraw, True)
        Me.SetStyle(ControlStyles.UserPaint, True)
        Me.SetStyle(ControlStyles.DoubleBuffer, True)
    End Sub

I'm animating it as a test with a Timer changing it's value every second. (I even disabled it as a test and still got the same weird looking error).

I did temporarily fix it (or so I thought) by declaring it New in the code. It didn't increment. I added InitializeComponent(), which messed with my form a bit but fixed the bar. Still didn't increment. Any suggestions?

[NickThissen]

That cross looks like there was an error or something. Try adding some Try/Catch blocks in your painting events.

Also, setting the style of the form has nothing to do with the style of any controls on that form, so that won't change anything.

I also don't understand much of your last line. Can you elaborate? Show some code?

[formlesstree4]

I incremented like this:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressbarEx1.Value < 100 Then ProgressbarEx1.Increment(1) Else ProgressbarEx1.Value = 0
    End Sub

The timer has an interval of 1000, which is roughly 1 second.

I put the Try/Catch statement in the paint event and got this error:

System.ArgumentException: Rectangle '{X=0,Y=0,Width=0,Height=22}' cannot have a width or height equal to 0.

   at System.Drawing.Drawing2D.LinearGradientBrush..ctor(Rectangle rect, Color color1, Color color2, LinearGradientMode linearGradientMode)

   at RMXP_Pool.solaris_Startup.ProgressBarEx1_PaintProcess(Object sender, ProgressBarProcessPaintEventArgs e) in C:\Users\formlesstree\Documents\Visual Studio 2008\Projects\RMXP Scrive\RMXP Scrive\Skins\Solaris Skin\Forms\solaris_Startup.vb:line 34

Could it be that when the gradient is being painted, that the error is thrown because the width is zero (aka the bar has no value)? Any other time it looks to be OK...
EDIT: added this to the Paint area:

If ProgressbarEx1.Value = 0 Then Exit Sub

No more errors

[NickThissen]

Yeah that must've been it. Not sure why I never saw that error, I'm sure I tested it with value = 0... Oh well.

[Matchlighter]

Not Of my creation, But Notable: http://www.codeproject.com/KB/cpp/VistaProgressBar.aspx

[D4rkDestiny]

I Don't Understand how to use this code..
CAn you Help me?
I put the region ecc, to a new ControlUser, called xxxxxx
But my progress bar don't color..

[NickThissen]

Just add a new UserControl, replace the code with the code in my second post, and build your solution/project. Then the new control should appear in the toolbox and you can drag it to your form.

If you want different colors then the default (green I think) you need to handle the PaintBackground and PaintProcess events, in which you do the drawing yourself. See my examples.

[D4rkDestiny]

Don't Work,,
I Create ControlUser, ProgressBarEx, paste you second Source, and now?

[D4rkDestiny]

O Work Prefeclty
TNK!!!!

[D4rkDestiny]

i have two erro:

Errore 1 Tipo 'ProgressBarEx.ProgressBarEx.ProgressBarProcessPaintEventArgs' non definito. H:\Documents and Settings\Sh0tAll\Impostazioni locali\Dati applicazioni\Temporary Projects\WindowsApplication1\Form1.vb 20 87 WindowsApplication1
Errore 2 Il metodo 'Private Sub ProgressBarEx1_PaintProcess(sender As Object, e As <tipo non riconosciuto>)' non pu&#242; gestire l'evento 'Public Event PaintProcess(sender As Object, e As WindowsApplication1.ProgressBarEx.ProgressBarProcessPaintEventArgs)' perch&#233; non ha una firma compatibile. H:\Documents and Settings\Sh0tAll\Impostazioni locali\Dati applicazioni\Temporary Projects\WindowsApplication1\Form1.vb 20 172 WindowsApplication1

[JuggaloBrotha]

I'm not fluent in your native language, but from what I can gather you have 2 build errors, both are in the control's Paint event, can you post your paint event code?

[D4rkDestiny]

i Have This Code :

Public Class Form1

    Private Sub ProgressBarEx1_PaintProcess(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarEx1.Load

        Using b As New Drawing2D.LinearGradientBrush(e.Bounds, Color.DarkBlue, Color.LightBlue, Drawing2D.LinearGradientMode.Horizontal)e.Graphics.FillRectangle(b, e.Bounds)

        End Using
    End Sub
End Class

Why Give me Vb this 2 Error?:

Errore	1	'Bounds' non è un membro di 'System.EventArgs'.	H:\Documents and Settings\Sh0tAll\Impostazioni locali\Dati applicazioni\Temporary Projects\ProgressX\Form1.vb	5	54	ProgressX
Errore	2	Prevista fine dell'istruzione.	H:\Documents and Settings\Sh0tAll\Impostazioni locali\Dati applicazioni\Temporary Projects\ProgressX\Form1.vb	5	137	ProgressX

[NickThissen]

That method is handling the Load event of the progressbar, not the PaintProcess event. Simply changing the name of the method (which you must have done) to PaintProcess does not make it handle a different event. Instead, you need to change the part after the Handles statement. Or, you could select the control in the designer, view the events list (near the properties list, there's a lightning bolt icon button, click that) and select the appropriate event.

[D4rkDestiny]

1 Second..
Can you Edit my source, and post?

[NickThissen]

How about I explain where you went wrong, so you can fix it yourself?

Event handlers work basically like this:

Private Sub <Method Name>(ByVal sender As Object, ByVal e As <??>EventArgs) Handles <Event>

The last part, <Event>, is the most important. This is what determines which event is handled, not the name of the method. Examples for <Event> are "Button1.Click", "TextBox1.TextChanged", and in your case, "ProgressBarEx1.PaintProcess".
The <Method Name> is just the name of the method and bears no importance. By default, when the event handler code is automatically generated, it is given a name that reflects the event (such as "Button1_Click" or "ProgressBarEx1_PaintProcess", but that is completely arbitrary, you can name the methods whatever you like.

Finally, the <??> part before the EventArgs determine which type of event arguments the event has. For many events, <??> is nothing and e is just of type EventArgs. For a KeyPress event, for example, the e is of type KeyPressEventArgs instead. For my control and its PaintProcess event, the e should be of type ProgressBarProcessPaintEventArgs.


So, where did you go wrong? You probably doubleclicked the control, which automatically inserts the default event handler, which in this case is the Load event (which it is by default, perhaps I should have chosen a different one, but it doesn't really matter). You then probably thought "I don't want the Load event, I want the PaintProcess event", and changed the name of the method, which as I said is irrelevant. You did not change the actual event that the method handled, so it does not work.

To fix, all you need to do is remove the method. Then go back to the designer and let it insert the correct event handler code automatically. You can select the control, then click the lightning bolt icon on the properties list window, which will show the events list. Scroll down until you find the PaintProcess event, and doubleclick it. Then, the correct method will be inserted, with the correct Handles clause, and the correct type of EventArgs (e).

[D4rkDestiny]

CAn you give my you Contact of Messenger?

[NickThissen]

What do you need it for? I can help you right here so that others can benefit from it too.

[D4rkDestiny]

For, help me with Team Viewer, Beacuse Im Itailan, i not Understand very well English!

[NickThissen]

I'm afraid I really don't have time for that.

The correct code you were looking for is:

Private Sub ProgressBarEx1_PaintProcess(ByVal sender As System.Object, ByVal e As ProgressBarProcessPaintEventArgs) Handles ProgressBarEx1.PaintProcess

        Using b As New Drawing2D.LinearGradientBrush(e.Bounds, Color.DarkBlue, Color.LightBlue, Drawing2D.LinearGradientMode.Horizontal)e.Graphics.FillRectangle(b, e.Bounds)

        End Using
    End Sub

[D4rkDestiny]

Dont' Work &#231;_&#231;

Can give me a Complete Proget?

[NickThissen]

Why is it not working? Perhaps you need to replace ProgressBarProcessPaintEventArgs with ProgressBarEx.ProgressBarEx.ProgressBarProcessPaintEventArgs, as in my example in the first post.