Sdílet prostřednictvím

HtmlElement.DomElement Vlastnost

  • Reference

Definice

Obor názvů:
System.Windows.Forms
Sestavení:
System.Windows.Forms.dll

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ý můžete přetypovat na jedno z rozhraní elementů HTML, jako je IHTMLElement.

Příklady

Následující příklad kódu používá nespravovaná rozhraní k pořízení 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 váš formulář má WebBrowser ovládací prvek s názvem WebBrowser1, a ž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 As mshtml.IHTMLDocument2 = WebBrowser1.Document.DomDocument

        If (Not (IDoc Is Nothing)) Then
            Dim ISelect As mshtml.IHTMLSelectionObject = IDoc.selection
            If (ISelect Is Nothing) Then
                MsgBox("Please select some text before using this command.")
                Exit Sub
            End If

            Dim TxtRange As mshtml.IHTMLTxtRange = 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 model DOM (Document Object Model) aplikace Internet Explorer, 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, jako IHTMLElementje například , můžete tento objekt použít k dotazování na ně.

Abyste mohli používat nespravovaná rozhraní, budete muset do své aplikace importovat knihovnu MSHTML (mshtml.dll). Pomocí metody ale můžete také spustit nevyexponované vlastnosti a metody Invoke .

Platí pro

Viz také