タイトル : 描画できました。 投稿日 : 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()” を付け加えたら画面の描画を保持できるようになりました。 |