以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何动态显示点击网页连接地址  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173775)

--  作者:zhuxinhui
--  发布时间:2021/12/15 16:39:00
--  如何动态显示点击网页连接地址
用孤表做了个网页浏览,但是在点击网页的连接时,怎样才能把连接在网址框上显示出来呢
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20211215163447.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/12/15 16:56:00
--  
全局代码
Public Sub webBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)
    Dim strUrl As String = e.Url.ToString()
msgbox(strUrl)
End Sub

窗口afterload
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol
AddHandler web.Navigated, AddressOf webBrowser1_Navigated

--  作者:zhuxinhui
--  发布时间:2021/12/15 17:10:00
--  
吃不透玩不转,有点陌生感,得好好研究下