[リストへもどる]
一括表示

投稿時間: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
これをゆっくり動かしてみたいのです。
(中心から四角が作られて、その四角の色がだんだんと白になっていく)
タイマーを使う以外でだんだんと描写されていくのを
見るようにするにはどうしたらいいのでしょうか?
宜しくお願いします。

投稿時間:2004/01/04(Sun) 08:14
投稿者名:nobu
Eメール:
URL :
タイトル:
Re: ForNext文で次の動作までに時間を作りたい
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' <=== 追加

>     Dim n As Integer
>     Dim c As Integer
>     For n = 0 To 1500 Step 50
>     For c = 20 To 250 Step 10
          DoEvents                  ' <=== 追加
          Sleep 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


取り敢えずは上記でどうでしょうか?
Sleep に関してはこちらのHPにあったと思います。

投稿時間:2004/01/09(Fri) 10:23
投稿者名:ぽち
Eメール:
URL :
タイトル:
Re^2: ForNext文で次の動作までに時間を作りたい
nobuさんお返事が遅れてしまい申し訳ございません。
そしてありがとうございます。
Sleepというのを使うのですね。

どうやら
http://www.bcap.co.jp/hanafusa/VBHLP/sonota_API.htm
にありました。

お手数おかけいたしました。