HtmlDocument.GetElementsByTagName(String) Methode
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
Ruft eine Auflistung von Elementen mit dem angegebenen HTML-Tag ab.
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
Parameter
- tagName
- String
Der Name des HTML-Tags für die HtmlElement-Objekte, die Sie abrufen möchten.
Gibt zurück
Die Auflistung von Elementen, deren Tagname gleich dem tagName
-Argument ist.
Beispiele
HTML-Seiten verwenden häufig das META
Tag, um beliebige Informationen zum Dokument einzubetten. Im folgenden HTML-Codebeispiel werden alle META
Tags in einem HTML-Dokument abgerufen, das META
Tag mit dem Namen Description
gefunden und dem Benutzer angezeigt. Das Codebeispiel erfordert, dass Ihre Anwendung ein WebBrowser Steuerelement mit dem Namen " 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