ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по MSHTML
5 сообщений из 5, страница 1 из 1
Вопрос по MSHTML
    #33188838
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Вопрос, похоже, адресуется в первую очередь marvan'у.

В WebBrowser гружу страничку, динамически добавляю на нее элементы с onclick="javascript:somefunc();", но эта somefunc изначально в html-файле не описана. Пытаюсь добавить скрипт:
Код: plaintext
1.
    Set scr = Doc.createElement("<script language=javascript>") 
    Doc.appendChild scr

Элемент добавляется, но внедрить в него текст функции не получается. На scr.outer/innerHTML = "function somefunc {..." выдает ошибку. Если загнать весть текст скрипта в createElement, в outerHTML все равно пусто. Еще попробовал написать somefunc в коде программы и сделать element.attachEvent "onclick", AddressOf somefunc - выдает ошибку несовпадения типов.

Можно ли вообще как-нибудь внедрить скрипт в загуженный документ, чтобы элементы могли ими пользоваться?
...
Рейтинг: 0 / 0
28.07.2005, 11:53:06
| Ответить | Цитировать | Написать  
Вопрос по MSHTML
    #33188932
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
внедрите вот такую строку
<SCRIPT language="JavaScript" src="scripts.js" type="text/javascript"></SCRIPT>
...
Рейтинг: 0 / 0
28.07.2005, 12:12:12
| Ответить | Цитировать | Написать  
Вопрос по MSHTML
    #33189021
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Не подходит. Текст скрипта должен содержаться только в экзешнике.
...
Рейтинг: 0 / 0
28.07.2005, 12:33:10
| Ответить | Цитировать | Написать  
Вопрос по MSHTML
    #33192621
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Код: plaintext
1.
\'References: Microsoft HTML Object Library\'Controls: Microsoft Internet Controls\'добавить на форму WebBrowser с именем WebBrowser1Private Sub Form_Load()    Dim mStr As String    Dim mDoc As MSHTML.IHTMLDocument    Dim mHTMLDocument As MSHTML.HTMLDocument    \'загрузка простого документа    WebBrowser1.navigate "res://mshtml.dll/blank.htm"    While WebBrowser1.document Is Nothing    \'ждём создания документа        DoEvents    Wend    Set mDoc = WebBrowser1.document    mStr = "<html>" & _           "  <head><style type=""text/css"">" & _           "    body {overflow-y: visible;}" & _           "    span {color: #003DB2;}" & _           "    li   {cursor: hand;}" & _           "  </style>" & _           "  </head><body>" & _           "  <ul>" & _           "    <li id=""li1"" sel=""1"">пункт <span>1</span></li>" & _           "    <li id=""li2"" sel=""0"">пункт <span>2</span> " & _           "    (не активен)</li>" & _           "    <li id=""li3"" sel=""1"">пункт <span>3</span></li>" & _           "  </ul>" & _           "  <div id=""txtout"">нужно кликнуть по списку</div>" & _           "</body></html>"    \'меняем содержание всего документа    mDoc.Write mStr    Set mDoc = Nothing    \'присваиваем html документ    Set mHTMLDocument = WebBrowser1.document        \'добавляем обработку событий с помощью JavaScript    Dim scr As IHTMLScriptElement    With mHTMLDocument        \'создаём скрипт        Set scr = .createElement("script")        scr.Type = "text/javascript"        \'задаём текст скрипта        scr.Text = _            "function clickIt() {" & _            "txtout.innerHTML = " & _            """выбран: "" + window.event.srcElement.outerText;}"        .appendChild scr        \'задаём обработку событий для указанных элементов        .parentWindow.execScript _            "li1.attachEvent (\'onclick\',clickIt);" & _            "li3.attachEvent (\'onclick\',clickIt);"    End WithEnd Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
29.07.2005, 21:20:46
| Ответить | Цитировать | Написать  
Вопрос по MSHTML
    #33193546
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Спасибо. А то пришлось извращаться через IFRAME
...
Рейтинг: 0 / 0
01.08.2005, 09:41:07
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по MSHTML
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33188932&tid=2167416]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 69ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 220ms
total:  384ms
созд. / загр.: 384ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]