Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как динамически добавить на форму WebBrowser? / 9 сообщений из 9, страница 1 из 1
13.02.2011, 13:06
    #37113713
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
Такое не работает:
Код: plaintext
1.
2.
Dim WithEvents ctlWebBrowser As WebBrowser
....
Set ctlWebBrowser = Controls.Add("WebBrowser", " WebBrowser1", Me)
Наверно нужно указать полное имя конторола (ну типа: ctlWebBrowser As тратата.WebBrowser),
но что-то не могу понять какое оно это полное имя
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 15:31
    #37113844
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
Название библиотеки нужно указывать - SHDocVwCtl.WebBrowser
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 16:10
    #37113877
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
Antonariy,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 16:14
    #37113881
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
ой туплю )
Код: plaintext
Set ctlWebBrowser = Controls.Add("shell.explorer.2", "WebBrowser2", Me)
Antonariy спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 16:27
    #37113890
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
Вообще, я бы не рекомендовал добавлять его динамически, капризен он, всякими странными ошибками может сыпать. Когда мне понадобилась динамика, пришлось его заворачивать в UserControl и делать из контрола массив.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 16:47
    #37113904
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
AntonariyВообще, я бы не рекомендовал добавлять его динамически, капризен он, всякими странными ошибками может сыпать. Когда мне понадобилась динамика, пришлось его заворачивать в UserControl и делать из контрола массив.
Спасибо учту
Я его динамически решил добавлять (уничтожать) только из-за этого гребаного диалога: 10014082
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 17:11
    #37113923
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
TpaBka, чтобы обрабатывать события у ActiveX контролов, нужно объявить объект как VBControlExtender. Имя события, имена параметров и значения передаются в событии ObjectEvent

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim WithEvents ctlWebBrowser As VBControlExtender

Private Sub ctlWebBrowser_ObjectEvent(Info As EventInfo)
    Select Case Info.Name
        Case "BeforeNavigate2"
            Me.Caption = "Load... " & Info.EventParameters("URL").Value
        Case "FileDownload"
            
        Case "NavigateComplete2"
            Me.Caption = "Save... " & Info.EventParameters("URL").Value
        Case Else

    End Select
End Sub

Private Sub Form_Load()
    Set ctlWebBrowser = Controls.Add("Shell.Explorer.2", "WB1", Me)

    ctlWebBrowser.Visible = True
    ctlWebBrowser.object.Navigate "http://ya.ru"
   
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 17:16
    #37113931
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
VSVLAD,
Угу, до событий еще не дошел, но инфа очень кстати!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2011, 17:18
    #37113934
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как динамически добавить на форму WebBrowser?
VSVLAD спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как динамически добавить на форму WebBrowser? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 462ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158956]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 333ms
total:  462ms
x
x
Закрыть


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