HtmlElement.DomElement Vlastnost

Definice

Obor názvů:

System.Windows.Forms

Sestavení:

System.Windows.Forms.dll

Zdroj:

HtmlElement.cs

Získá nespravovaný ukazatel rozhraní pro tento prvek.

public:
 property System::Object ^ DomElement { System::Object ^ get(); };

public object DomElement { get; }

member this.DomElement : obj

Public ReadOnly Property DomElement As Object

Hodnota vlastnosti

Object

Ukazatel modelu COM IUnknown pro prvek, který lze přetypovat na jedno z rozhraní elementů HTML, například IHTMLElement.

Příklady

Následující příklad kódu používá nespravovaná rozhraní k převzetí aktuálně vybraného textu a jeho převodu na hypertextový odkaz s adresou URL zvolenou uživatelem. Tento kód byl napsán za předpokladu, že formulář má WebBrowser ovládací prvek s názvem WebBrowser1a že jste přidali nespravovanou knihovnu MSHTML jako odkaz na váš projekt.

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

Poznámky

HtmlElement je obálka pro objektový model Internet Explorer dokumentu (DOM), který se zapisuje pomocí modelu COM (Component Object Model). Pokud potřebujete získat přístup k nevyexponovaným vlastnostem nebo metodám v podkladových rozhraních modelu COM, například IHTMLElement, můžete tento objekt použít k dotazování na ně.

Abyste mohli používat nespravovaná rozhraní, budete muset do aplikace importovat knihovnu MSHTML (mshtml.dll). Pomocí metody však můžete také spouštět nevyexponované vlastnosti a metody Invoke .

Viz také

• DomDocument
• IHTMLElement2 – rozhraní