tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルPictureBoxのクリア
記事No3790
投稿日: 2006/06/04(Sun) 11:02
投稿者みみ
お世話になります
VB6からVB2005の移植でPictureBoxのクリアが出来なくて悩んでいます
VB6では.Clsで簡単に出来たのですが・・・・
コードは↓ですが  .Image = Nothing を入れると表示されません
これをコメント行にするとOKです(重複表示ですが)このサブルーティンに来る前に実行しても駄目
でした
tipsにあった例題を使っても同じ結果です

    Sub DrawCircle(ByRef deg As Double)
        Dim pai, XX2, XX, YY, YY2, ToRadi As Single
        Dim g As Graphics = PictureBox1.CreateGraphics()
        pai = 3.14159265358979
        ToRadi = pai / 180
        With PictureBox1
            .Image = Nothing
            XX = (.Right - .Left) / 2
            YY = (.Bottom - .Top) / 2
            XX2 = XX + YY * System.Math.Sin(deg * ToRadi)
            YY2 = YY + YY * -System.Math.Cos(deg * ToRadi)
            g.DrawLine(Pens.Blue, XX, YY, XX2, YY2)
            g.DrawEllipse(Pens.Red, 0, 0, .Right - .Left, .Bottom - .Top)
        End With
        g.Dispose()
    End Sub

[ツリー表示へ]
タイトルRe: PictureBoxのクリア
記事No3791
投稿日: 2006/06/04(Sun) 13:32
投稿者YAS
>.Image = Nothing

GraphicsクラスのClearメソッドでクリアすればよいのでは?

g.Clear(Color.Black)

[ツリー表示へ]
タイトルRe^2: PictureBoxのクリア
記事No3792
投稿日: 2006/06/04(Sun) 15:41
投稿者みみ
pictureboxにこだわってGraphicsクラスまで及びませんでした!
g.Clear(Me.BackColor)
で解決しました
有り難うございました

> >.Image = Nothing
>
> GraphicsクラスのClearメソッドでクリアすればよいのでは?
>
> g.Clear(Color.Black)

[ツリー表示へ]