Как динамически добавить на форму WebBrowser? - VB
Формулировка задачи:
Такое не работает:
но что-то не могу понять какое оно это полное имя
Наверно нужно указать полное имя конторола (ну типа: ctlWebBrowser As тратата.WebBrowser),
но что-то не могу понять какое оно это полное имя
Решение задачи: «Как динамически добавить на форму WebBrowser?»
textual
Листинг программы
<font color="blue">Dim</font> <font color="blue">WithEvents</font> ctlWebBrowser <font color="blue">As</font> VBControlExtender <font color="blue">Private</font> <font color="blue">Sub</font> ctlWebBrowser_ObjectEvent(Info <font color="blue">As</font> EventInfo) <font color="blue">Select</font> <font color="blue">Case</font> Info.<font color="blue">Name</font> <font color="blue">Case</font> <font color="teal">"BeforeNavigate2"</font> <font color="blue">Me</font>.Caption = <font color="teal">"Load... "</font> & Info.EventParameters(<font color="teal">"URL"</font>).Value <font color="blue">Case</font> <font color="teal">"FileDownload"</font> <font color="blue">Case</font> <font color="teal">"NavigateComplete2"</font> <font color="blue">Me</font>.Caption = <font color="teal">"Save... "</font> & Info.EventParameters(<font color="teal">"URL"</font>).Value <font color="blue">Case</font> <font color="blue">Else</font> <font color="blue">End</font> <font color="blue">Select</font> <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Private</font> <font color="blue">Sub</font> Form_Load() <font color="blue">Set</font> ctlWebBrowser = Controls.Add(<font color="teal">"Shell.Explorer.2"</font>, <font color="teal">"WB1"</font>, <font color="blue">Me</font>) ctlWebBrowser.Visible = True ctlWebBrowser.<font color="blue">object</font>.Navigate <font color="teal">"http://ya.ru"</font> <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д