以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]WebBrowser中获取选择的唯一连接地址  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64413)

--  作者:黄训良
--  发布时间:2015/2/13 8:44:00
--  [求助]WebBrowser中获取选择的唯一连接地址

下面的方法得到的连接地址有无数个,如何得到选择的 唯一连接地址,例图:

Public Sub webBrowser1_Navigating(ByVal sender As Object, ByVal e As windows.forms.WebBrowserNavigatingEventArgs)

msgbox(e.url.Tostring)

End Sub

选择 搜狐 得到 搜狐的网址:http://www.sohu.com/

 


图片点击可在新窗口打开查看此主题相关图片如下:10011111.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2015/2/13 8:46:00
--  
上例子.
--  作者:Bin
--  发布时间:2015/2/13 8:46:00
--  
A标签,你选择了.就会跳转的啊.直接获取当前地址即可


--  作者:有点甜
--  发布时间:2015/2/13 9:10:00
--  
 你点击的时候,就是会获取跳转的地址的啊,1楼代码有什么问题
--  作者:黄训良
--  发布时间:2015/2/13 9:15:00
--  

请Bin老师指点:比如在窗口中选择选择 搜狐 显示的是无数的网址!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:web.foxdb


--  作者:有点甜
--  发布时间:2015/2/13 9:19:00
--  

 那你可以写到第一个事件里去,同样的代码

 

msgbox(e.url.Tostring)


--  作者:黄训良
--  发布时间:2015/2/13 9:31:00
--  

不好意思 ,还是弹出很多网址!


--  作者:有点甜
--  发布时间:2015/2/13 9:32:00
--  
以下是引用黄训良在2015/2/13 9:31:00的发言:

不好意思 ,还是弹出很多网址!

 

直接说自己想做什么


--  作者:有点甜
--  发布时间:2015/2/13 9:33:00
--  
而且,你可以直接判断地址,去掉一些不必要的啊。
--  作者:黄训良
--  发布时间:2015/2/13 9:39:00
--  

这段代码如何改造:就是想实现这个功能

下面的代码示例演示如何使用 Url 属性实现 WebBrowser 控件的地址栏。此示例要求窗体包含一个名为 webBrowser1WebBrowser 控件、一个名为 TextBoxAddressTextBox 控件和一个名为 ButtonGoButton 控件。在文本框中键入 URL 并按 Enter 或单击“转到”按钮时,WebBrowser 控件会定位至指定的 URL。通过单击超链接进行定位时,文本框会自动更新以显示当前 URL。)

 

Private Sub Navigate(ByVal address As String)

    If String.IsNullOrEmpty(address) Then Return
    If address.Equals("about:blank") Then Return
    If Not address.StartsWith("http://") And _
        Not address.StartsWith("https://") Then
        address = "http://" & address
    End If

    Try
        webBrowser1.Navigate(New Uri(address))
    Catch ex As System.UriFormatException
        Return
    End Try

End Sub

\' Updates the URL in TextBoxAddress upon navigation.
Private Sub webBrowser1_Navigated(ByVal sender As Object, _
    ByVal e As WebBrowserNavigatedEventArgs) _
    Handles webBrowser1.Navigated

    toolStripTextBox1.Text = webBrowser1.Url.ToString()

End Sub