Partager via


HtmlElement.DomElement Propriété

Définition

Obtient un pointeur d'interface non managée pour cet élément.

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

Valeur de propriété

Pointeur IUnknown COM pour l'élément, pour lequel vous pouvez effectuer un cast en l'une des interfaces d'élément HTML, telles que IHTMLElement.

Exemples

L’exemple de code suivant utilise des interfaces non managées pour prendre le texte sélectionné et le convertir en lien hypertexte, avec l’URL choisie par l’utilisateur. Ce code a été écrit en partant du principe que votre formulaire possède un WebBrowser contrôle nommé WebBrowser1et que vous avez ajouté la bibliothèque MSHTML non managée en tant que référence à votre projet.

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

Remarques

HtmlElement est un wrapper pour le dom (Document Object Model) d’Internet Explorer, qui est écrit à l’aide du modèle COM (Component Object Model). Si vous devez accéder aux propriétés ou méthodes non exposées sur les interfaces COM sous-jacentes, telles que IHTMLElement, vous pouvez utiliser cet objet pour les interroger.

Pour utiliser les interfaces non managées, vous devez importer la bibliothèque MSHTML (mshtml.dll) dans votre application. Toutefois, vous pouvez également exécuter des propriétés et des méthodes non exposées à l’aide de la Invoke méthode .

S’applique à

Voir aussi