HtmlElementInsertionOrientation Sabit listesi

Tanım

Ad Alanı:

System.Windows.Forms

Bütünleştirilmiş Kod:

System.Windows.Forms.dll

kullanırken InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement)yeni bir öğenin nereye eklendiğini açıklayan değerleri tanımlar.

public enum class HtmlElementInsertionOrientation

public enum HtmlElementInsertionOrientation

type HtmlElementInsertionOrientation = 

Public Enum HtmlElementInsertionOrientation

Devralma

Object

ValueType

Enum

HtmlElementInsertionOrientation

Alanlar

AfterBegin	1	öğesini geçerli öğeden sonra, ancak geçerli öğedeki diğer tüm içeriğin önüne ekleyin.
AfterEnd	3	öğesini geçerli öğeden sonra, ancak geçerli öğedeki diğer tüm içeriğe ekleyin.
BeforeBegin	0	öğesini geçerli öğeden önce ekleyin.
BeforeEnd	2	öğesini geçerli öğeden sonra ekleyin.

Örnekler

Aşağıdaki kod örneği, kullanıcıların ADatum.com sunucusunun dışında görüntüleyebilecekleri her sayfanın en üstüne bir DIV öğe ekler. Örnek, formunuzun adlı WebBrowser1bir WebBrowser denetim içermesini gerektirir. Örneğinizin ad alanını System.Text.RegularExpressionsda içeri aktarması gerekir.

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