- PR -

VBでループ処理を行うとき

1
投稿者投稿内容
ポーター
ベテラン
会議室デビュー日: 2005/02/03
投稿数: 50
投稿日時: 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
たつごろー
ぬし
会議室デビュー日: 2004/10/25
投稿数: 496
投稿日時: 2005-08-24 12:52
15秒ではなく1秒毎にIntervalして、15秒経ったかどうかは時刻をみるというのはどうですか?

_________________
たつごろー
codeseek
こみゅぷらす
todo
ぬし
会議室デビュー日: 2003/07/23
投稿数: 682
投稿日時: 2005-08-24 12:55
ループにしないで、Timerコントロールを使うとか。
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2005-08-24 12:57
引用:

たつごろーさんの書き込み (2005-08-24 12:52) より:
15秒経ったかどうかは時刻をみるというのはどうですか?


時刻を見るのではなく、15 回入れ子で回せば良いんじゃないですか?



_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
たつごろー
ぬし
会議室デビュー日: 2004/10/25
投稿数: 496
投稿日時: 2005-08-24 16:47
引用:

時刻を見るのではなく、15 回入れ子で回せば良いんじゃないですか?


そっか。タイマーコントロールを使ってるとばかり思ってた。

_________________
たつごろー
codeseek
こみゅぷらす
1

スキルアップ/キャリアアップ(JOB@IT)