タイトル : 点を一つ一つ出していくためには 投稿日 : 2011/01/14(Fri) 17:37 投稿者 : PAO
以前点の表示方法でご質問させていただき、 表示自体できるようになったのですが 今回なのですが、配列を読み込み、点を表示させていきたいのですが 配列には座標が入っています Public nInputPoint(13) As Integer Public InputPosition(1000, 13, 2) As Integer For i = 0 To nInputPoint(bodyIndex) - 1 Dim h As Graphics = PictureBox1.CreateGraphics() Dim myBrush As New SolidBrush(Color.Blue) h.FillRectangle(myBrush, Form1.InputPosition(i, Form1.bodyIndex, 0), Form1.InputPosition(i, Form1.bodyIndex, 1), 10, 10) Next i Dim End Sub これが現在のプログラムなのですがこれを実行させていくと 点というか配列に入っている座標のところ全てに点が表示されてしまいます これをすべてではなく、一つ一つ表示させていき 点が動いているようにしたいのですがどうすればいいでしょうか? |