ビジュアルスタジオプログレスバーコントロール：青色

Question

プログレスバーコントロールを使用しています。デフォルトの緑色のコントロールしか使用できません。

Windows 7で見ると、このコントロールに気付いています。下の画像を参照してください。

私はこの記事を見つけた： Windows ProgressBar

私の質問は、青いプログレスバーを標識するVisual Studioの2013年に、このコントロールを使用する方法、ありますか？

おかげ

編集：私は青ではなく、赤、黄、緑のいずれかをしたいと思います。このコントロールは「メーター」と呼ばれます。

Answer 1

申し訳ありませんが、述べたように、そのバリアフリーではないのと同じ方法を経由して行うのとします

Windows Vistaでは、プログレスバーにはさまざまな味がありますが、ほとんどの のプログレスバーは緑のものです。ただし、 赤色と黄色のバージョンもあります（青色のバージョンは と呼ばれますが、アクセスできない）。プログレスバーの色は、 のように特定のプログレスバーの状態に対応しています。これらの状態は、PBM_SETSTATE [0x40F]メッセージを使用して に設定できます。状態はPBST_NORMAL [0x0001]、PBST_ERROR [0x0002]およびPBST_PAUSE [0x0003]です。

しかし、あなたが興味を持っている場合には、以下のものを使用して赤と黄色の色 にアクセスすることが可能である：使用の

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(ByVal ProgressBar_Name As ProgressBar, ByVal ProgressBar_Color As ProgressBarColor) 
    SendMessage(ProgressBar_Name.Handle, &H410, ProgressBar_Color, 0) 
End Sub 

例：[変更（カスタムの

ChangeProgBarColor(Progress_Bar, ProgressBarColor.Red) 

Answer 2

私は色を変更する方法を発見し、ない青... しかし、私はそれが

Public Class Form1 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     MyProgressBar1.pdColor = myProgressBar.ProgressBarColor.red 
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     MyProgressBar1.Increment(1) 
    End Sub 
End Class 

Public Class myProgressBar 
    Inherits ProgressBar 

    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 
    Public Sub New() 
    End Sub 

    Enum ProgressBarColor 
     green = 1 
     red = 2 
     yellow = 3 
    End Enum 

    Private pbColor As ProgressBarColor 
    Public Property pdColor As ProgressBarColor 
     Get 
      Return pbColor 
     End Get 
     Set(value As ProgressBarColor) 
      pbColor = value 
      SendMessage(Me.Handle, 1040, value, 0) 
     End Set 
    End Property 

End Class