Как динамически добавить на форму 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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы