Релиб / Программирование / .NET / VB.NET / Как запустить процедуру в аппликации из HTML документа / Latest Posts

RE: Как запустить процедуру в аппликации из HTML документа

kpoxa — Tue, 28 Nov 2006 13:31:01 GMT

Да, к стати, в DHTML я видел пример как динамически добавить обработчик к форме. Для этого обработчик должен находится в JS или VBS того же документа. И тогда этго делается так

FORM.onsubmit = GetRef("DoOnSubmit")

Вопрос заключается в том, что именно возвращает GetRef и есть ли его эквивалент в VB.NET ?

RE: Как запустить процедуру в аппликации из HTML документа

kpoxa — Tue, 28 Nov 2006 13:03:35 GMT

XML это хорошо, но у меня проблема в том, что формы я получаю от пользователя, который может создать их средствами HTML. Он не обязан быть знаком с XML, а так же у него нет никакой информации о строении и функциях моей програмы.

Что касается привязки элемента к обработчику.
Если я декларирую переменную так

Dim WithEvents frmSubmit As HtmlElement

а затем нахожу елемет формы и привязываю его к этой переменной, то у меня нет проблемы с привязкой обработчика для HTMLElement, но у такого элемента нет события onsubmit.

Если же я декларирую переменную так

Dim WithEvents frmSubmit As mshtml.HTMLFormElement

а затем инициирую его

frmSubmit = wb.Document.Forms(0).DomElement

то в этом случае моя форма превращается в ReadOnly и ни один контроль не может быть изменен или активирован. Кроме того обработчики тоже имеют различия, если для HTMLElement.Click обработчик должен быть в виде

Private Sub OnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles frmSubmit.Click

то для mshtml.IHTMLFormElement он будет иметь вид

Private Function frmSubmit_onsubmit() As Boolean Handles frmSubmit.onsubmit

В общем на данном этапе я зашел в тупик.

RE: Как запустить процедуру в аппликации из HTML документа

bazile — Tue, 28 Nov 2006 12:24:21 GMT

Попробуй находить элемент формы в документе, приводить его к IHTMLFormElement и назначать обработчик события onsubmit.

Единственное я не уверен что для данной задачи стоит использовать HTML. У нас возникала аналогичная задача и наши программисты сделали описание формы с элементами формы в виде XML файла и строили форму на лету из него.

RE: Как запустить процедуру в аппликации из HTML документа

kpoxa — Mon, 27 Nov 2006 16:08:40 GMT

Добрался я до всех елементов ввода в Form и получил значения измененные пользователем (мне даже удалось перехватить событие onclick кнопки Submit). Но мне по прежнему не удается перехватить событие onsubmit формы.

К примеру, если я создаю документ в ручную, и дописываю ему такую форму
[code]
<form name=NameInput method=get action=about:blank>
Введите ваше имя <input type=text name=strName size=20 value="Type Here"><br>

<input type=submit value=Submit>
</form>
[/code]
то я могу получить внесенные пользователем данные так (из кода VB)
[code]
Dim frm As HtmlElement = wb.Document.Forms(0)
For Each e As HtmlElement In frm.All
If (e.TagName = "INPUT" AndAlso e.DomElement.type = "text") Then
Dim t As mshtml.IHTMLInputTextElement = e.DomElement
MsgBox("Field " + t.name + " has value " + t.value)
End If
Next
[/code]

Если дописываемый документ будет выглядеть так
[code]
<script language=vbs>
Sub DoOnSubmit()
MsgBox("Message from the internal HTML script.")
End Sub
</script>
<form name=NameInput method=get
action=about:blank onsubmit="DoOnSubmit()">
Введите ваше имя <input type=text name=strName
size=20 value="Type Here"><br>

<input type=submit value=Submit>
</form>
[/code]
то при нажатии на кнопку Submit я увижу сообщение
"Message from the internal HTML script."

Скажем если в VB у меня есть функция
[code]
Public Sub DoOnSubmitVB()
MsgBox("Message from the VB on submit.")
End Sub
[/code]

Каким образом я могу добавить её к форме NameInput в HTML ?

RE: Как запустить процедуру в аппликации из HTML документа

kpoxa — Thu, 23 Nov 2006 14:59:09 GMT

Да, хочу добавить, что при нажатии на кнопку Submit мне надо получить введенные или выбранные данные, провести парсинг на полученный URL, извлечь по именам измененные переменные и из заначения, и затем продолжать внутреннею работу с этими заначениями.

RE: Как запустить процедуру в аппликации из HTML документа

kpoxa — Thu, 23 Nov 2006 14:55:06 GMT

Для мною созданного динамического HTML я действительно могу присвоить ему ID, спасибо что напомнили. Для файлов загруженных извне, это проблематично, так как я не могу обязать пользователя задавать всем контролям ID's что мне надо, да еще и быть уверенным что он не ошибся при вводе.

Конечный результат должен выглядеть как обычная VB форма, с Lebels, TextBoxes, ComboBoxes ... Buttons. Только форма создается с помощью HTML и со всеми его преимуществами форматирования, дезайна, CSS и т.д. Возможно, мне каким либо образом помогли бы скрипты (VB или JavaScript), но я не знаю как интегрировать такой скрипт из HTML в обычный VB код.

RE: Как запустить процедуру в аппликации из HTML документа

bazile — Thu, 23 Nov 2006 14:16:42 GMT

Чтобы добраться до кнопки submit можно присвоить ей id и получать объект с помошью вызова document.getElementById.

Только я не смог понять конечной цели всех этих манипуляций.

Как запустить процедуру в аппликации из HTML документа

kpoxa — Thu, 23 Nov 2006 13:02:06 GMT

К примеру есть форма (окно) с WebBrowser в нём. Загружаем с помощью wb.Navigate некий HTML файл с тегом Form внутри.

[code]
<form name=MyForm1 method=GET action="">
<input type=submit value=Submit name=Submit onclick="DoIt()">
</form>
[/code]

Мне надо чтобы Submit запустил процедуру окна DoIt а так же содержимое всех INPUT тегов из формы (получим URL в виде myform.htm?a=abc&b=1234&c=myval).
Можно ли сделать это одним из следующих вариантов:
1. Через спецификацию имени процедуры в onclick кнопки Submit
2. Динамически добавить к кнопке Submit handle на процедуру DoIt
3. Может каким либо другим способом?

Сейчас я делаю это примерно так

[code]
Public Class frmMain

Dim WithEvents submit As HtmlElement
Dim bSubmitted As Boolean

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

wb.Navigate("myform.htm")
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, frm As HtmlElement
Dim i As Integer

submit = Nothing

If (bSubmitted = False) Then
If (doc.Forms.Count = 1) Then

frm = doc.Forms(0)

For Each elem As HtmlElement In frm.All

If (elem.TagName = "INPUT") Then
Dim cls As mshtml.HTMLInputButtonElement

cls = elem.DomElement
If (cls.type = "submit") Then
submit = elem
bSubmitted = False
End If
End If

Next
End If

Else
MsgBox(doc.Url.ToString)
bSubmitted = False
Me.Close()
End If

End Sub

'Выполняет роль DoIt в данном примере
Private Sub submit_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles submit.Click
bSubmitted = True
End Sub

End Class

[/code]

В связи с этим кодом вопрос, можно ли получить более быстрый и простой доступ к кнопке Submit?

Если есть более изящные возможности то просьба описать их.

В конечном результате, хотелось бы создать аппликацию, онованную на динамически создаваемой HTML форме с полноценной обработкой оконный событий.