在上一步中我们实际是通过IDispatch接口的Invoke方法来访问控件的属性和方法的,虽然有COleDispatchDriver和其它一些辅助函数,但还是有些繁杂,能不能直接得到控件对象的指针,这样就可以直接访问控件了,甚至于控件的内部变量了?答案是肯定了。
我们的控件派生自COleControl,COleControl派生自CWnd,CWnd又派生自CCmdTarget,我们的IDispatch接口就是在CCmdTarget中实现的(其实应该是实现在COleDispatchImpl类中),实现的方法比较特殊,这里不细细分析了,有兴趣的朋友可以自己看看MFC源码或者网上搜搜资料,应该能知道的。
我们能从CCmdTarget中获得IDispatch接口指针(GetIDispatch函数),同样的,我们也能从IDispatch接口指针中反向导出CCmdTarget对象指针,用到的是CCmdTarget的静态成员函数
static CCmdTarget* FromIDispatch( LPDISPATCH
lpDispatch
);
前面我们已经知道可以通过属性页的GetObjectArray来获得控件的IDispatch接口指针,而有了上面的FromIDispatch这个函数,我们又可以从IDispatch接口指针中来获得控件的指针了,那么问题就解决了。
另外,这里我们还用到COlePropertyPage的一个虚拟函数OnObjectsChanged,在控件变化(包括控件加载上和卸载掉时)时,都会调用到这个函数。(其实,并不是一定要用这个函数的,只是想介绍一下,就用上了)
还是用上一步中的例子topp
1.添加控件类指针为属性页类的成员变量(#include "ToppCtl.h",应该不用说的吧)
CToppCtrl* m_pctrl;
2.添加获得控件类指针的函数CToppCtrl* GetCtrlPtr();
CToppCtrl* CToppPropPage::GetCtrlPtr()
{
ULONG ulObjects;
LPDISPATCH* lpObjectArray = GetObjectArray( &ulObjects );
ASSERT( lpObjectArray != NULL );
LPDISPATCH lpdisp = NULL;
if(ulObjects > 0){//在这个函数中,并不一定能保证就有控件.
lpdisp = lpObjectArray[0];//这里省事了,就假设只有一个控件了
}
CToppCtrl* pctrl = NULL;
if(lpdisp){
pctrl = (CToppCtrl*)CCmdTarget::FromIDispatch(lpdisp);
}
return pctrl;
}
3.重载OnObjectsChanged,设置m_pctrl(在其它地方,如OnInitDialog中设置也无所谓,甚至即用即获得也无所谓)
void CToppPropPage::OnObjectsChanged()
{
ULONG ulObjects;
LPDISPATCH* lpObjectArray = GetObjectArray( &ulObjects );
ASSERT( lpObjectArray != NULL );
LPDISPATCH lpctl = NULL;
if(ulObjects > 0){//在这个函数中,并不一定能保证就有控件.
lpctl = lpObjectArray[0];//这里省事了,就假设只有一个控件了
}
if(lpctl){
m_pctrl = (CToppCtrl*)CCmdTarget::FromIDispatch(lpctl);
}
else{
m_pctrl = NULL;
}
}
3.修改上一步中的几个成员函数
BOOL CToppPropPage::AddItem(LPCTSTR lpszItem)
{
if(m_pctrl) m_pctrl->m_saItems.Add(lpszItem);
return m_pctrl != NULL;
}
CString CToppPropPage::GetItem(long lItem)
{
if(m_pctrl) {
if(lItem >= 0 && lItem < m_pctrl->m_saItems.GetSize()){
return m_pctrl->m_saItems[lItem];
}
else{
return _T("");
}
}
else{
return _T("");
}
}
//在获得m_color时,是直接将m_color从protected拉到了public下的,可恶的MFC,再添加新的属性或方法时可能会重新再添加一个,会给你带来一个小小的麻烦。
COLORREF CToppPropPage::GetColor()
{
if(m_pctrl) return m_pctrl->TranslateColor(m_pctrl->m_color);
return RGB(0,0);
}
void CToppPropPage::SetColor(COLORREF cr)
{
if(m_pctrl) m_pctrl->m_color = cr;
}
long CToppPropPage::GetCount()
{
if(m_pctrl) return m_pctrl->m_saItems.GetSize();
return 0;
}
4.编译,新建一VB工程,在VB下测试,可以发现没有问题
5.在ActiveX Control Container下测试,咦,出问题了,没有反应,为什么?
根据最后给出的资料上中的意思,大致是因为容器聚合了控件的原因(呵呵,懒得去想了,有兴趣的自己思考吧)
6.为控件添加一只读属性long CtrlPtr
long CToppCtrl::GetCtrlPtr()
{
// TODO: Add your property handler here
return reinterpret_cast<long>(this);
return 0;
}
7.编译,在ClassWizard的Automation下,点击Add Class,然后选择
From a type library,找到编译时为控件生成的.tlb文件,这里应该是在/Debug目录下,选择这个topp.tlb,然后只选择其中的_DTopp,点确定,这样将生成一个_DTopp类,和我们上一步中的介绍比较一下,可以发现,其实就是派生自一个COleDispatchDriver类,也就是说,只是一个帮助我们调用控件属性和方法的类(也就是说,我们上一步中其实完全不用自己来编代码的,ClassWizard可以为我们生成一个方便的可操作的类:))。 8.修改属性页的GetCtrlPtr函数如下: CToppCtrl* CToppPropPage::GetCtrlPtr() { ULONG ulObjects; LPDISPATCH* lpObjectArray = GetObjectArray( &ulObjects ); ASSERT( lpObjectArray != NULL ); LPDISPATCH lpdisp = NULL; if(ulObjects > 0){//在这个函数中,并不一定能保证就有控件. lpdisp = lpObjectArray[0];//这里省事了,就假设只有一个控件了 } CToppCtrl* pctrl = NULL; if(lpdisp){ pctrl = (CToppCtrl*)CCmdTarget::FromIDispatch(lpdisp); if(!pctrl){ long ControlPointer; _DTopp control(lpdisp); // GetObjectArray() docs state must not release pointer. control.m_bAutoRelease = FALSE; ControlPointer = control.GetCtrlPtr(); pctrl = reinterpret_cast<CToppCtrl*>(ControlPointer); //这里其实可以简单用如下的方法调用,之所以用上面的方法,只是用来介绍而已 /* long p; GetPropText("CtrlPtr",&p); pctrl = reinterpret_cast<CToppCtrl*>(p); */ } } return pctrl; } 9.编译,在ActiveX Control Container中测试,OK! 注释:这里用ClassWizard导入了一个辅助类是用来帮助从IDispatch中获得控件的CtrlPtr属性值的,其实并不一定需要这个辅助类的,见CToppCtrl* CToppPropPage::GetCtrlPtr()函数中被注释掉的代码,之所以引入这个辅助类,也是介绍起见。 参考资料: http://support.microsoft.com/kb/205670/