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

タイトル ： 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("ＭＳ Ｐゴシック", 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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