新人求帮助【一个简单但又很多人不愿意提起的事件】

[a2860003]

我的目的很简单 就是禁止vb6.0 webbrowser1控件加载图片 其他的功能不要
我在网上找到了并下载了olelib.tlb 但是不知道怎么用 下面是我写的 但是没反映。
谢谢了

Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim tupian As olelib.IOleControl
tupian.OnAmbientPropertyChange (DLCTL_NO_SCRIPTS)
tupian.OnAmbientPropertyChange -5512
Set tupian = WebBrowser2.Document
End Sub

[一如既往哈]

Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim tupian As olelib.IOleControl Set tupian = WebBrowser2.Document'''改改顺序再试试 tupian.OnAmbientPropertyChange (DLCTL_NO_SCRIPTS) tupian.OnAmbientPropertyChange -5512 End Sub

[a2860003]

引用 1 楼 Topc008 的回复:

Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim tupian As olelib.IOleControl Set tupian = WebBrowser2.Document'''改改顺序再试试 tupian.OnAmbientPropertyChange (DLCTL_NO_SCRIPTS) tupian.OnAmbientPropertyChange -5512 End Sub

还是不行啊。。。你试过了吗