假设有一个网页浏览控件WebBrowser1以及一个文本框Text1来显示网址，用以下代码可以解决：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text=URL
End Sub
希望对您有所帮助！
private webbrowser1_documentcomplete()
text1.text=webbrowser1.locationurl
end sub
就在 点了超连接时_click 事件中加入 某一文本框.text 等于 “超链接地址”
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024