Цвет текста

[artful84]

Люди, помогите советом, пожалуйста

Допустим я открываю страницу в WebBrowser. На ней расположен какой-то текст, который в разных местах имеет разный цвет. Как можно определить цвет части текста, желательно исключив возню с кодом страницы? И как скопировать текст, сохранив форматирование, в буфер обмена? Пробовал через SetText - цвет не сохраняется.

[alibek]

В браузере SetText работать не будет.
Либо работай со страницей (с ее кодом), либо через DOM.

[artful84]

В браузере SetText работать не будет.
Либо работай со страницей (с ее кодом), либо через DOM.

Прошу прощения, некорректно вопрос поставил.

Код: Выделить всё


Private Sub Command1_Click()
    Dim d As New MSHTML.HTMLDocument
    Set d = wb1.Document
    Clipboard.Clear
    Clipboard.SetText d.documentElement.innerText
    scode = d.documentElement.innerText
    Set d = Nothing
End Sub


Таким образом можно цвет получить (с помощью MS HTML Lib)? Если да, то дайте, пожалуйста, направление, куда копать

[dr.MIG]

Таким образом можно получить только сам текст, а что бы получить цвет... ничего не приходит на ум кроме, того, как получить из HTML кода значение цветов при помощи регулярных выражений или получать значение цвета при помощи myElement.getAttribute("color"), если конечно цвет задан через "color".

[Konst_One]

style смотри у элемента или смотри стиль для всего документа , если он задан через класс.

[artful84]

Все, спасибо всем. Разобрался.

[Antonariy]

Это зависит от того как задан цвет - через атрибут color, через стиль, через css. Соответственно и способы разные.
1. Как сказал dr.MIG
2. myElement.style.color
3. Придется разбирать таблицу стилей.

[Debugger]

Разбираем по частям на <FONT>, </font> и не фонт.