Article ID: 188015
Article Last Modified on 6/29/2004
STDMETHOD(GetExternal)(IDispatch** ppDispatch)
{
// Assumes you inherit from IDispatch
*ppDispatch = (IDispatch*)this;
(*ppDispatch)->AddRef();
return S_OK;
}
STDMETHODIMP CAtlBrCon::Invoke(DISPID dispidMember, REFIID riid,
LCID lcid, WORD wFlags,
DISPPARAMS* pDispParams,
VARIANT* pvarResult,
EXCEPINFO* pExcepInfo, UINT* puArgErr)
{
switch (dispidMember)
{
case DISPID_MYMETHOD_OR_PROPERTY:
// Do something here
default:
return E_INVALIDARG;
}
return S_OK;
}
<SCRIPT LANGUAGE="VBScript">
Sub SomeControl_OnClick
window.external.yourMethod
End Sub
</SCRIPT>
Keywords: kbhowto kbscript kbwebbrowser kbfaq KB188015