HtmlElement.InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement) Método

Definición

Inserta un nuevo elemento en el Modelo de objetos de documento (DOM).Insert a new element into the Document Object Model (DOM).

public:
 System::Windows::Forms::HtmlElement ^ InsertAdjacentElement(System::Windows::Forms::HtmlElementInsertionOrientation orient, System::Windows::Forms::HtmlElement ^ newElement);
public System.Windows.Forms.HtmlElement InsertAdjacentElement (System.Windows.Forms.HtmlElementInsertionOrientation orient, System.Windows.Forms.HtmlElement newElement);
member this.InsertAdjacentElement : System.Windows.Forms.HtmlElementInsertionOrientation * System.Windows.Forms.HtmlElement -> System.Windows.Forms.HtmlElement
Public Function InsertAdjacentElement (orient As HtmlElementInsertionOrientation, newElement As HtmlElement) As HtmlElement

Parámetros

orient
HtmlElementInsertionOrientation

Posición en la que se va a insertar este elemento con respecto al elemento actual.Where to insert this element in relation to the current element.

newElement
HtmlElement

Nuevo elemento que se va a insertar.The new element to insert.

Devoluciones

Elemento HtmlElement que se acaba de insertar.The HtmlElement that was just inserted. Si se ha producido un error en la inserción, se devolverá null.If insertion failed, this will return null.

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. El ejemplo también debe importar el espacio System.Text.RegularExpressionsde nombres.Your sample 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

Comentarios

No llame a este método hasta después de DocumentCompleted que se haya WebBrowser producido el evento en el control.Do not call this method until after the DocumentCompleted event on the WebBrowser control has occurred. Llamar a este método antes de entonces puede producir una excepción, ya que el documento no habrá terminado de cargarse.Calling this method before then can result in an exception, as the document will not have finished loading.

El hecho de que HtmlElementInsertionOrientation un valor de sea válido dependerá del tipo del elemento.Whether a value of HtmlElementInsertionOrientation is valid will depend on the type of the element. Por ejemplo, AfterBegin es válido si el elemento DIVes, pero no si es un SCRIPT elemento o IMG , ninguno de los cuales puede contener elementos secundarios.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.

Se aplica a

Consulte también: