「なるほど……。フルセットの待受処理をあちらこちらで行うのは効率的でないから、汎用化しておいたほうがいいね」
'サンプルオンラインシステム汎用待ちうけ処理
Private Sub
waitNavigation(ie As InternetExplorer)
Dim i As Integer
'IE待ちうけ
Do While ie.Busy Or
ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
'フレームセットのドキュメント待ちうけ
Do While
ie.document.ReadyState <> "complete"
DoEvents
Loop
'フレーム内のドキュメント待ちうけ
For i = 0 To ie.document.frames.Length -
1
Do
While ie.document.frames(i).document.ReadyState
<> "complete"
DoEvents
Loop
Next
End Sub