「東雲忠太郎」の平凡な日常のできごと

2010.05.30

ProgressBarにグラデーションをかける方法 Visual Basic Tips

カテゴリ：カテゴリ未分類

ここから ExControlLib をダウンロードします。
ExButton,ExProgressBarが含まれていますが、
今回使うのはExProgressBarです。

【サンプルソース】
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

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.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

お気に入りの記事を「いいね！」で応援しよう