OLE控件笔记

#1 如何使用控件不能改变大小？

答：有时我们需要创建不可改变大小的控件，像那种在运行时没有界面的控件（例：时间控件，SysInfo 等）,想做到这种功能的话,请把以下代码加入到控件类的构造函数:

m_bAutoSize = TRUE;
SIZEL size = {24, 24};
AtlPixelToHiMetric(&size, &m_sizeExtent);
m_sizeNatural = m_sizeExtent;

#2.如何在运行时显示属性页？

答：在CComControlBase::DoVerbProperties() 中会自动调用ISpecifyPropertyPages::GetPages()，::OleCreatePropertyFrame() 且创建与显示OLE属性页，只要从你的控件中简单调用DoVerbProperties()显示,如何下代码:

HRESULT STDMETHODCALLTYPE PopMeUp(void)
{
return DoVerbProperties(NULL, ::GetActiveWindow() );
}

#3.如何在运行时新增加属性页？

答：覆盖ISpecifyPropertyPagesImpl::GetPages()来增加你的新属性页，或删除它们，改变它们等到。以下代码演示在已存在的属性表中加入新的属性页:

HRESULT STDMETHODCALLTYPE GetPages(CAUUID *pPages)
{
if(SUCCEEDED(ISpecifyPropertyPages_GetPages(pPages,NULL))
{
pPages->cElems += 1;
pPages->pElems = 
(GUID *)::CoTaskMemAlloc(pPages->cElems * sizeof(CLSID));
pPages->pElems[pPages->cElems - 1] = CLSID_General;
}
else
return E_FAIL;
}

#4 如何注册控件?

这是一个很常见的问题,最简单用Winodws自带的Regsvr32或其它工具等,其原理是利用控件的RegsiterServer函数与UnregsiterServer来实现注册与取消注册,以下是代码实现注册:

DWORD RegisterServer( char* szPath )
{
   HINSTANCE hInstance = ::LoadLibrary( szPath );
   if ( 0 == hInstance )
   { 
      return ::GetLastError();
   } 
   typedef void (FAR PASCAL *REGSERVER)(void); 
   REGSERVER RegServer = (REGSERVER) ::GetProcAddress( hInstance, _T( "DllRegisterServer" ));
   if ( 0 == RegServer )
   { 
      ::FreeLibrary( hInstance );
      return ::GetLastError();
   } 
   RegServer(); 
   ::FreeLibrary( hInstance ); 
}

#5 我如何使用手工来控制大小?

答:你只要重载IOleObject接口的SetExtent方法.

// NoteCtl.h : Declaration of the CNoteCtl
...
class ATL_NO_VTABLE CNoteCtl : 
...
   STDMETHOD(SetExtent)(DWORD dwDrawAspect, SIZEL *psizel)
   {
      ATLTRACE(_T("SetExtent sizing control to 1000x1000 "));
      psizel->cx = psizel->cy = 1000;
      return IOleObjectImpl<CNoteCtl>::SetExtent(dwDrawAspect, psizel);
   }
...
};

#6 我如何重新设置控件的大小?

void CMyCtrl::SetNewSize (int cx, int cy)
{
   SIZEL szlPixels, szlMetric;
   szlPixels.cx = cx;
   szlPixels.cy = cy;
   AtlPixelToHiMetric(&szlPixels, &szlMetric);
   // IOleObjectImpl
   SetExtent(DVASPECT_CONTENT, &szlMetric);
   // update control sizing...
   m_rcPos.right= m_rcPos.left + cx;
   m_rcPos.bottom= m_rcPos.top + cy;
   if (m_spInPlaceSite != NULL) {
      // needed for IE to accept the resizing
      m_spInPlaceSite->OnPosRectChange(&m_rcPos);
   }
   SetFocus();

#7 如何取得当前容器是在设计状态?

答:ATL提供了CComControlBase::GetAmbientUserMode()来取得其状态.

BOOL IsUserMode()
{
BOOL bUserMode = TRUE;
HRESULT hRet = GetAmbientUserMode(bUserMode);
if (FAILED(hRet) || bUserMode)
{
return TRUE; 
}
return FALSE;
}

#8 如何使某些只能在运行时修改?

答:COleControl提供了两个方法来辅助实现:AmbientUserMode与GetNotSupported,AmbientUserMode()来取得当前容器的状态,是在运行时还是设计时;而GetNotSupported()能产生CTL_E_GETNOTSUPPORTED自动化异常.

HRESULT CNoteCtl::get_RuntimeOnly( long* pTest )
{
   BOOL bUserMode;
   GetAmbientUserMode( bUserMode );
   if (! bUserMode ) 
      return CTL_E_GETNOTSUPPORTED;
   *pTest = 100;
   return S_OK;
}

#9 如何做一个简单的控件容器?

MFC控件向导支持简单框架控件，ATL 2.1不支持，以下代码演示在ATL 3.0(VC6环境)中实现简单的ISimpleFrameSite的容器框架.

1.定义两个宏（主要是为了方便）

#define RELEASE_OBJECT( ptr )if (ptr) { IUnknown *pUnk = (ptr); (ptr) = NULL; pUnk->Release(); }

#define QUICK_RELEASE(ptr) if (ptr) ((IUnknown *)ptr)->Release();

2.在控件类中加入成员变量：

ISimpleFrameSite* m_pSimpleFrameSite;

3.在控件类的构造函数中加入：

m_pSimpleFrameSite = NULL;

4.在控件类的析构函数中加入：

QUICK_RELEASE(m_pSimpleFrameSite);

5.覆盖IOleObject::SetClientSite:

STDMETHOD(SetClientSite)(IOleClientSite *pClientSite)

{
 

   HRESULT hr = IOleObjectImpl<你的控件类>::SetClientSite(pClientSite);

   RELEASE_OBJECT(m_pSimpleFrameSite);

   if( pClientSite != NULL )

      pClientSite->QueryInterface( IID_ISimpleFrameSite,

                                   (void **)&m_pSimpleFrameSite);

   return hr;

}

6.在控件类中加入成员变量：

WNDPROC m_fnOldWindowProc;

7.覆盖Create函数: