vb题,怎么在Text1中显示webbrowser1正打开的网站?随着网站内容变化,text1,自

2025-04-15 02:27:53
推荐回答(1个)
回答(1):

Private Sub Command1_Click()
    Text1.Text = WebBrowser1.LocationURL
End Sub
如果自动获取用:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Text1.Text = WebBrowser1.LocationURL
End Sub