タイトル | : 描画できました。 |
記事No | : 223 |
投稿日 | : 2003/06/12(Thu) 10:13 |
投稿者 | : ひよこ |
Privata Sub LineWoHiku() 'プロシージャの呼び出し End Sub Private Sub LineWoHiku() Dim g As Graphics = PictureBox1.CreateGraphics() Dim myPen As New Pen(Color.Red, 1) g.DrawLine(myPen, 50, 30, 800, 600) End Sub
正解かはわかりませんが、”Dim g As Graphics = PictureBox1.CreateGraphics()” を付け加えたら画面の描画を保持できるようになりました。
|