グラデーション表示可能なコンポーネントが公開されていましたので、
ご紹介しておきますね。まずコンポーネントExControlsLibをダウンロードしてください。
【ソースコード】例
Public Class Form1
Private Sub ExButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExButton1.Click
Me.ExProgressBar1.Value += 10
End Sub
Private Sub ExButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExButton2.Click
Me.ExProgressBar2.Value += 10
End Sub
Private Sub ExButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExButton3.Click
Me.ExProgressBar3.Value += 10
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'=========================================
'グラデーション（プロパティ設定）
'=========================================
Me.ExProgressBar1.BackColorEx = Color.Beige
Me.ExProgressBar1.FillBorderColorEx = Color.White
Me.ExProgressBar1.FillColorEx = Color.Black
Me.ExProgressBar1.FillGradientColorEx = Color.Blue
Me.ExProgressBar1.FillGradientStyleEx = PowerPacks.FillGradientStyle.Horizontal
Me.ExProgressBar1.FillStyleEx = PowerPacks.FillStyle.Solid
'=========================================
'シマシマ（プロパティ設定）
'=========================================
Me.ExProgressBar2.BackColorEx = Color.Gray
Me.ExProgressBar2.FillBorderColorEx = Color.White
Me.ExProgressBar2.FillColorEx = Color.Red
Me.ExProgressBar2.FillGradientColorEx = Color.Blue
Me.ExProgressBar2.FillGradientStyleEx = PowerPacks.FillGradientStyle.Horizontal
Me.ExProgressBar2.FillStyleEx = PowerPacks.FillStyle.SmallGrid
'=========================================
'グラデーション：タテ（プロパティ設定）
'=========================================
Me.ExProgressBar3.BackColorEx = Color.White
Me.ExProgressBar3.FillBorderColorEx = Color.White
Me.ExProgressBar3.FillColorEx = Color.Black
Me.ExProgressBar3.FillGradientColorEx = Color.Blue
Me.ExProgressBar3.FillGradientStyleEx = PowerPacks.FillGradientStyle.Vertical
Me.ExProgressBar3.FillStyleEx = PowerPacks.FillStyle.Solid
End Sub
End Class
PR
