браузер

[Мамонт]

Подскажите! Я сделал браузер но когда я щёлкаю Открыть в новом окне она открывается не в моём браузере а открывеат ie!

[Шурик]

так сделай свой браузер по умолчанию

[Amed]

В поиск по форуму. 100% было.

Tip: обрабатывай нажатия на ссылки в своём окне браузера.

[Шурик]

я бы сделал проще... надо сопоставить расширение своей проге
хм... соответстенно броузер будет по умолчанию

[Alexanbar]

Нужно обработать событие NewWindow2 (frmWebBrowser - это форма, содержащая браузер, brwWebBrowser - имя контрола на форме):

Private Sub brwWebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form
On Error Resume Next

Set frm = New frmWebBrowser
frm.Show
Set ppDisp = frm.brwWebBrowser.object

Err.Clear
end sub

[Мамонт]

Пасиба вам! поиск непомог! Нашол много но не того!

[FaKk2]

Format C:
Не помог гришь???

http://bbs.vbstreets.ru/search.php?sear ... NewWindow2

[Мамонт]

Alexanbar Всё заработало спасибо!!

[Мамонт]

Только не могу сохранять и загружать ссылки в Listbox! Ктонить знает как?? А то они загружаются у меня только в List1.text!

[Alexanbar]

В комплекте с VB6 или VB5 есть пример и даже мастер, создающий Webbrowser. По моему, там есть создание списка посещённых страниц

[Мамонт]

У меня 6! Но я нерубился как там всё происходит!!

[Alexanbar]

Что-то в этом духе. cboAddress - это комбобох адресной строки

Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URl As Variant)

Dim i As Integer
Dim bFound As Boolean
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = URl Then
bFound = True
Exit For
End If
Next i
If bFound Then
cboAddress.RemoveItem i
End If

cboAddress.AddItem url, 0
cboAddress.Listindex = 0
end sub