HtmlElementInsertionOrientation HtmlElementInsertionOrientation HtmlElementInsertionOrientation HtmlElementInsertionOrientation Enum

定義

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
継承
HtmlElementInsertionOrientationHtmlElementInsertionOrientationHtmlElementInsertionOrientationHtmlElementInsertionOrientation

フィールド

AfterBegin AfterBegin AfterBegin AfterBegin 1

現在の要素の後、かつ、現在の要素に含まれるその他すべてのコンテンツの前に要素を挿入します。Insert the element after the current element, but before all other content in the current element.

AfterEnd AfterEnd AfterEnd AfterEnd 3

現在の要素の後、かつ、現在の要素に含まれるその他すべてのコンテンツの後に要素を挿入します。Insert the element after the current element, but after all other content in the current element.

BeforeBegin BeforeBegin BeforeBegin BeforeBegin 0

現在の要素の前に要素を追加します。Insert the element before the current element.

BeforeEnd BeforeEnd BeforeEnd BeforeEnd 2

現在の要素の後に要素を追加します。Insert the element after the current element.

次のコード例の挿入、DIV要素を 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. 例では、フォームが含まれている必要があります、WebBrowserという名前のコントロールWebBrowser1します。The example requires that your form contains a WebBrowser control named WebBrowser1. 例では、名前空間をインポートする必要がありますもSystem.Text.RegularExpressionsします。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

適用対象