Получить элемент

WebBrowser

Получить список системных шрифтов. 1

Переменные. 1

Отобразить документ: 1

Разрешить редактирование Документа. 1

События с документом.. 2

'СПОСОБ №1. 2

'СПОСОБ №2. 2

Получить элемент. 2

Перейти к нужному элементу. 3

Получить текст элемента в TxtRange. 3

Задать HTML в TxtRange. 3

Перейти скролом.. 3

Убрать запрос «Сохранить изменения». 3

Параметры бумаги. 3

Предпросмотр. 3

Печать. 4

Запуск страницы в браузере. 4

Команды ExecCommand. 4

Команды queryCommandValue. 4

Поиск. 4

Получить список системных шрифтов

'Список шрифтов

For X = 0 To System.Drawing.FontFamily.Families.Length - 1

FontCombo.Items.Add(System.Drawing.FontFamily.Families(X).Name)

Next

FontCombo.SelectedIndex = 0

FontCombo.Text = "Times New Roman"

Переменные

Private WithEvents Dok As HtmlDocument 'объявляем документ с событиями

Private selElDoc As MSHTML.IHTMLElement 'объявляем элемент

Private Const WM_RBUTTONDOWN As Integer = &H204 '

Private TxtRn As MSHTML.IHTMLTxtRange 'объявляем Текст Ранж

Отобразить документ:

WebBrowser1.Navigate(New System.Uri("txt.htm"))

'перед использованием DocumentText необходимо инициализировать Document

'например так WebBrowser1.Navigate("about:blank")

WebBrowser1.DocumentText = DocText

Разрешить редактирование Документа

WebBrowser1.ActiveXInstance.Document.DesignMode = "on"

'в документ разрешено вводить текст

События с документом

СПОСОБ №1

'Объявляем Документ с событиями:

Private WithEvents Dok As HtmlDocument

'Обрабатываем событие DocumentCompleted – возникает когда док. загрузился полностью

Private Sub WebBrowser1_DocumentCompleted(ByVal eventSender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Dok = Me.WebBrowser1.Document 'присвоили переменной загруженный документ

End Sub

'Далее создаем Sub с событием документа

Private Sub Dok_MouseDown(ByVal Sender As HtmlDocument, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles Dok.MouseDown

Private Sub Dok_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles Dok.MouseUp

'и т.д.

СПОСОБ №2

'Обрабатываем событие DocumentCompleted – возникает когда док. загрузился полностью

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Dim document As HtmlDocument = WebBrowser1.Document

'Объявляем событие KeyDown

AddHandler document.Body.KeyDown, New HtmlElementEventHandler(AddressOf WebBrowser1_KeyDown)

'Объявляем событие MouseDown

AddHandler document.Body.MouseDown, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseDown)

End Sub

Private Sub WebBrowser1_KeyDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)

If e.CtrlKeyPressed And e.KeyPressedCode <> Keys.ControlKey Then

'CTRL+Какая-тоКнопка нажаты.

Debug.WriteLine("CTRL + " & Chr(e.KeyPressedCode))

ElseIf e.ShiftKeyPressed And e.KeyPressedCode <> Keys.ShiftKey Then

'SHIFT+ Какая-тоКнопка нажаты.

Debug.WriteLine("SHIFT + " & Chr(e.KeyPressedCode))

ElseIf e.AltKeyPressed AndAlso e.KeyPressedCode <> Keys.Alt Then

'ALT+ Какая-тоКнопка нажаты.

Debug.WriteLine("ALT + " & Chr(e.KeyPressedCode))

Else

'Какая-тоКнопка нажата отдельно.

Debug.WriteLine(Chr(e.KeyPressedCode))

End If

End Sub

Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)

If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Left Then

'MouseDown событие, если кнопка мыши левая, выводим координаты

Debug.WriteLine("MouseDown at " & e.MousePosition.X & "," & e.MousePosition.Y)

End If

End Sub

Получить элемент

'получить элемент где пользователь поставил курсор

selElDoc = Sender.DomDocument.parentWindow.event.srcElement()

'получить все элементы TABLE в массив элементов

Dim TabAll As System.Windows.Forms.HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("TABLE")

'получить элемент где ID = А1

WebBrowser1.Document.GetElementById("А1")

'получить Весь HTML код докумена

Dim DocText As String = WebBrowser1.DocumentText

Дата добавления: 2015-11-28