主题：[求助]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老师指点：比如在窗口中选择选择 搜狐 显示的是无数的网址!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:web.foxdb

不好意思 ，还是弹出很多网址！

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

（下面的代码示例演示如何使用 Url 属性实现 WebBrowser 控件的地址栏。此示例要求窗体包含一个名为 webBrowser1 的 WebBrowser 控件、一个名为 TextBoxAddress 的 TextBox 控件和一个名为 ButtonGo 的 Button 控件。在文本框中键入 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

有点甜老师，最最重要的是想学习这些资源的方法，更好地用到狐表中，请指点啊！

VB.Net到Foxtable怎么这样难！

拜请老师，以10楼的代码改为Foxtable代码，作为进一步学习的例子。

此主题相关图片如下：0101.png

‘全局代码如下，但没实现想要的功能

Private Sub TextBoxAddress_KeyDown( _
ByVal sender As Object, ByVal e As KeyEventArgs)
Dim TextBoxAddress As WinForm.TextBox = Forms("窗口1").Controls("TextBoxAddress")
If (e.KeyCode = Keys.Enter) Then
    Navigate(TextBoxAddress.Text)
End If

End Sub

Private Sub goButton_Click( _
ByVal sender As Object, ByVal e As EventArgs)
Dim TextBoxAddress As WinForm.TextBox = Forms("窗口1").Controls("TextBoxAddress")
Navigate(TextBoxAddress.Text)

End Sub

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
    Forms("窗口1").Controls("WebBrowser1").baseControl.Navigate(New Uri(address))
Catch ex As System.UriFormatException
    Return
End Try

End Sub

Private Sub webBrowser1_Navigated(ByVal sender As Object, _
ByVal e As windows.forms.WebBrowserNavigatedEventArgs)

Dim TextBoxAddress As WinForm.TextBox = Forms("窗口1").Controls("TextBoxAddress")
TextBoxAddress.Text = e.Url.ToString()

End Sub

不会。