Загружаю первую страницу:
- Код: Выделить всё
WebBrowser.Navigate "res://mshtml.dll/blank.htm"
While WebBrowser.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
Set mDoc = WebBrowser.Document
Set mIDoc = WebBrowser.Document
strHTML = StrConv(LoadResData("index.html", 23), vbUnicode)
mIDoc.write strHTML
На этой странице имеются гиперссылки на дугие документы, также находящиеся в ресурсах. Ссылки имеют вид <a href="document1.html">Документ 1</a>. Естественно, при переходе по такой ссылке мы попадаем на about: и открывается страница, содержащая "<HTML>blankdocument1</HTML>".
По логике, для исправления ситуации добавляем в HTML-код страницы тэг "<base href="">", а в программе после загрузки документа выполняем
- Код: Выделить всё
mIDoc.getElementsByTagName("BASE").Item(0).href = _
"res://" & App.Path & "\" & App.EXEName & ".exe"
После этого ссылки вообще перестают работать, т.е. щелчок по ней не приводит вообще ни к чему. В чём я не прав и как прикрутить нормальную навигацию?
