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

タイトル PictureBoxのクリア
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

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