在vb Web浏览器中禁用图像

时间:2014-08-23 10:29:42

标签: vb6

我正在使用vb6中的webbrowser控件但是我想要禁用webbrowser中的图像,而无需在IE中进行设置,如果有人可以帮助我,我将非常感谢。

If checkbox1.value=1 then
'load images
else
'don't load images
End if

喜欢这个

2 个答案:

答案 0 :(得分:0)

这个对我有用

Private Sub webbrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    On Error Resume Next
      if checkbox1.value=1 then
           webbrowser1.Document.body.innerHTML = Replace(webbrowser1.Document.body.innerHTML, "<img", "<div ")
        Exit Sub
    End if
    End Sub

答案 1 :(得分:0)

好的代码 Tnx for Share

webbrowser1.Document.body.innerHTML = Replace(web1.Document.body.innerHTML,&#34; png&#34;,&#34;&#34;) webbrowser1.Document.body.innerHTML = Replace(web1.Document.body.innerHTML,&#34; jpg&#34;,&#34;&#34;) webbrowser1.Document.body.innerHTML = Replace(web1.Document.body.innerHTML,&#34; gif&#34;,&#34;&#34;)