假设有一个网页浏览控件WebBrowser1以及一个文本框Text1来显示网址,用以下代码可以解决: Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Text1.Text=URL End Sub 希望对您有所帮助!
迷糊的小九
2024-09-18 01:38:23
private webbrowser1_documentcomplete() text1.text=webbrowser1.locationurl end sub