描述:
各位大大,我在一个ActiveX控件中,设置了一个事件消息用于向VBA脚本请求二次确认,但是事件消息没有发送以后,VBA端没有收到,不知道为什么?以下是我的代码:
ActiveX中的代码:
HRESULT Fire_ConfirmOperation(long lEventId)
{
CComVariant varResult;
T* pT = static_cast<T*>(this);
int nConnectionIndex;
CComVariant* pvars = new CComVariant[1];
int nConnections = m_vec.GetSize();
for (nConnectionIndex = 0; nConnectionIndex < nConnections; nConnectionIndex++)
{
pT->Lock();
CComPtr<IUnknown> sp = m_vec.GetAt(nConnectionIndex);
pT->Unlock();
IDispatch* pDispatch = reinterpret_cast<IDispatch*>(sp.p);
if (pDispatch != NULL)
{
VariantClear(&varResult);
pvars[0] = lEventId;
DISPPARAMS disp = { pvars, NULL, 1, 0 };
pDispatch->Invoke(0x11, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);
}
}
delete[] pvars;
return varResult.scode;
}
VBA中的代码:
Private Sub MyWebControl_ConfirmOperation(ByVal lEventId As Long)
myWeb.SendConfirmation lEventId,gEnable 'gEnable是一个全局变量,myWeb就是我的控件
End Sub
解决方案1:
你新建的事件被触发了没有哦?
如果是被触发了!!!那你得看看你的事件接口!!!!