| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2937 人关注过本帖
标题:vb.net如何访问WebBrowser中的iframe
只看楼主 加入收藏
zsdqxzxx
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2016-12-9
结帖率:33.33%
收藏
已结贴  问题点数:20 回复次数:2 
vb.net如何访问WebBrowser中的iframe
这是以前vb6的方法,必须引用Microsoft html object library
可是在中没有作用了
单击command1获得框架及其元素方法1
Private Sub Command1_Click()
Dim Doc2 As HTMLDocument
Dim Web2 As WebBrowser_V1
 Set Web2 = GetFrameIframeLikeUrl(WebBrowser1.Document, "*baidu.com*")
If Not Web2 Is Nothing Then
    Set Doc2 = Web2.Document
    'MsgBox "框架网页中的文字是:" & Doc2.body.innerText
End If
End Sub



方法一的自定义函数
Function GetFrameIframeLikeUrl(Vdoc As HTMLDocument, LikeUrl As String) As WebBrowser_V1

Dim Vtag, Tname As String, FrameWeb As WebBrowser_V1
For Each Vtag In Vdoc.All
        Tname = Vtag.tagName
        If Tname = "IFRAME" Or Tname = "FRAME" Then
            Set FrameWeb = Vtag
              If FrameWeb.LocationURL Like LikeUrl Then
 
                  Set GetFrameIframeLikeUrl = FrameWeb
                  Exit Function
             End If
        End If
Next
End Function



搜索更多相关主题的帖子: WebBrowser Microsoft library iframe 如何 
2016-12-22 15:28
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:14 
        'WebBrowser1.Navigate("https://bbs.bccn.net")——这个不多解释

       '这是一个例子,你在需要的地方用,当然例子中也可以GetElementsByID
        Dim myFrame As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("iframe")
        For i As Integer = 0 To myFrame.Count-1
            MsgBox(myFrame.Item(i).Name)'枚举iframe名称
        Next


===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2016-12-22 20:59
zsdqxzxx
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2016-12-9
收藏
得分:0 
谢谢,这样可以获得有几个iframe,现在问题是在iframe中有个ID为"JZGXXJLXX_addBtn"的按钮,我想单击这个按钮,用怎么实现呢?
2016-12-23 10:30
快速回复:vb.net如何访问WebBrowser中的iframe
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016008 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved