Partager via


HtmlDocument.GetElementsByTagName(String) Méthode

Définition

Récupère une collection d’éléments avec l’étiquette HTML spécifiée.

public:
 System::Windows::Forms::HtmlElementCollection ^ GetElementsByTagName(System::String ^ tagName);
public System.Windows.Forms.HtmlElementCollection GetElementsByTagName (string tagName);
member this.GetElementsByTagName : string -> System.Windows.Forms.HtmlElementCollection
Public Function GetElementsByTagName (tagName As String) As HtmlElementCollection

Paramètres

tagName
String

Nom de la balise HTML pour les objets HtmlElement que vous souhaitez récupérer

Retours

HtmlElementCollection

Collection d'éléments dont le nom de la balise est identique à l'argument tagName.

Exemples

Les pages HTML utilisent souvent la META balise pour incorporer des informations arbitraires sur le document. L’exemple de code HTML suivant récupère toutes les META balises dans un document HTML, recherche la balise avec le META nom Descriptionet l’affiche à l’utilisateur. L’exemple de code nécessite que votre application dispose d’un WebBrowser contrôle nommé WebBrowser1.

private void DisplayMetaDescription()
{
    if (webBrowser1.Document != null)
    {
        HtmlElementCollection elems = webBrowser1.Document.GetElementsByTagName("META");
        foreach (HtmlElement elem in elems)
        {
            String nameStr = elem.GetAttribute("name");
            if (nameStr != null && nameStr.Length != 0)
            {
                String contentStr = elem.GetAttribute("content");
                MessageBox.Show("Document: " + webBrowser1.Url.ToString() + "\nDescription: " + contentStr);
            }
        }
    }
}
Private Sub DisplayMetaDescription()
    If (WebBrowser1.Document IsNot Nothing) Then
        Dim Elems As HtmlElementCollection 
        Dim WebOC as WebBrowser = WebBrowser1

    Elems = WebOC.Document.GetElementsByTagName("META")

        For Each elem As HtmlElement In Elems
            Dim NameStr As String = elem.GetAttribute("name")

            If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
                If NameStr.ToLower().Equals("description") Then
                    Dim ContentStr As String = elem.GetAttribute("content")
                    MessageBox.Show("Document: " & WebOC.Url.ToString() & vbCrLf & "Description: " & ContentStr)
                End If
            End If
        Next
    End If
End Sub

S’applique à

Voir aussi