投稿日 | : 2004/01/04(Sun) 07:36 |
投稿者 | : ぽち |
Eメール | : |
URL | : |
タイトル | : ForNext文で次の動作までに時間を作りたい |
[OSのVer]:Win2K [VBのVer]:6.0
四角を書いていくプロシージャを作りました。
Dim n As Integer
Dim c As Integer
For n = 0 To 1500 Step 50
For c = 20 To 250 Step 10
Picture1.ForeColor = RGB(1 + c, 1 + c, 1 + c)
Picture1.Line (1500 - n, 1500 - n)-(1500 + n, 1500 + n), , B
Next c
Next n
これをゆっくり動かしてみたいのです。
(中心から四角が作られて、その四角の色がだんだんと白になっていく)
タイマーを使う以外でだんだんと描写されていくのを
見るようにするにはどうしたらいいのでしょうか?
宜しくお願いします。