ProgressBarでどすれば？ (ID:121023)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

環境を書き忘れていました。
VB.NETです。

ソースはこのような感じですが・・・・・
ProgressBarが動いてくれません(TT)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Label1
            .Text = ""
            .Top = ProgressBar1.Top
            .Left = ProgressBar1.Left
            .Height = ProgressBar1.Height
            .Width = 0
        End With
        With ProgressBar1
            .Maximum = 100
            .Minimum = 0
            .Step = 10
            .Value = 0
        End With
        With Timer1
            .Interval = 100
        End With
        Timer1.Start()
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        With ProgressBar1
            If .Maximum >= .Value Then
                .Value = 0
            Else
                .Value += 10
            End If
            If .Value <= 30 Then
                Label1.Width = 0
            Else
                Label1.Width = .Width / (.Maximum / 10) * ((.Value - 30) / 10)
            End If
        End With
    End Sub

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Timer1.Stop()
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る