動画で三流解説
動画の簡単な説明
←の詳細は http://ie.vba-ken3.jp/sample/001/2009-03-07.html
を見てください。
内容:
URL入力エリアに入る。(フォーカスを移す)
何もURLを修正していないのに、
再度 読み込み処理 が走ってしまう。
処置:
WebBrowser1.Document.URL で 現在処理中のURLが取れるので、
単純に If文で 入力値 = 現在の文章URL がきいて、
同じ場合、何もしないで(.Navigateで移動しない)関数を抜けます
修正したソース:
Private Sub txtURL_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.txtURL = Me.WebBrowser1.Document.URL Then Exit Sub 'そのまま抜ける End If Me.WebBrowser1.Navigate Me.txtURL.Text 'ページ移動
End Sub
まぁ、これくらいは、仕様書に書いてなくてもやらないとなぁ。。
動画解説やテスト結果
www.youtube.com動画元: 03/10 URL入力時、変更無しの時、再度読み込みに行く そんなバグ - YouTube