Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
WB.DocumentText = _
"<html><body></body></html>"
End Sub
Private Sub WB_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
'Dim doc As HtmlDocument = WB.Document
With WB.Document
Dim Link As HtmlElement = .CreateElement("a")
Link.SetAttribute("href", "http://ya.ru")
Link.InnerText = "Ссылка"
.Body.AppendChild(Link)
End With
Debug.WriteLine(WB.Document.Body.InnerHtml)
End Sub
Реализаия чата на WebBrowser'е. Или проблемы с WebBrowser
Перед тем как перестроить свой чат на WebBrowser облазил весь локальный MSDN про него, HTMLDocument, HTMLElement и подобное.
Решил создать тренировочный проект.... все получилось (хотя не сразу). Но есть немного странного.
WB - это WebBrowser
Код должен отобразить ссылку с переходом на ya.ru. Внешне она появляется, Debug.WriteLine(WB.Document.Body.InnerHtml) выводит <A href="http://ya.ru">Ссылка</A>, все вродебы прекрасно, но только в WB.DocumentText остается старый код и нет в коде ссылки. Ждать безполезно(мол вдруг грузится). Если вызвать контекстное меню и нажать "Просмотр HTML-кода", то там тоже старый код. Почему? внешне се появляется а на коде это не отображается? или так и должно?
Решил создать тренировочный проект.... все получилось (хотя не сразу). Но есть немного странного.
WB - это WebBrowser
Код:
Код должен отобразить ссылку с переходом на ya.ru. Внешне она появляется, Debug.WriteLine(WB.Document.Body.InnerHtml) выводит <A href="http://ya.ru">Ссылка</A>, все вродебы прекрасно, но только в WB.DocumentText остается старый код и нет в коде ссылки. Ждать безполезно(мол вдруг грузится). Если вызвать контекстное меню и нажать "Просмотр HTML-кода", то там тоже старый код. Почему? внешне се появляется а на коде это не отображается? или так и должно?
сейчас делаю смайлы на WebBrowser и опять какая-то дребедень. Не выполнется обычное событие/скрипт. Код:
В Debug'е имеем:
Во-первых, почему он меняет регистр и во-вторых - почему не срабатывает.
Кстати, если этот код, полученный в Debug'е (окно интерапции) засунуть в обычный txt, переименовать в html, то обычный ИЕ 7 его норм выполняет, что за? помогите. Неужели он не поддерживает выполнение скриптов?
Код:
With WBSmiles.Document
For Each Path As String In Paths
smile = .CreateElement("img")
smile.SetAttribute("src", Path)
smile.SetAttribute("onMouseOver", "alert('Хей!');")
.Body.AppendChild(smile)
Next
Debug.WriteLine(.Body.InnerHtml)
End With
For Each Path As String In Paths
smile = .CreateElement("img")
smile.SetAttribute("src", Path)
smile.SetAttribute("onMouseOver", "alert('Хей!');")
.Body.AppendChild(smile)
Next
Debug.WriteLine(.Body.InnerHtml)
End With
В Debug'е имеем:
Код:
<IMG onmouseover="alert('Хей!');" height=20 src="C:\1.bmp" width=10><IMG onmouseover="alert('Хей!');" height=20 src="C:\2.bmp" width=14>
Во-первых, почему он меняет регистр и во-вторых - почему не срабатывает.
Кстати, если этот код, полученный в Debug'е (окно интерапции) засунуть в обычный txt, переименовать в html, то обычный ИЕ 7 его норм выполняет, что за? помогите. Неужели он не поддерживает выполнение скриптов?