タイトル : 円弧の移動 投稿日 : 2006/11/20(Mon) 17:04 投稿者 : toto
VB.NETのPictureBoxに円弧を描くときに書いては消す(円が移動しているように見える)作業をしたいのですがどのようにしたらいいか考えつかないのでご指導ください。 今のソース Private Sub form1_Load ret=wakusakuga(Picturebox1) <---枠を書く ret=enplot(Picturebox1) end sub Private Function enplot(ByVal o As PictureBox) Dim x1 As Single Dim y1 As Single Dim g As Graphics Dim p As New Pen(Color.Black, 1) Dim i As Integer With o .Image = o.Image g = Graphics.FromImage(.Image) End With For i = 1 To 100 x1 = ...... y1 = ...... rc = ..... g.DrawEllipse(p, x1, y1, rc,rc) o.Invalidate() o.Update() Next i g.Dispose() p.Dispose() Exit Function |