タイトル : 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のことですかね? |