【Access小品】东北乱炖---WebBrowser综合技巧示例

lynnwang

todaynew
哈哈！跟着你跑过来这边{:soso_e120:}

无法启动，错误如下：
Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, url As Variant)
    Dim dom
    Set dom = Me.WebBrowser0.Document
    Set dom.parentWindow.accForm = Me
    Call CreatTree(dom)
    Call EventBind
    Set dom = Nothing
End Sub

Set dom.parentWindow.accForm = Me     ‘就这句出错，对象不支谬该属性或方法。

你的包里也没有这个文件哦
    Me.WebBrowser0.Navigate CurrentProject.Path & "\tree.html"

注意：对象已引用，且编译通过，WIN7x64+office 2003

lynnwang

JQuery现在确实是很流行，但是你开发的是WINDOWS程序应用
我觉得我们这些搞VBA新手，真的有时间还不如学点C或C++来得实用，这样让你对WINDOWS能真正有个了解，
你的世界也从此不一样了{:soso_e128:}。我新手一点经验。