- - PR -
VBでループ処理を行うとき
1
投稿者 | 投稿内容 | ||||
---|---|---|---|---|---|
|
投稿日時: 2005-08-24 12:21
VisualBasic6ですがよろしくお願いします。
15秒毎にメールをPOPするプログラムを作成しています。 ループの中でBasp21の「Sleep Receive.Interval」を利用し、 15秒ごとに受信を行わせているのですが、15秒毎に受信を 行う方法として別の記述方法などありますでしょうか? また、「STOP」ボタンが押された場合、スリープ中でも処理を 終了させていのですが、そのような事は可能なのでしょうか? よろしくお願いいたします。 ソースは以下のようになっています(一部省略)。 'Baspのオブジェクト作成 Set objBasp = CreateObject("basp21") Do While True 'メール受信させるコード記述 objBasp.Sleep Receive.Interval * 15 '15秒スリープ Loop | ||||
|
投稿日時: 2005-08-24 12:52
15秒ではなく1秒毎にIntervalして、15秒経ったかどうかは時刻をみるというのはどうですか?
_________________ たつごろー codeseek こみゅぷらす | ||||
|
投稿日時: 2005-08-24 12:55
ループにしないで、Timerコントロールを使うとか。
| ||||
|
投稿日時: 2005-08-24 12:57
時刻を見るのではなく、15 回入れ子で回せば良いんじゃないですか? _________________ C# と VB.NET の入門サイト じゃんぬねっと日誌 | ||||
|
投稿日時: 2005-08-24 16:47
そっか。タイマーコントロールを使ってるとばかり思ってた。 _________________ たつごろー codeseek こみゅぷらす |
1