Condividi tramite

HtmlElement.DomElement Proprietà

  • Riferimento

Definizione

Spazio dei nomi:
System.Windows.Forms
Assembly:
System.Windows.Forms.dll

Ottiene un puntatore a un'interfaccia non gestita relativo a questo elemento.

public:
 property System::Object ^ DomElement { System::Object ^ get(); };
public object DomElement { get; }
member this.DomElement : obj
Public ReadOnly Property DomElement As Object

Valore della proprietà

Object

Puntatore COM IUnknown dell'elemento, di cui è possibile eseguire il cast a una delle interfacce dell'elemento HTML, ad esempio IHTMLElement.

Esempio

Nell'esempio di codice seguente vengono utilizzate interfacce non gestite per accettare il testo attualmente selezionato e convertirlo in un collegamento ipertestuale, con l'URL scelto dall'utente. Questo codice è stato scritto presupponendo che il modulo abbia un WebBrowser controllo denominato WebBrowser1e che sia stata aggiunta la libreria MSHTML non gestita come riferimento al progetto.

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

Commenti

HtmlElement è un wrapper per il DOM (Document Object Model) di Internet Explorer, scritto utilizzando il modello COM (Component Object Model). Se è necessario accedere a proprietà o metodi non esposti nelle interfacce COM sottostanti, ad esempio IHTMLElement, è possibile usare questo oggetto per eseguire una query.

Per usare le interfacce non gestite, è necessario importare la libreria MSHTML (mshtml.dll) nell'applicazione. Tuttavia, è anche possibile eseguire proprietà e metodi non esposti usando il Invoke metodo .

Si applica a

Vedi anche