HtmlElement.DomElement プロパティ
定義
重要
一部の情報は、リリース前に大きく変更される可能性があるプレリリースされた製品に関するものです。 Microsoft は、ここに記載されている情報について、明示または黙示を問わず、一切保証しません。
この要素のアンマネージ インターフェイス ポインターを取得します。
public:
property System::Object ^ DomElement { System::Object ^ get(); };
public object DomElement { get; }
member this.DomElement : obj
Public ReadOnly Property DomElement As Object
プロパティ値
COM IUnknown 要素のポインターです。このポインターは、 IHTMLElementなどの HTML 要素インターフェイスのいずれかにキャストできます。
例
次のコード例では、アンマネージド インターフェイスを使用して、現在選択されているテキストを取得し、ユーザーが選択した URL を持つハイパーリンクに変換します。 このコードは、フォームに WebBrowser という名前のWebBrowser1 コントロールがあり、アンマネージド MSHTML ライブラリをプロジェクトへの参照として追加したという前提で記述されています。
private void CreateHyperlinkFromSelection()
{
if (webBrowser1.Document != null)
{
MSHTML.IHTMLDocument2 iDoc = (MSHTML.IHTMLDocument2)webBrowser1.Document.DomDocument;
if (iDoc != null)
{
MSHTML.IHTMLSelectionObject iSelect = iDoc.selection;
if (iSelect == null)
{
MessageBox.Show("Please select some text before using this command.");
return;
}
MSHTML.IHTMLTxtRange txtRange = (MSHTML.IHTMLTxtRange)iSelect.createRange();
// Create the link.
if (txtRange.queryCommandEnabled("CreateLink"))
{
Object o = null;
txtRange.execCommand("CreateLink", true, o);
}
}
}
}
Private Sub CreateHyperlinkFromSelection()
If (WebBrowser1.Document IsNot Nothing) Then
Dim IDoc = WebBrowser1.Document.DomDocument
If (Not (IDoc Is Nothing)) Then
Dim ISelect = IDoc.selection
If (ISelect Is Nothing) Then
MsgBox("Please select some text before using this command.")
Exit Sub
End If
Dim TxtRange = ISelect.createRange()
' Create the link.
If (TxtRange.queryCommandEnabled("CreateLink")) Then
TxtRange.execCommand("CreateLink", True)
End If
End If
End If
End Sub
注釈
HtmlElement は、コンポーネント オブジェクト モデル (COM) を使用して書き込まれるInternet Explorer ドキュメント オブジェクト モデル (DOM) のラッパーです。
IHTMLElementなど、基になる COM インターフェイス上の未露光のプロパティまたはメソッドにアクセスする必要がある場合は、このオブジェクトを使用してクエリを実行できます。
アンマネージド インターフェイスを使用するには、MSHTML ライブラリ (mshtml.dll) をアプリケーションにインポートする必要があります。 ただし、 Invoke メソッドを使用して、非公開のプロパティとメソッドを実行することもできます。