主题：[求助]WebBrowser中获取选择的唯一连接地址

 那没问题啊，直接给文本框赋值就行啊。

 

 用6楼的代码，赋值多次也没问题啊

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

 

一样的意思啊，绑定一个事件，在里面写代码，直接给文本框赋值就行啊

VB.Net到Foxtable怎么这样难！

 

什么难啊，代码通用的啊，直接赋值你不会写？

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

 完全不用改啊

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

 去掉Handles以及后面的

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

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