Is there a VB equivalent to CoCreateInstance

Prev: ActiveReports 2.0 Viewer Issue.
Next: Where Can I Find the MSDN Collection for VB6?

From: Steve Easton on 28 Dec 2007 21:38

---

For example, an equivalent to this C++ from MSDN:
hr = CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,
IID_IWebBrowser2,(LPVOID*)&pIWebBrowser2;);
hr = pIWebBrowser2->Navigate(bstrUrl, &vEmpty;, &vEmpty;, &vEmpty;, &vEmpty;);
hr = pIWebBrowser2->put_Visible(VARIANT_TRUE);


tyia

--

Steve Easton

From: mayayana on 28 Dec 2007 22:22

---

Is that a trick question? I think it's the
same as the following. COM is just very tedious
and verbose in C++.


Dim IE as InternetExplorer
Dim bstrUrl as string
Set IE = New InternetExplorer
bstrUrl = http://www.google.com

IE.Navigate bstrUrl
IE.Visible = True


> For example, an equivalent to this C++ from MSDN:
> hr = CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,
> IID_IWebBrowser2,(LPVOID*)&pIWebBrowser2;);
> hr = pIWebBrowser2->Navigate(bstrUrl, &vEmpty;, &vEmpty;, &vEmpty;,
&vEmpty;);
> hr = pIWebBrowser2->put_Visible(VARIANT_TRUE);
>
>
> tyia
>
> --
>
> Steve Easton
>
>
>
>

From: Steve Easton on 29 Dec 2007 09:40

---

Thanks, actually it wasn't a trick question.
It's just that MSDN no longer includes samples for VB.
It's all C++, vb.net or jscript.

So, when you're trying to verify something it's next to impossible,
not even considering throwing Vista into the mix.


--

Steve Easton




"mayayana" <mayaXXyana1a(a)mindXXspring.com> wrote in message news:ORIY5ocSIHA.1528(a)TK2MSFTNGP04.phx.gbl...
> Is that a trick question? I think it's the
> same as the following. COM is just very tedious
> and verbose in C++.
>
>
> Dim IE as InternetExplorer
> Dim bstrUrl as string
> Set IE = New InternetExplorer
> bstrUrl = http://www.google.com
>
> IE.Navigate bstrUrl
> IE.Visible = True
>
>
>> For example, an equivalent to this C++ from MSDN:
>> hr = CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER,
>> IID_IWebBrowser2,(LPVOID*)&pIWebBrowser2;);
>> hr = pIWebBrowser2->Navigate(bstrUrl, &vEmpty;, &vEmpty;, &vEmpty;,
> &vEmpty;);
>> hr = pIWebBrowser2->put_Visible(VARIANT_TRUE);
>>
>>
>> tyia
>>
>> --
>>
>> Steve Easton
>>
>>
>>
>>
>
>

 | 
Pages: 1
Prev: ActiveReports 2.0 Viewer Issue.
Next: Where Can I Find the MSDN Collection for VB6?