Webbrowserで完全にHPを表示させるまで待機したい。

質問

VB6.0を使っています。
Webbrowserを使いまして
HPの表示を完了するまで待機するようにしようと思いました。
しかし表示前に”読み取り終了”になってしまいます。
表示するまで待機させるにはどうすればいいのでしょうか？
どうかお願いいたします。

Label1.Caption = "読み取り中"
WebBrowser1.Navigate "http://www.yahoo.co.jp"
Do While WebBrowser1.Busy = True
DoEvents
Loop

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

Label1.Caption = "読み取り終了"

あと、基本的な操作なのですが
プロジェクトを読み込んだすぐにはコードもオブジェクトも表示されません。
一度実行してからコードを出さざるを得ないのですが
これはどうすればいいのでしょうか？

回答No.2

Kuppycat · ベストアンサー

こんなのはどうかな？
Private Sub Command1_Click()
　Label1.Caption = "読み取り中"
　Label1.Refresh
　WebBrowser1.Navigate "http://www.yahoo.co.jp", 4 'navNoReadFromCache
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
　Label1.Caption = "読み取り終了"
End Sub

お礼

うまくいきました！！！！！

ありがとうございます！！！

でもWebBrowser1.Navigate "http://www.yahoo.co.jp", 4 'navNoReadFromCache
という命令はどこで勉強をすればいいんでしょうか・・（＾＾；）

回答No.1

Kuppycat

VB6.0、XPpro環境です。
自分の環境ではちゃんと表示するまで待機しました。
コードやオブジェクトの表示も問題ありません。
もう少し詳しい状況説明をお願いできますか？

補足

ご回答ありがとうございます。
WindowsMe、VBproです。

色々と試していたのですが
YAHOOIDを切り替えて確認すると
どうやらキャッシュを読み取っているようです。

Webbrowserに関する書籍がほとんどないため手探りでやっていますが
新規に読み取る方法はないでしょうか？
IEのオプションで「ページを表示するたびに確認する」を選んでましたが読み取らないようです。

http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/webbrowser.asp

は英語ですのでちょっと時間がかかりそうです。
日本語ではありませんでしょうか？

どうかよろしくお願いします。