VB.Netのお勉強



プログレスバーを表示＠VB.Net

プログレスバーを表示します。。

フォームにProgressBarを配置します。
タイマーを利用して、プログレスバーの値を変更する方法とするので、
Timerも配置します。

ページロード時に、プログレスバーとタイマーの設定を行います。
ここの設定は、フォームのデザインのプロパティでも行えます。
タイマーをスタートさせます。

タイマーのインターバル経過後の処理を記述します。
現在のプログレスバーの進捗値を取得し、
値を増やします。100より大きかったら0に戻します。
プログレスバーに進捗値をセットします。

フォームを表示させて、
プログレスバーの進捗状況が変化しているのを確認します。


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'プログレスバーの設定
        '最小値
        ProgressBar1.Minimum = 0

        '最大値
        ProgressBar1.Maximum = 100

        '進捗値
        ProgressBar1.Value = 0

        'サイズ（横、縦）
        ProgressBar1.Size = New System.Drawing.Size(100, 25)

        'Timerの設定
        'インターバル（ms)
        Me.Timer1.Interval = 100

        'タイマースタート
        Me.Timer1.Start()
    End Sub

    'Timerのインタバール経過後の処理
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim value As Integer

        'プログレスバーの値
        value = ProgressBar1.Value

        '値を増加（100より大きければ0にする）
        value += 1
        If value > 100 Then
            value = 0
        End If

        '進捗値をセット
        ProgressBar1.Value = value
    End Sub
End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.