WebBrowser控件的问题

Private Sub Form_Load()
WebBrowser1.navigate "http://www.xinhuanet.com/"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim vDoc, vTag
    Dim i As Integer
      
    Set vDoc = WebBrowser1.document      Set vTag = vDoc.All(i)
      
      vDoc.All(i)这个数组  每个单元的内容是.如果他是一个结构体数组,那里面都有什么项.
    比如我可以Text2.Text = vTag.href   i=12时可以i=13时就不行. 我想是不是cdoc.all(13)就没有href 连接啊~!?  那数组的每一项是什么呢?  以什么开头以什么结尾?
  

解决方案 »

  1.   

    WebBrowser1控件加载网页后的document对象
    你可以添加监视看看有啥内容
    顺便看看
    '*****************************************
    '*****************************************'添加webbrowser , List, 按钮控件
    Option ExplicitPrivate Sub Form_Load()
    WebBrowser1.Navigate App.Path & "\test.htm"
    End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        Dim vDoc, vTag
        Dim i As Integer
          
        Set vDoc = WebBrowser1.Document
        List1.Clear
        For i = 0 To vDoc.All.length - 1
            If UCase(vDoc.All(i).tagName) = "INPUT" Then
                Set vTag = vDoc.All(i)
                If vTag.Type = "text" Or vTag.Type = "password" Then
                    List1.AddItem vTag.Name
                    Select Case vTag.Name
                        Case "Name"
                            vTag.Value = "IMGod"
                        Case "NickName"
                            vTag.Value = "IMGod"
                        Case "Password"
                            vTag.Value = "IMGodpass"
                        Case "EMail"
                            vTag.Value = "[email protected]"
                    End Select
                ElseIf vTag.Type = "submit" Then
                    vTag.Click
                End If
            End If
        Next i
    End Sub'test.htm文件
    '<HTML>
    '<HEAD>
    '<TITLE>测试页</TITLE>
    '</HEAD>
    '<BODY>
    '<form method="POST" action="result.asp">
      '<p>请填写下面表单注册（*项为必添项）</p>
    '  <'p>*姓名<input type="text" name="Name" size="20"></p>
     ' <p>*昵称<input type="text" name="NickName" size="20"></p>
      '<p>电子邮件<input type="text" name="EMail" size="20"></p>
    '  <p>*密码<input type="text" name="Password" size="20"></p>
     ' <p><input type="submit" value="提交" name="B1">
      '<input type="reset" value="全部重写" name="B2"></p>
    '</form>
    '</BODY>
    '</HTML>
      

  2.   

    楼上的兄弟春节好:)// 那数组的每一项是什么呢?  以什么开头以什么结尾?
    简单的说每一项都是HTML的元素(对象),具体是什么元素,你可以引用 Microsoft HTML Object Library帮助你解析
    Private Sub Command1_Click()
        Dim vDoc, vTag
        Dim i As Integer
          
        Set vDoc = WebBrowser1.Document
        List1.Clear
        For i = 0 To vDoc.All.length - 1
              List1.AddItem TypeName(vDoc.All(i))
        Next i
    End Sub//比如我可以Text2.Text = vTag.href   i=12时可以i=13时就不行.如果对象没有href属性当然会失败,至于什么对象有这个属性,你用对象浏览器看看Microsoft HTML Object Library就知道了
      

  3.   

    楼上过年好,我知道出现错误就是因为这项没有href,我看浏览器中的源文件都是<>这样一对对的
        我是想知道每个数组存储的是什么?