HtmlElement.InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement) HtmlElement.InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement) HtmlElement.InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement) HtmlElement.InsertAdjacentElement(HtmlElementInsertionOrientation, HtmlElement) Method

定義

新しい要素を 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

パラメーター

orient
HtmlElementInsertionOrientation HtmlElementInsertionOrientation HtmlElementInsertionOrientation HtmlElementInsertionOrientation

現在の要素を基準とした、この要素の挿入位置。Where to insert this element in relation to the current element.

newElement
HtmlElement HtmlElement HtmlElement HtmlElement

挿入する新しい要素。The new element to insert.

戻り値

挿入された HtmlElementThe HtmlElement that was just inserted. 挿入が失敗した場合は null を返します。If insertion failed, this will return null.

次のコード例では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 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

注釈

このメソッドは、 DocumentCompleted WebBrowserコントロールのイベントが発生するまで呼び出さないでください。Do not call this method until after the DocumentCompleted event on the WebBrowser control has occurred. ドキュメントが読み込みを完了しないため、その前にこのメソッドを呼び出すと例外が発生する可能性があります。Calling this method before then can result in an exception, as the document will not have finished loading.

HtmlElementInsertionOrientation値が有効かどうかは、要素の型によって異なります。Whether a value of HtmlElementInsertionOrientation is valid will depend on the type of the element. たとえば、 AfterBeginは、要素DIVがである場合には有効ですが、要素SCRIPTまたはIMG要素の場合は有効ではありません。子要素を含めることはできません。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.

適用対象

こちらもご覧ください