Export (0) Print
Expand All

HtmlElement.InsertAdjacentElement Method

Insert a new element into the Document Object Model (DOM).

Namespace:  System.Windows.Forms
Assembly:  System.Windows.Forms (in System.Windows.Forms.dll)

Public Function InsertAdjacentElement ( _
	orient As HtmlElementInsertionOrientation, _
	newElement As HtmlElement _
) As HtmlElement


Type: System.Windows.Forms.HtmlElementInsertionOrientation

Where to insert this element in relation to the current element.

Type: System.Windows.Forms.HtmlElement

The new element to insert.

Return Value

Type: System.Windows.Forms.HtmlElement
The HtmlElement that was just inserted. If insertion failed, this will return Nothing.

Do not call this method until after the DocumentCompleted event on the WebBrowser control has occurred. Calling this method before then can result in an exception, as the document will not have finished loading.

Whether a value of HtmlElementInsertionOrientation is valid will depend on the type of the element. For example, AfterBegin is valid if the element is a DIV, but not if it is a SCRIPT or IMG element, neither of which can contain child elements.

The following code example inserts a DIV element into the top of every page that users view outside of the ADatum.com server. The example requires that your form contains a WebBrowser control named WebBrowser1. Your sample must also import the namespace System.Text.RegularExpressions.

Private Sub AddDivMessage()
    Dim CurrentUri As New Uri(WebBrowser1.Url.ToString())
    Dim HostName As String 

    ' Ensure we have a host name, and not just an IP, against which to test. 
    If (Not CurrentUri.HostNameType = UriHostNameType.Dns) Then 
        Dim Permit As New DnsPermission(System.Security.Permissions.PermissionState.Unrestricted)

        Dim HostEntry As IPHostEntry = System.Net.Dns.GetHostEntry(CurrentUri.Host)
        HostName = HostEntry.HostName
        HostName = CurrentUri.Host
    End If 

    If (Not HostName.Contains("adatum.com")) Then
        AddTopPageMessage("You are viewing a web site other than ADatum.com. " & _
            "Please exercise caution, and ensure your web surfing complies with all " & _
            "corporate regulations as laid out in the company handbook.")
    End If 
End Sub 

Private Sub AddTopPageMessage(ByVal Message As String)
    If (WebBrowser1.Document IsNot Nothing) Then 
        With WebBrowser1.Document
            ' Do not insert the warning again if it already exists.  
            Dim ReturnedElems As HtmlElementCollection = .All.GetElementsByName("ADatumWarningDiv")
            If (Not (ReturnedElems Is Nothing) And (ReturnedElems.Count > 0)) Then 
                Exit Sub 
            End If 

            Dim DivElem As HtmlElement = .CreateElement("DIV")
            DivElem.Name = "ADatumWarningDiv"
            DivElem.Style = "background-color:black;color:white;font-weight:bold;width:100%;"
            DivElem.InnerText = Message

            DivElem = .Body.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterBegin, DivElem)
        End With 
    End If 
End Sub

.NET Framework

Supported in: 4.5, 4, 3.5, 3.0, 2.0

.NET Framework Client Profile

Supported in: 4, 3.5 SP1

Windows 8.1, Windows Server 2012 R2, Windows 8, Windows Server 2012, Windows 7, Windows Vista SP2, Windows Server 2008 (Server Core Role not supported), Windows Server 2008 R2 (Server Core Role supported with SP1 or later; Itanium not supported)

The .NET Framework does not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.

© 2014 Microsoft