投稿日 | : 2005/09/13(Tue) 19:52 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^4: WebBrowserで画像を表示させない |
> ソースを変更する等の代替案のヒントが載っていたので、その辺についても調べてみます。
ちょっと強引な方法ですが、ただ画像ファイルの種類が多いので!(ごみレスかも)
Private Sub Command1_Click()
Dim myHtm As String
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
myHtm = WebBrowser1.Document.body.innerHTML
myHtm = Replace(myHtm, ".gif", "")
WebBrowser1.Document.write myHtm
End Sub