タイトル | : 円弧の移動 |
記事No | : 4546 |
投稿日 | : 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
|