HtmlElementInsertionOrientation Enumeración

Definición

Define valores que describen dónde insertar un nuevo elemento al utilizar InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement).Defines values that describe where to insert a new element when using InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement).

public enum class HtmlElementInsertionOrientation
public enum HtmlElementInsertionOrientation
type HtmlElementInsertionOrientation = 
Public Enum HtmlElementInsertionOrientation
Herencia
HtmlElementInsertionOrientation

Campos

AfterBegin 1

Insertar el elemento detrás del elemento actual, pero delante de todo el contenido restante del elemento actual.Insert the element after the current element, but before all other content in the current element.

AfterEnd 3

Insertar el elemento detrás del elemento actual, pero detrás de todo el contenido restante del elemento actual.Insert the element after the current element, but after all other content in the current element.

BeforeBegin 0

Insertar el elemento delante del elemento actual.Insert the element before the current element.

BeforeEnd 2

Insertar el elemento detrás del elemento actual.Insert the element after the current element.

Ejemplos

En el ejemplo de código siguiente se DIV inserta un elemento en la parte superior de todas las páginas que ven los usuarios fuera del servidor de ADatum.com.The following code example inserts a DIV element into the top of every page that users view outside of the ADatum.com server. El ejemplo requiere que el formulario contenga WebBrowser un control WebBrowser1denominado.The example requires that your form contains a WebBrowser control named WebBrowser1. En el ejemplo también se debe importar System.Text.RegularExpressionsel espacio de nombres.Your example must also import the namespace System.Text.RegularExpressions.

public void AddDivMessage()
{
    Uri currentUri = new Uri(webBrowser1.Url.ToString());
    String hostName = null;

    // Ensure we have a host name, and not just an IP, against which to test.
    if (!(currentUri.HostNameType == UriHostNameType.Dns))
    {
        DnsPermission permit = new DnsPermission(System.Security.Permissions.PermissionState.Unrestricted);
        permit.Assert();

        IPHostEntry hostEntry = System.Net.Dns.GetHostEntry(currentUri.Host);
        hostName = hostEntry.HostName;
    } else {
        hostName = currentUri.Host;
    }

    if (!hostName.Contains("adatum.com"))
    {
        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.");
    }
}

private void AddTopPageMessage(String message)
{
    if (webBrowser1.Document != null) 
    {
        HtmlDocument doc = webBrowser1.Document;

        // Do not insert the warning again if it already exists. 
        HtmlElementCollection returnedElems = doc.All.GetElementsByName("ADatumWarningDiv");
        if ((returnedElems != null) && (returnedElems.Count > 0)) 
        {
            return;
        }

        HtmlElement divElem = doc.CreateElement("DIV");
        divElem.Name = "ADatumWarningDiv";
        divElem.Style = "background-color:black;color:white;font-weight:bold;width:100%;";
        divElem.InnerText = message;
        
        divElem = doc.Body.InsertAdjacentElement(HtmlElementInsertionOrientation.AfterBegin, divElem);
    }
}
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

Se aplica a