This documentation is archived and is not being maintained.

HtmlElementInsertionOrientation Enumeration

Defines values that describe where to insert a new element when using InsertAdjacentElement.

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

'Declaration
Public Enumeration HtmlElementInsertionOrientation
'Usage
Dim instance As HtmlElementInsertionOrientation

Member nameDescription
BeforeBeginInsert the element before the current element.
AfterBeginInsert the element after the current element, but before all other content in the current element.
BeforeEndInsert the element after the current element.
AfterEndInsert the element after the current element, but after all other content in the current element.

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 example 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)
        Permit.Assert()

        Dim HostEntry As IPHostEntry = System.Net.Dns.GetHostEntry(CurrentUri.Host)
        HostName = HostEntry.HostName
    Else
        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

Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98

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

.NET Framework

Supported in: 3.5, 3.0, 2.0
Show: