ProgressBar

Question

Bom dia !

Por gentileza pode me informar se possivel , como posso mudar a cor do ProgressBar 

Estou usando o visualStudio 2013      visual basic 

Obrigado 

Edson Mazoni

[e-mail] 

Answer 1

Olá Edson,

 alterar a cor do progress bar não ! O que pode ser feito é criar um User Control e fazer seu proprio metodo de troca de cores veja um projeto :

 Progress Bar alterar cor !

Answer 2

Existem algumas maneira para trocar a cor da progressBar,

Um modo é criar seu próprio progressBar como mostra o código abaixo:

public class NewProgressBar : ProgressBar
{
    public NewProgressBar()
    {
        this.SetStyle(ControlStyles.UserPaint, true);
    }

    protected override void OnPaint(PaintEventArgs e)
    {
        Rectangle rec = e.ClipRectangle;

        rec.Width = (int)(rec.Width * ((double)Value / Maximum)) - 4;
        if(ProgressBarRenderer.IsSupported)
           ProgressBarRenderer.DrawHorizontalBar(e.Graphics, e.ClipRectangle);
        rec.Height = rec.Height - 4;
        e.Graphics.FillRectangle(Brushes.Red, 2, 2, rec.Width, rec.Height);
    }
}

neste link tem mais detalhes : 

http://stackoverflow.com/questions/778678/how-to-change-the-color-of-progressbar-in-c-sharp-net-3-5

---

Gilson Joanelo - Desenvolvedor Web

Answer 3

Bom dia Edson,

Tente fazer das maneiras abaixo.

http://www.devmedia.com.br/dicas-como-alterar-as-cores-do-progressbar/1123

http://guilhermeferrera.wordpress.com/2011/08/29/c-change-progressbar-color/

Abs.

---

Dicas de programação em .net, C# e SQL - http://smcode.com.br/blog.aspx

Answer 4

Public Class "Seu Formulario"
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 'Aqui uso a ProgressBar no formulario de abertura
    Private Sub "Seu Formulario"_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SendMessage(ProgressBar1.Handle, 1040, 2, 0)
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(7)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If

        'Aqui seria para alterar as cores conforme o carregamento da ProgressBar

        'If ProgressBar1.Value <= 50 Then
        '    SendMessage(ProgressBar1.Handle, 1040, 2, 0) 'ProgressBar Vermelha
        'End If

        'If ProgressBar1.Value >= 51 Then
        '    SendMessage(ProgressBar1.Handle, 1040, 3, 0) 'ProgressBar Amarela
        'End If

        'If ProgressBar1.Value >= 80 Then
        '    SendMessage(ProgressBar1.Handle, 1040, 1, 0)'ProgressBar Verde
        'End If

    End Sub
End Class