动态创建的控件如何响应事件，如动态创建的webbrowser控件怎样响应DocumentComplete事件

Question

动态创建的控件如何响应事件，如动态创建的webbrowser控件怎样响应DocumentComplete事件

Answer 1

Option ExplicitPrivate WithEvents MyWebBrowser As WebBrowserPrivate Sub Command1_Click()
    Set MyWebBrowser = Controls.Add("Shell.Explorer.2", "MyWebBrowser")
    MyWebBrowser.Left = 100
    MyWebBrowser.Top = 100
    MyWebBrowser.Visible = True
    MyWebBrowser.Navigate2 "www.csdn.net"
End SubPrivate Sub MyWebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    MsgBox URL
End Sub

Answer 2

声明对象变量的时候用WithEvents关键字。