Vorgehensweise: Ändern von Formaten eines Elements im verwalteten HTML-Dokumentobjektmodell

Artikel
05/04/2023

Sie können in HTML mithilfe von Stilen das Aussehen eines Dokuments und der zugehörigen Elemente steuern. HtmlDocument und HtmlElement unterstützen Style-Eigenschaften, die Formatzeichenfolgen des folgenden Formats verwenden:

name1:value1;...;nameN:valueN;

Hier sehen Sie ein DIV mit einer Formatzeichenfolge, durch die die Schriftart auf Arial festgelegt und der gesamte Text in Fettdruck dargestellt wird:

<DIV style="font-face:arial;font-weight:bold;">
Hello, world!
</DIV>

Das Problem bei der Bearbeitung von Stilen mit der Style-Eigenschaft besteht darin, dass es umständlich sein kann, einzelne Formateinstellungen über die Zeichenfolge hinzuzufügen oder zu entfernen. Es wäre zum Beispiel kompliziert, den vorherigen Text kursiv darzustellen, wenn der Benutzer den Cursor über dem DIV-Element positioniert, und die Kursivschrift zu entfernen, wenn der Cursor das DIV-Element verlässt. Wenn Sie eine große Anzahl von Stilen auf diese Weise bearbeiten müssen, wird der Zeitaufwand zu groß.

Das folgende Verfahren enthält Code, mit dem Sie auf einfache Weise Stile für HTML-Dokumente und -Elemente bearbeiten können. Für dieses Verfahren müssen Sie wissen, wie man grundlegende Aufgaben in Windows Forms ausführt, beispielsweise das Erstellen eines neuen Projekts und das Hinzufügen eines Steuerelements zu einem Formular.

So verarbeiten Sie Formatänderungen in einer Windows Forms-Anwendung

Erstellen Sie ein neues Windows Forms-Projekt.
Erstellen Sie eine neue Klassendatei mit der passenden Erweiterung für Ihre Programmiersprache.
Kopieren Sie den Code der Klasse StyleGenerator aus dem Beispielabschnitt in diesem Thema in die Klassendatei, und speichern Sie den Code.

Speichern Sie den folgenden HTML-Code in einer Datei mit dem Namen „Test.htm“.

<HTML>
    <BODY>

        <DIV style="font-face:arial;font-weight:bold;">
            Hello, world!
        </DIV><P>

        <DIV>
            Hello again, world!
        </DIV><P>

    </BODY>
</HTML>

Fügen Sie ein WebBrowser-Steuerelement mit dem Namen webBrowser1 in das Hauptformular Ihres Projekts ein.

Fügen Sie den folgenden Code in die Codedatei Ihres Projekts ein.

Wichtig

Stellen Sie sicher, dass der Ereignishandler webBrowser1_DocumentCompleted als Listener für das Ereignis DocumentCompleted konfiguriert ist. Doppelklicken Sie in Visual Studio auf das Steuerelement WebBrowser. In einem Text-Editor können Sie den Listener programmgesteuert konfigurieren.

StyleGenerator sg = null;
HtmlElement elem = null;

private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
    sg = new StyleGenerator();

    webBrowser1.Document.MouseOver += new HtmlElementEventHandler(Document_MouseOver);
    webBrowser1.Document.MouseLeave += new HtmlElementEventHandler(Document_MouseLeave);
}

void Document_MouseOver(object sender, HtmlElementEventArgs e)
{
    elem = webBrowser1.Document.GetElementFromPoint(e.MousePosition);
    if (elem.TagName.Equals("DIV"))
    {
        sg.ParseStyleString(elem.Style);
        sg.SetStyle("font-style", "italic");
        elem.Style = sg.GetStyleString();
    }
}

void Document_MouseLeave(object sender, HtmlElementEventArgs e)
{
    if (elem != null)
    {
        sg.RemoveStyle("font-style");
        elem.Style = sg.GetStyleString();
        // Reset, since we may mouse over a new DIV element next time.
        sg.Clear();
    }
}

Public Class Form1

    Dim SG As StyleGenerator = Nothing
    Dim Elem As HtmlElement = Nothing
    Dim WithEvents DocumentEvents As HtmlDocument

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        SG = New StyleGenerator()
        DocumentEvents = WebBrowser1.Document
    End Sub

    Private Sub Document_MouseOver(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles DocumentEvents.MouseOver
        Elem = WebBrowser1.Document.GetElementFromPoint(e.MousePosition)
        If Elem.TagName.Equals("DIV") Then
            SG.ParseStyleString(Elem.Style)
            SG.SetStyle("font-style", "italic")
            Elem.Style = SG.GetStyleString()
        End If
    End Sub

    Private Sub Document_MouseLeave(ByVal sender As Object, ByVal e As HtmlElementEventArgs) Handles DocumentEvents.MouseLeave
        If (Elem IsNot Nothing) Then
            SG.RemoveStyle("font-style")
            Elem.Style = SG.GetStyleString()
            ' Reset, since we may mouse over a new DIV element next time.
            SG.Clear()
        End If
    End Sub
End Class

Führen Sie das Projekt aus. Bewegen Sie den Cursor über das erste DIV-Element, um die Auswirkungen des Codes zu beobachten.

Beispiel

Das folgende Codebeispiel zeigt den vollständigen Code für die Klasse StyleGenerator, die einen vorhandenen Stilwert analysiert, das Hinzufügen, Ändern und Entfernen von Stilen unterstützt und einen neuen Stilwert mit den angeforderten Änderungen zurückgibt.

using System;
using System.Collections.Generic;
using System.Text;

namespace ManagedDOMStyles
{
    public class StyleGenerator
    {
        private Dictionary<string, string> styleDB;

        public StyleGenerator()
        {
            styleDB = new Dictionary<string, string>();
        }

        public bool ContainsStyle(string name)
        {
            return(styleDB.ContainsKey(name));
        }

        public string SetStyle(string name, string value)
        {
            string oldValue = "";

            if (!(name.Length > 0))
            {
                throw (new ArgumentException("Parameter name cannot be zero-length."));
            }
            if (!(value.Length > 0))
            {
                throw (new ArgumentException("Parameter value cannot be zero-length."));
            }

            if (styleDB.ContainsKey(name))
            {
                oldValue = styleDB[name];
            }

            styleDB[name] = value;

            return (oldValue);
        }

        public string GetStyle(string name)
        {
            if (!(name.Length > 0))
            {
                throw (new ArgumentException("Parameter name cannot be zero-length."));
            }

            if (styleDB.ContainsKey(name))
            {
                return (styleDB[name]);
            }
            else
            {
                return ("");
            }
        }

        public void RemoveStyle(string name)
        {
            if (styleDB.ContainsKey(name))
            {
                styleDB.Remove(name);
            }
        }

        public string GetStyleString()
        {
            if (styleDB.Count > 0)
            {
                StringBuilder styleString = new StringBuilder("");
                foreach (string key in styleDB.Keys)
                {
                    styleString.Append(String.Format("{0}:{1};", (object)key, (object)styleDB[key]));
                }

                return (styleString.ToString());
            }
            else
            {
                return ("");
            }
        }

        public void ParseStyleString(string styles)
        {
            if (styles.Length > 0)
            {
                string[] stylePairs = styles.Split(new char[] { ';' });
                foreach(string stylePair in stylePairs)
                {
                    if (stylePairs.Length > 0)
                    {
                        string[] styleNameValue = stylePair.Split(new char[] { ':' });
                        if (styleNameValue.Length == 2)
                        {
                            styleDB[styleNameValue[0]] = styleNameValue[1];
                        }
                    }
                }
            }
        }

        public void Clear()
        {
            styleDB.Clear();
        }
    }
}

Imports System.Collections.Generic
Imports System.Text

Public Class StyleGenerator
    Dim styleDB As Dictionary(Of String, String)

    Public Sub New()
        styleDB = New Dictionary(Of String, String)()
    End Sub


    Public Function ContainsStyle(ByVal name As String) As Boolean
        Return styleDB.ContainsKey(name)
    End Function


    Public Function SetStyle(ByVal name As String, ByVal value As String) As String
        Dim oldValue As String = ""

        If (Not name.Length > 0) Then
            Throw New ArgumentException("Parameter name cannot be zero-length.")
        End If
        If (Not value.Length > 0) Then
            Throw New ArgumentException("Parameter value cannot be zero-length.")
        End If

        If (styleDB.ContainsKey(name)) Then
            oldValue = styleDB(name)
        End If

        styleDB(name) = value

        Return oldValue
    End Function

    Public Function GetStyle(ByVal name As String) As String
        If (Not name.Length > 0) Then
            Throw New ArgumentException("Parameter name cannot be zero-length.")
        End If

        If (styleDB.ContainsKey(name)) Then
            Return styleDB(name)
        Else
            Return ""
        End If
    End Function

    Public Sub RemoveStyle(ByVal name As String)
        If (styleDB.ContainsKey(name)) Then
            styleDB.Remove(name)
        End If
    End Sub

    Public Function GetStyleString() As String
        If (styleDB.Count > 0) Then
            Dim styleString As New StringBuilder("")
            Dim key As String
            For Each key In styleDB.Keys
                styleString.Append(String.Format("{0}:{1};", CType(key, Object), CType(styleDB(key), Object)))
            Next key

            Return styleString.ToString()
        Else
            Return ""
        End If
    End Function

    Public Sub ParseStyleString(ByVal styles As String)
        If (styles.Length) > 0 Then
            Dim stylePairs As String() = styles.Split(New Char() {";"c})
            Dim stylePair As String
            For Each stylePair In stylePairs
                If (stylePairs.Length > 0) Then
                    Dim styleNameValue As String() = stylePair.Split(New Char() {":"c})
                    If (styleNameValue.Length = 2) Then
                        styleDB(styleNameValue(0)) = styleNameValue(1)
                    End If
                End If
            Next stylePair
        End If
    End Sub


    Public Sub Clear()
        styleDB.Clear()
    End Sub
End Class

Weitere Informationen

HtmlElement

Freigeben über

Vorgehensweise: Ändern von Formaten eines Elements im verwalteten HTML-Dokumentobjektmodell

So verarbeiten Sie Formatänderungen in einer Windows Forms-Anwendung

Beispiel

Weitere Informationen

Feedback

Zusätzliche Ressourcen