	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.1

HTML error in VB

Asked by utlonghornjulie in Microsoft Visual Basic.Net, Visual Studio

Tags: VB, HTML, Winform

Okay silly question here but i am missing something in the code below because I keep getting the following error: documentElement is not a member of System.Windows.Forms.Htmldocument. Am I missing an import?

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:

           
           
             Option Explicit On
Imports System.Windows.Forms
Imports System.Windows.Forms.HtmlDocument
Imports System.Windows.Forms.WebBrowser
Imports SHDocVw
Imports System.IO 

Public Class Form1 

    ' Collections
    Dim m_colFrameSrc As Collection ' temporary frames web pages
    Dim m_colSource As Collection ' collection of source code (Top, Frame1, Frame2, etc)
    '
    ' 
    Private Sub Form_Load() 
        ' Collections {
        m_colFrameSrc = New Collection
        m_colSource = New Collection
        '} 
        ' Load pages {
        Call Me.WebBrowser1.Navigate("http://www4.tripnet.se/~slarti/FrameEx/good1.htm")
        Call Me.WebBrowser2.Navigate("about:blank")
        '} 
    End Sub 
    Private Sub Form_Unload(ByVal Cancel As Integer) 
        Dim lngI As Long 
        For lngI = 1 To m_colSource.Count
            Debug.Print(m_colSource.Item(1))
        Next lngI 

        ' Release {
        m_colFrameSrc = Nothing
        m_colSource = Nothing
        '} 
    End Sub 
    ' When web page complete -> get html code
    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, ByVal URL As Object) 
        ' Variables {
        Dim lngI As Long
        Dim sFrameSrc As String
        Dim sMainSource As String
        Dim sUrl As String
        '} 

        ' Collection object
        Dim oCollection As Object ' DispHTMLElementCollection 
        ' Init
        sUrl = CStr(URL) 
        ' Found html {
        If (sUrl = "http://www4.tripnet.se/~slarti/FrameEx/good1.htm") Then 
            ' Collections {
            m_colFrameSrc = New Collection
            m_colSource = New Collection
            '} 

            ' Main source {
            sMainSource = Me.WebBrowser1.Document.documentElement.outerHTML
            Call m_colSource.Add(sMainSource, "Top")
            '} 
            ' Easy reading
            oCollection = Me.WebBrowser1.Document.All 
            ' Loopy {
            For lngI = 0 To (oCollection.length - 1) 
                ' FRAME, <source>
                If (oCollection.Item(lngI).nodeName = "FRAME") Then 
                    ' Source NB -> gonna have to look at this more carefully
                    sFrameSrc = "about:blank"
                    sFrameSrc = "http://www4.tripnet.se/~slarti/FrameEx/" & oCollection.Item(lngI).src 
                    ' Add to collection
                    Call m_colFrameSrc.Add(sFrameSrc) 
                End If 
            Next lngI
            '} 
        End If
        '} 

        ' Load Web2
        If (m_colFrameSrc.Count > 0) Then
            Call Me.WebBrowser2.Navigate(m_colFrameSrc.Item(1))
        End If 
        ' Release
        oCollection = Nothing 
    End Sub 
    ' When web page complete -> get html code
    Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, ByVal URL As Object) 
        Dim sSource As String
        Dim sUrl As String 
        ' Init
        sUrl = CStr(URL) 
        If (m_colFrameSrc.Count > 0) Then
            If (sUrl = m_colFrameSrc.Item(1)) Then 
                sSource = Me.WebBrowser2.Document.documentElement.outerHTML
                Call m_colSource.Add(sSource) 
                Call m_colFrameSrc.Remove(1) 
                If (m_colFrameSrc.Count > 0) Then
                    Call Me.WebBrowser2.Navigate(m_colFrameSrc.Item(1))
                End If
            End If
        End If 
    End Sub 

End Class
           
         

	Title
1	add a string array to a database and re…
2	What payment model are you willing to …
3	PHP Experts Discussion
4	Explorer bar for EE
5	Hungarian notation: Pro and Contra
6	pascal disadvantages

HTML error in VB

Asked by utlonghornjulie in Microsoft Visual Basic.Net, Visual Studio

Tags: VB, HTML, Winform

About this solution