タイトル | : Re: MicrosoftUpdate時のようなプログレスバー表示がしたいです |
記事No | : 7462 |
投稿日 | : 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のことですかね?
|