玄関へお回り下さい。
PictureBox上で消える画像＆描画・消えない画像＆描画 (5個)          (SNo.093)

１．消える描画
２．消えない描画
３．消える画像表示
４．消えない画像表示
５．PictureBox1_Paint イベントに書いた場合
使用コントロール Button1 〜 Button4　 PictureBox1
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
１．消える描画
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'消える描画
    Dim g As Graphics = PictureBox1.CreateGraphics()

'------------- 以下の部分は同じです ----------------------------
    Dim f As New Font("ＭＳ Ｐゴシック", 14)
    g.DrawString("花ちゃん", f, Brushes.Blue, 10, 10)
    g.DrawLine(Pens.Black, 0, 40, 100, 40)
    f.Dispose()
    g.Dispose()
End Sub
　
２．消えない描画
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'消えない描画
    Dim g As Graphics
    With PictureBox2
        .Image = New Bitmap(100, 100)
        g = Graphics.FromImage(.Image)
    End With
'------------- 以下の部分は同じです ----------------------------
    Dim f As New Font("ＭＳ Ｐゴシック", 14)
    g.DrawString("花ちゃん", f, Brushes.Blue, 10, 10)
    g.DrawLine(Pens.Black, 0, 40, 100, 40)
    f.Dispose()
    g.Dispose()
End Sub
　
３．消える画像表示
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'消える画像表示

    Dim g As Graphics = PictureBox1.CreateGraphics()
'------------- 以下の部分は同じです ----------------------------
    Dim bmap As Bitmap = New Bitmap("..\..\gara.bmp")
    g.DrawImage(bmap, 0, 0)
    bmap.Dispose()
    g.Dispose()
End Sub
　
４．消えない画像表示
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'消えない画像表示
    Dim g As Graphics
    With PictureBox2
        .Image = New Bitmap(.Size.Width, .Size.Height)
        g = Graphics.FromImage(.Image)
    End With
'------------- 以下の部分は同じです ----------------------------
    Dim bmap As Bitmap = New Bitmap("..\..\gara.bmp")
    g.DrawImage(bmap, 0, 0)
    bmap.Dispose()
    g.Dispose()

 '当然の事ながら下記でも消えません。   
 '   PictureBox2.Image = System.Drawing.Image.FromFile("..\..\gara.bmp")
End Sub
　
５．PictureBox1_Paint イベントに書いた場合

Private Sub PictureBox1_Paint(ByVal sender As Object, _
         ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
'この場合他のウィンドウの裏等に隠れた場合は再描画されますが
'最小化からの復帰時には再描画されません。

    Dim g As Graphics = PictureBox1.CreateGraphics()
    Dim f As New Font("ＭＳ Ｐゴシック", 14)
    g.DrawString("花ちゃん", f, Brushes.Blue, 10, 10)
    f.Dispose()
    g.DrawLine(Pens.Black, 0, 40, 100, 40)
    g.Dispose()
End Sub
　
   





2004/06/24
2005/10/13


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005