Option ExplicitPrivate Sub Form_DblClick() Me.WebBrowser1.Navigate "sohu.com" End SubPrivate Sub Form_Load() WebBrowser1.Navigate "www.csdn.net" End SubPrivate Sub WebBrowser1_TitleChange(ByVal Text As String) Debug.Print Text End Sub
哦,你这个程序时可以取得的,可在我的程序里不行啊,我是程序创建的一个browser组。我都是这么调用的 WebPage(i).Navigate "http://127.0.0.1/u2/page.asp"你下面这个过程Private Sub WebBrowser1_TitleChange(ByVal Text As String) Debug.Print Text End Sub我改成了Private Sub WebPage_TitleChange(ByVal Text As String) Debug.Print Text End Sub就出错了WebBrowser没有什么相关的属性吗?
Me.WebBrowser1.Navigate "sohu.com"
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "www.csdn.net"
End SubPrivate Sub WebBrowser1_TitleChange(ByVal Text As String)
Debug.Print Text
End Sub
WebPage(i).Navigate "http://127.0.0.1/u2/page.asp"你下面这个过程Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Debug.Print Text
End Sub我改成了Private Sub WebPage_TitleChange(ByVal Text As String)
Debug.Print Text
End Sub就出错了WebBrowser没有什么相关的属性吗?