[VB.Net][SRC]ProgressBar Color

[HF~Legend]

Code:

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, _
       ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Code:

Public Class Form1
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, _
       ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private Sub btnYellow_Click(sender As System.Object, e As System.EventArgs) Handles btnYellow.Click
        SendMessage(ProgressBar1.Handle, &H400 + 16, &H3, 0) 'YELLOW
    End Sub

    Private Sub btnRed_Click(sender As System.Object, e As System.EventArgs) Handles btnRed.Click
        SendMessage(ProgressBar1.Handle, &H400 + 16, &H2, 0) 'RED
    End Sub

    Private Sub btnGreen_Click(sender As System.Object, e As System.EventArgs) Handles btnGreen.Click
        SendMessage(ProgressBar1.Handle, &H400 + 16, &H1, 0) 'GREEN
    End Sub
End Class

Source : unknown

[eiqhtworks]

it's ok, id give it more of a spice up thoufhghg

[AceInfinity]

Why not just send the msg of &H10, instead of &H400 + 16? That's like someone asking you how many hours you put in for work, and instead of saying 40, you say 10 + 10 + 10 + 10.

I would have set it up like this, maybe in a Module too:

Code:

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Enum ProgressBarColor
    Green = &H1
    Red = &H2
    Yellow = &H3
End Enum

Private Shared Sub ChangeProgBarColor(ProgressBar_Name As ProgressBar, ProgressBar_Color As ProgressBarColor)
    SendMessage(ProgressBar_Name.Handle, &H410, ProgressBar_Color, 0)
End Sub

[HF~Legend]

Good idea, but i prefer my source code... I don't know why.

[kpn37z]

that may come in handy, thanks.

[AceInfinity]

Good idea, but i prefer my source code... I don't know why.

You like typing out extra stuff? lol

With my methodology, all you'd have to do is:

Code:

ChangeProgBarColor(ProgressBar1, ProgressBarColor.Red)

[HF~Legend]

You like typing out extra stuff? lol

Exactly, i love that xD
Thanks for your "help" ;)

[★Cooldude★]

This is good, it's just a shame that only three colours are supported.

[HF~Legend]

This is good, it's just a shame that only three colours are supported.

Yes, but you can add all color, as you wish ... I just put three color for example.

[AceInfinity]

Yes, but you can add all color, as you wish ... I just put three color for example.

Uh, nope

Not using this method anyways you can't... You find me another color, then tell me that i'm wrong here.