Конференция VBStreets

**Sun07** » 25.07.2006 (Вт) 22:51

Нашёл в инете совет. Вот код

Option Explicit

Property Set Doc(Document As Object)
Set CurrentDoc = Document
End Property

Private Sub Form_Load()
Dim strHTMLText As String
' Создаем пустой документ в
' элементе управления WebBrowser
WebBrowser1.Navigate2 "about:Blank"
' Web-браузеру может понадобиться некоторое
' время для обработки каждой команды
DoEvents
On Error GoTo WaitAwhileLonger
' Устанавливаем цвет фона документа
WebBrowser1.Document.body.bgcolor = "#000000"
' Задаем HTML-текст с помощью кода
' или информации из базы данных
strHTMLText = "<html>" & vbCrLf & "<head>" & _
vbCrLf & "<title>Наш проект</title>" & _
vbCrLf & "</head>" & vbCrLf & _
"<body> " & _
" " & _
"Советы по VB & VBA " & _
" " & _
"<a href=""http://www.visual.2000.ru""> " & _
"Посетите наш сайт</a></body>" & _
vbCrLf & "</html>"
strHTMLText = strHTMLText & "<head>" & vbCrLf
' Отправляем HTML-текст непосредственно
' в элемент управления WebBrowser
WebBrowser1.Document.body.innerhtml = strHTMLText
Exit Sub
'
WaitAwhileLonger:
Debug.Print Hex(Err.Number), Err.Description
DoEvents
Resume
End Sub

Объясните, плиз назначение 2,3,4 строки кода. Также строки
WebBrowser1.Navigate2 "about:Blank"

**Sun07** » 25.07.2006 (Вт) 22:53

вот ссылка http://72.14.221.104/search?q=cache:-Vb ... lr=lang_ru

**Хакер** » 25.07.2006 (Вт) 22:56

Navigate на about:blank нужно чтобы писать в броузер свою инфу.

**Sun07** » 25.07.2006 (Вт) 23:37

а почему именно Navigate2, а не Navigate? и почему "about:blank" - что сиё выражение означает?

**Хакер** » 26.07.2006 (Ср) 0:25

Попробуй Navigete без 2 - мне кажется всё будет работать также...

about: - это "протокол". как mailto: , file: , res:

blank - обозначает "пустой"

**tyomitch** » 26.07.2006 (Ср) 7:02

См. тж. http://bbs.vbstreets.ru/viewtopic.php?t=26565

**marvan** » 26.07.2006 (Ср) 9:17

Инфа в WebBrowser, не пользуясь HTML-файлом

Уже не правильно.
WebBrowser1.Navigate2 "about:Blank" это загрузка HTML-файла
При этой команде браузер лезет в системный реестр в раздел HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\AboutURLs
Находит параметр 'blank' и его значение 'res://mshtml.dll/blank.htm'

Сие значение указывает путь к загружаемому файлу по протоколу RES:// - для работы с файлами ресурсов. В данном случае это файл blank.htm содержащийся в ресурсах библиотеки mshtml.dll.

После чего загружается этот самый HTML-файл
Таким образом WebBrowser1.Navigate2 "about:Blank" и WebBrowser1.Navigate2 "res://mshtml.dll/blank.htm" равнозначны. (Если только какой вирус не поправил эту строчку в реестре)

Вот статья, в которой есть более корректные примеры по теме.

2,3,4 строки кода с остальным кодом ни как не связаны.

Конференция VBStreets

Инфа в WebBrowser, не пользуясь HTML-файлом

Инфа в WebBrowser, не пользуясь HTML-файлом

Кто сейчас на конференции