关于 webbrowser 控件的 documentcomplete 事件的问题

Question

代码
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
select case wb_job
case 1
代码
case 2
text1.text = "11111111"
wb_job = 0
case 3
.
.
.
end select
End Sub问题是
当我在一个按钮的click事件里面设置了 wb_job = 2 后，然后浏览一个页面，事件是触发了，但是 text1.text 会显示两个出来，就是事件触发了两次，但是我在第一次触发的事件里面已经改变了 wb_job 的值，为什么会这个样子，有什么办法可以解决先谢谢了～～
程序里面的变量假设都是 全局变量

Answer 1

页面中存在框架的话，框架在文档下载完成时也会触发DocumentComplete事件

Answer 2

可以判断pDisp 是不是WebBrowser1这个object

Answer 3

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Url="http://www.csdn.net/" Then
    select case wb_job
    case 1
    代码
    case 2
    text1.text = "11111111"
    wb_job = 0
    case 3
    .
    .
    .
    end select
End If
End Sub
这样就不会出现问题了。
专拿网页数据。
共同学习！QQ：151329155