VB初心者友の会 - Q&A掲示板過去ログ

> Do..Loopステートメント中のイベントについて教えて下さい。
> プログラムが複雑になってくると、イベントがちゃんと割り込まれなくなって、
> 正しく動作されなくなってしまうのですが、何かよい対処方法ありますでしょうか。
> 
> 下の例はちょっと手抜きで極端ですけど、こんな感じです。
> 
> Private Sub Winsock1_SendComplete()
> 
>  Flg=1
> 
> End Sub
> 
> 
> Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
> 
> Do
>  If Flg=1 Then Exit Do
> 　DoEvents
> 　Sleep 100
> Loop
> Winsock2.Accept requestID
> 
> End Sub
> 
> Winsockコントロールを２つ使っていて、
> Winsock1.SendDataでデータを送信し、送信が完了した時点で
> Winsock2をAcceptしたいのですが、Do..Loopでループにおちいってしまいます。
> 一度ＶＢのデバッガで中断して再度開始するとイベントは発生します。
> 
> 何かいい方法ご存じでしたら、ご教授ください。
> よろしくおねがいします。

仕様が解らないので何とも言えませんが Do〜Loopの中にDoEvents関数とSleep関数が
使われてるのですがSleep関数を使うのであればDoEventsは必要ないような気がします。
後、条件を満たしたら抜けるようなループであればDo WhileやDo Untilでループさせた方がいいのでは？

While → 〜の間
Until → 〜まで

> 仕様が解らないので何とも言えませんが Do〜Loopの中にDoEvents関数とSleep関数が
> 使われてるのですがSleep関数を使うのであればDoEventsは必要ないような気がします。
> 後、条件を満たしたら抜けるようなループであればDo WhileやDo Untilでループさせた方がいいのでは？
> 
> While → 〜の間
> Until → 〜まで
Sleepを入れないと、CPUモニターでみるとCPUを100%占有してしまうんですね。
Sleepを使う時、DoEventsをいれないとハングったようになってしまうので
この２行を入れてるんです。

Do WhileやDo Untilでも結果は同じでした。

なにか、ループをさせずに待つ方法があればいいのですが・・・。

こんばんは。

> Private Sub Winsock1_SendComplete()
> 
>  Flg=1
> 
> End Sub
> 
> 
> Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
> 
> Do
>  If Flg=1 Then Exit Do
> 　DoEvents
> 　Sleep 100
> Loop
> Winsock2.Accept requestID
> 
> End Sub
> 
> Winsockコントロールを２つ使っていて、
> Winsock1.SendDataでデータを送信し、送信が完了した時点で
> Winsock2をAcceptしたいのですが、Do..Loopでループにおちいってしまいます。
> 一度ＶＢのデバッガで中断して再度開始するとイベントは発生します。

これは、私も経験があります。
ただ、その時の VB のバージョンなどは、全く覚えていません（ごめんなさい）。
で、その時は、勝手に Winsock コントロールの不具合だと決め付けて、
全て Winsock API で書き直してしまいました。
結局、今になっても、コーディングが悪かったのか、コントロールの不具合だったのか、よくわかりません。

うう…。役に立たない情報でもうしわけありません。

> Do..Loopステートメント中のイベントについて教えて下さい。
> プログラムが複雑になってくると、イベントがちゃんと割り込まれなくなって、
> 正しく動作されなくなってしまうのですが、何かよい対処方法ありますでしょうか。
> 
> 下の例はちょっと手抜きで極端ですけど、こんな感じです。
> 
> Private Sub Winsock1_SendComplete()
> 
>  Flg=1
> 
> End Sub
> 
> 
> Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
> 
> Do
>  If Flg=1 Then Exit Do
> 　DoEvents
> 　Sleep 100
> Loop
> Winsock2.Accept requestID
> 
> End Sub

別談かもしれないけど．．．
ループの中で Sleep関数は使用しない方がいいかも？
Sleepを含むループを１０分間回しつづけたら、アプリからの応答が無くなった経験があります。
Timer関数を使用し、自分で時間管理したら、２０分でも回り続けてくれた。