Foxtable(狐表)用户栏目专家坐堂 → [求助]WebBrowser中获取选择的唯一连接地址


  共有4400人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/13 11:37:00 [只看该作者]

 为什么要在全局代码写代码啊,你直接在窗口那里写就行啊,提取里面的代码出来,这也不会?

 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2015/2/13 12:18:00 [只看该作者]

不会。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/13 14:09:00 [只看该作者]

 做一个按钮,写代码

 

Dim address As String = Forms("窗口1").Controls("TextBoxAddress").Text

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/13 14:11:00 [只看该作者]

 然后在第一个事件写代码

 

Forms("窗口1").Controls("TextBoxAddress").Text = e.Url.ToString()


 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2015/2/13 15:44:00 [只看该作者]

已找到更简洁的代码实现了想要的功能,但还是觉得VB.Net到Foxtable是那么的不易(实际并不是难,而是官方没有教程),

因为Foxtable的学习资源与VB.Net相比,少之又少,深入一点的更是寥寥无几!

目的只有一个,想让Foxtable更好!就像下面的代码,虽然没有太大的意义,但它却是MSDN的应用实例,Foxtable就没有

类似实例把VB.Net代码改造为狐表所用的例子!

 

下面的代码示例演示如何使用 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

[此贴子已经被作者于2015/2/13 15:45:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/13 15:53:00 [只看该作者]

 看23楼,24楼,啊

 回到顶部
帅哥哟,离线,有人找我吗?
oaok
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1198 积分:7859 威望:0 精华:0 注册:2013/5/17 14:26:00
  发帖心情 Post By:2015/2/13 17:30:00 [只看该作者]

用户已经被屏蔽

 回到顶部
总数 27 上一页 1 2 3