タイトル : Re: ピクチャーボックスへの再描画 投稿日 : 2009/01/23(Fri) 10:59 投稿者 : ダンボ
RefreshメソッドとPaintイベントで実現してみました。最後に1001となるバグはご愛敬で。 Public Class Form1 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint PictureBox1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(200, 200, 255)) PictureBox2.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(200, 200, 255)) End Sub Dim i1 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '---------------------------------------------------------------------------------- '●ピクチャーボックスを画面上から消すと消える描画 (PictureBox1) | '---------------------------------------------------------------------------------- For i1 = 0 To 1000 PictureBox1.Refresh() Next i1 '---------------------------------------------------------------------------------- '●ピクチャーボックスを画面上から消しても消えない描画 (PictureBox2) 変更無し | '---------------------------------------------------------------------------------- End Sub Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim g1 As Graphics = e.Graphics Dim f1 As New Font("MS Pゴシック", 50) g1.Clear(PictureBox1.BackColor) g1.DrawString(Str(i1), f1, Brushes.Blue, 0, CSng(PictureBox1.Height / 2)) f1.Dispose() 'g1.Dispose() End Sub End Class |