忍者ブログ
  • 2017.11
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 2018.01
[PR]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

【2017/12/14 13:06 】 |
ProgressBar(プログレスバー)にグラデーションをかける方法


グラデーション表示可能なコンポーネントが公開されていましたので、

ご紹介しておきますね。まずコンポーネントExControlsLibをダウンロードしてください。

ExControlsLib.jpg










【ソースコード】例
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
【2010/05/31 16:09 】 | 未選択 | 有り難いご意見(0) | トラックバック(0)
<<エクセルをPDFで出力するには | ホーム | postgreSQL-ODBCを64bitパソコンで設定する方法>>
有り難いご意見
貴重なご意見の投稿














虎カムバック
トラックバックURL

<<前ページ | ホーム | 次ページ>>