tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: MicrosoftUpdate時のようなプログレスバー表示がしたいです
投稿日： 2008/05/08(Thu) 12:47
投稿者： 鍵
こんにちは。

プログレスバーでのやり方がわからなかったので、
横長のピクチャーボックスで代用したのですが、こんな感じでどうでしょうか？

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        e.Graphics.FillRectangle(Brushes.Blue, i, 0, 30, PictureBox1.Height)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        i += 10

        If i >= PictureBox1.Width Then
            i = 0
        End If

        PictureBox1.Invalidate()
    End Sub

ご意向にそってればいいのですが^^;

> VB2005の掲示板に書かせていただきましたが、VBでもできれば、、と思っています。
> VBのほうの掲示板にも書いてしまうとマルチポスト？になってしまうかなぁと思いまして
> こちらに書きました。。。

VBとはVB6.0のことですかね？
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。