ice197983

#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;
}

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

ISimpleFrameSite* m_pSimpleFrameSite;

m_pSimpleFrameSite = NULL;

QUICK_RELEASE(m_pSimpleFrameSite);

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;}

WNDPROC m_fnOldWindowProc;

HWND Create( HWND hWndParent, RECT& rcPos, LPCTSTR szWindowName = NULL,             DWORD dwStyle = WS_CHILD | WS_VISIBLE, DWORD dwExStyle = 0, UINT nID = 0 ){   HWND hWnd = CWindowImpl<你的控件类>::Create( hWndParent, rcPos,                                                szWindowName, dwStyle, dwExStyle, nID);   if (hWnd)   {      ::SetProp(hWnd, "ABC", static_cast<HANDLE> ((你的控件类*) this));      m_fnOldWindowProc = (WNDPROC) ::SetWindowLong( hWnd, GWL_WNDPROC, (LONG) SimpleFrameWindowProc);   }   return hWnd;}

static LRESULT CALLBACK SimpleFrameWindowProc( HWND hWnd, UINT uMsg,                                               WPARAM wParam, LPARAM lParam );

LRESULT CALLBACK 你的控件类::SimpleFrameWindowProc( HWND hWnd, UINT uMsg,                                                    WPARAM wParam, LPARAM lParam ){   你的控件类* pThis = static_cast<你的控件类*> (::GetProp(hWnd, "ABC"));   WNDPROC fnOldWindowProc = pThis->m_fnOldWindowProc;   LRESULT lResult;   BOOL bProcess = TRUE;   DWORD dwCookie;   HRESULT hr = E_FAIL;   if(pThis->m_pSimpleFrameSite)   {      hr = pThis->m_pSimpleFrameSite->PreMessageFilter(hWnd, uMsg, wParam,                                             lParam, &lResult, &dwCookie);      bProcess = (hr != S_FALSE);   }   if (bProcess)      lResult = fnOldWindowProc(hWnd, uMsg, wParam, lParam);   if(pThis->m_pSimpleFrameSite && bProcess)   {      pThis->m_pSimpleFrameSite->PostMessageFilter( hWnd, uMsg, wParam, lParam,                                                    &lResult, dwCookie);   }   return lResult;}

'MiscStatus' = s '0'{   '1' = s '131473'}

'MiscStatus' = s '0'{   '1' = s '197009'}

#10 如何在ATL控件中使用Dialog资源?

答：这儿是Microsoft的Mark Davis的回答：

1.使用ATL对象向导新增加对话框资源（例如：CMyDialog)。
2.编辑Dialog。
3.在你的控件类中加入内部成员变量（例如:CMyDialog m_dlg)。
4.在你的控件中映射消息WM_CREATE,在消息处理函数里创建Dialog(例如：m_dlg.Create(m_hWnd))

有时你的处理一些标准的Windows窗口的问题，像WM_SIZE等,根据你的情况来作相应的处理。

#11 如何在我的控件加入AboutBox?

答：1.在接口中加入新的方法，并在接口文件(.idl)中改变dispid为DISPID_ABOUTBOX。
2.产生Dialog资源，并设置ID为IDD_ABOUTBOX。
3.在你的控件中加入以下代码：　
class CAboutDlg : public CDialogImpl<CAboutDlg>
{
public:
   enum { IDD = IDD_ABOUTBOX };
   BEGIN_MSG_MAP(CAboutDlg)
      COMMAND_ID_HANDLER(IDOK, OnOK)
   END_MSG_MAP()

   HRESULT OnOK(WORD, WORD, HWND, BOOL&)
   {
      EndDialog(0);
      return 0;
   }
};

4.在你当才加的新方法中加入实现代码，例如：
CAboutDlg dlg;
dlg.DoModal();

#12 如何处理控件的滚动条?

在你的Active X控件中加入滚动条需要在你的控件类的构造函数中把窗口m_bWindowOnly标志设置为TRUE,你也需要映射与处理消息WM_CREATE,并在处理函数中在窗口类型中加入WS_HSCROLL与WS_VSCROLL类型，如以下代码：

LRESULT OnCreate(UINT nMsg, WPARAM wParam,
    LPARAM lParam, BOOL& bHandled)
{
DWORD dwStyle = GetWindowLong(GWL_STYLE);

dwStyle |= WS_VSCROLL | WS_HSCROLL;

SetWindowLong(GWL_STYLE, dwStyle);
return 0L;
}

映射与处理消息WM_HSCROLL与WM_VSCROLL,并并覆盖TranslateAccelerator()来加入键盘支持：

STDMETHOD(TranslateAccelerator)(MSG *pMsg)
{
switch(pMsg->wParam)
{
case VK_UP:
{
::SendMessage(m_hWnd, WM_VSCROLL,
    SB_LINEUP, MAKELONG(0,m_hWnd));
break;
}
case VK_DOWN:
{
::SendMessage(m_hWnd, WM_VSCROLL,
    SB_LINEDOWN, MAKELONG(0,m_hWnd));
break;
}
//以上面相似:
// case VK_LEFT:
// case VK_RIGHT:
// case VK_PRIOR:
// case VK_NEXT:

}

return S_FALSE;

#13 如何使我的控件对IE来说是安全的？

要使控件对IE来说是安全的话，则必需实现IObjectSafety接口，ATL提供了IObjectSafetyImpl包装类，以下代码是演示这个功能，加精是新增加的：

class ATL_NO_VTABLE CNoteCtl :
   public CComObjectRootEx<CComSingleThreadModel>,
   ...
   // Derive from IObjectSafety
public IObjectSafety
{
...
BEGIN_COM_MAP(CNoteCtl)
   COM_INTERFACE_ENTRY(INoteCtl)
   COM_INTERFACE_ENTRY(IDispatch)
   ...
   // Add it to our interface map
COM_INTERFACE_ENTRY(IObjectSafety)
END_COM_MAP()
   ...
   // IObjectSafety implementation
   STDMETHODIMP GetInterfaceSafetyOptions( REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions )

   {
      ATLTRACE(_T("CNoteCtl::GetInterfaceSafetyOptions()\n"));
   
      *pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER |
                             INTERFACESAFE_FOR_UNTRUSTED_DATA;
      *pdwEnabledOptions = *pdwSupportedOptions;
      return S_OK;
   }

   STDMETHODIMP SetInterfaceSafetyOptions(REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
   {
      ATLTRACE(_T("CNoteCtl::SetInterfaceSafetyOptions\n"));
      return S_OK;
   }
...
};

#14 如何在控件中使用字体？

在ATL 2.x开始支持内置字体属性，首先，处理这个属性不像MFC那么简单；第二，你需要在你的控件的IDL文件中加入字体属性的声明（其实在VC6的ATL向导中支持这些属性了，你在向导中选上的话，向导自动会在idl文件中加入相关声明）

ATL并没有完全实现内置字体属性，它提供了内部成员变量指向IFontDisp接口，可是你仍然需要进行OLE字体的初始化，以下代码是演示：

在你的控件类的构造函数中加入以下代码：

CMyCtl(){   static FONTDESC _fontDesc =     { sizeof(FONTDESC), OLESTR("MS Sans Serif"),       FONTSIZE( 12 ), FW_BOLD,        ANSI_CHARSET, FALSE, FALSE, FALSE };   OleCreateFontIndirect( &_fontDesc,IID_IFontDisp,(void **)&m_pFont );}

在你需要使用的地方使用以下代码，一般是在控件的OnDraw方法中，如下：

//取得字体CComQIPtr<IFont, &IID_IFont> pFont( m_pFont );if ( pFont ){   HFONT hOldFont = 0;   HFONT hFont;   pFont->get_hFont( &hFont );   hOldFont = (HFONT) SelectObject( hdc, hFont );   // 使用它...   if ( hOldFont )      SelectObject( hdc, hOldFont );}

一般在VC6的ATL向导中选择了Font字体属性的话，向导会在IDL文件中自动产生以下代码，没有的话手工加入以下声明(加粗部分)：

#include <olectl.h>import "oaidl.idl";[uuid(E63A22F1-9BD3-11D0-A6D7-0000837E3100),version(1.0),helpstring("NoteIt 1.0 Type Library")]library NOTEITLib{   importlib("stdole32.tlb");   importlib("stdole2.tlb");   // Interface is now inside the library block   [      object,      uuid(E63A2306-9BD3-11D0-A6D7-0000837E3100),      dual,      helpstring("INoteCtl Interface"),      pointer_default(unique)   ]   interface INoteCtl : IDispatch   {      ...      [propputref, id(DISPID_FONT)]      HRESULT Font([in]IFontDisp* pFont);      [propput, id(DISPID_FONT)]      HRESULT Font([in]IFontDisp* pFont);      [propget, id(DISPID_FONT)]      HRESULT Font([out, retval]IFontDisp** ppFont);      ...   };...}

#17 ATL里设置默认属性、默认方法？

对于属性只要在.IDL文件中将其ID设为0就行了。如：

[propget, id(0), helpstring("property test")] HRESULT test([out, retval] short *pVal);

同理对于方法也生效。

#18 如何使某个参数可选择？

HRESULT MyFunc([in]BSTR szName,[in, optional] VARIANT Param1, [out, optional] VARIANT Param2)

你在MyFunc程序中得检查Param1.vt是否为VT_EMPTY,如果是，用户未使用该参数。

#19 如何使用枚举类型？

在你的IDL文件中加入如下相似的代码：

typedef enum tagFontAlign
{
[helpstring("Left")]Left=0,
[helpstring("Center")]Center=1,
[helpstring("Right")]Right=2,
}FontAlign;
[propget, id(2), helpstring("对齐方式")] HRESULT Align([out, retval] FontAlign *pVal);
[propput, id(2), helpstring("对齐方式")] HRESULT Align([in] FontAlign newVal);
在接下来的接口定义中添加属性Align时，属性的数据类型就填FontAlign，其它操作照常。编译完以后，你就应该在VB Project中的Object Browser中看到有这么一个枚举类型。在控件属性中选中Align时，就会有个Combo Box让你选择FontAlign中的一个值。　

#20 OLE_COLOR与COLORREF的有区别吗?

OLE_COLOR与COLORREF之间是有一定区别的:OLE_COLOR和COLORREF都是DWORD类型，但对于COLORREF来说，它的最高一个字节永远是0x00。即如果是红色，对于COLORREF来说是0x000000FF。而OLE_COLOR的最高一个字节有两种情况：0x80（也就是10000000，最高位是1）或0x00（也就是00000000，最高位是0）。当OLE_COLOR的最高位是0时，它与COLORREF是相同的，最后三个字节代表RGB，可以相互赋值。例如红色用OLE_COLOR来表示同样是0x000000FF。但当OLE_COLOR的最高位是1时，它的中间两个字节一定都是0x00，最后一个字节表示的是系统颜色索引值。例如系统定义菜单的颜色索引值是4，所以用OLE_COLOR来表示就是0x80000004。在VB中，如果你选中一个FORM，在它的属性页中你可以看到它的BackColor属性，你点击下拉框，就可以选择是使用调色板色还是系统色，调色板色就是对应了OLE_COLOR的高位为0的情况，系统色对应的是OLE_COLOR高位为1的情况。你试一下就知道是怎么回事了,详细请参看：MSDN/Platform SDK/Component Services/COM/Controls and Property Pages/Functions/OleTranslateColor的Remarks。

OLE_COLOR与COLORREF的转达换处理：在MFC中可有OLEControl::TranslateColor()来转达换，在ATL或其它地方可调用API:OleTranslateColor()来进行从OLE_COLOR到COLORREF的转换。返过来可用如下方法：OLE_COLOR ocConverted = (OLE_COLOR)clrBack;

同样，VARIANT_BOOL和BOOL之间也有区别:BOOL为long，在BOOL中，TURE为1，FALSE为0。VAIRNAT_BOOL为short，在VARIANT_BOOL中，VARIANT_TRUE为-1（0xFFFF），VARIANT_FALSE为0（0x0000）。并且VARIANT_BOOL是和VB中的Boolean相同的，就像BSTR和String的关系一样。所以，在自动化组件及控件中应该使用VARIANT_BOOL。

#21 如何让我的控件输出数组？

参阅如下代码：

void CMyControl::GetArray( VARIANT FAR* pVariant ){    //商业代码   int nCount = GetCount();

   //定义维数   SAFEARRAYBOUND saBound[1];   //定义数组指针对性   SAFEARRAY* pSA;   saBound[0].cElements = nCount;   saBound[0].lLbound = 0;   //创建数组   pSA = SafeArrayCreate( VT_BSTR, 1, saBound );   for( long i = 0; i < nCount; i++ )   {      BSTR bstr;      //商业代码      bstr = GetItem( i ).AllocSysString();	//给数组赋值      SafeArrayPutElement( pSA, &i, bstr );      ::SysFreeString( bstr );   }   // 初始化传递的参数   VariantInit( pVariant );   //设置返值的类型为数组   pVariant->vt = VT_ARRAY | VT_BSTR;   pVariant->parray = pSA;}

Visual Basic 代码:

    Dim t As Variant    Dim i as Integer    MyControl1.GetArray t    For i = 0 To MyControl1.Count - 1        ListBox.AddItem  t( i )    Next i

#22 如何取得控件的HWND?

     HWND CMyOcx::GetApplicationWindow()
      {
         HWND  hwnd = NULL;
         HRESULT hr;
     
         //*****这段代码在VC++ v4.1工作
         if (m_pInPlaceSite != NULL)
             {
             m_pInPlaceSite->GetWindow(&hwnd);
             return hwnd;
             }
     
         //****** 这段代码在Visual Basic工作
         LPOLECLIENTSITE pOleClientSite = GetClientSite();
     
         if ( pOleClientSite )
          {
             IOleWindow* pOleWindow;
             hr = pOleClientSite->QueryInterface( IID_IOleWindow, (LPVOID*) 
                    &pOleWindow );
     
             if ( pOleWindow )
              {
                 pOleWindow->GetWindow( &hwnd );
                 pOleWindow->Release();
                 return hwnd;
              }
          }
     
         return NULL;
     }

#23 为什么AmbientUserMode总是返回TRUE?

答：如果你在控件类的构造函数，析构函数，OnSetClientSite方法中使用AmbientUserMode()会总是返回TRUE，因为控件还未设置ambient IDispatch连接点到容器,下面演示在OnSetClientSite()中取得其值：

void CYourCtrl::OnSetClientSite()
{
  if ( m_ambientDispDriver.m_lpDispatch && AmbientUserMode() )
    RecreateControlWindow();//商业代码
}

m_ambientDispDriver变量是用于维护COleControl的ambient的自动化接口，只有它m_lpDispatch有效时才会返回这个属性值。

#25 如何持续化参数属性？ 在正常状态下支持二进制与文本的持续化，控件分别需要实现IPersistStreamInit与IPersistPropertyBag接口,ATL提供了该接口的包装类IPersistStreamInitImpl与IPersistPropertyBagImpl，在装入与存储属性中，这两个类分别调用了CComControlBase::IPersistStreamInit_Load()/Save()与CComControlBase::IPersistPropertyBag_Load()/Save() ,且调用CComDispatchDriver::GetProperty()，在这里面又调用了invoke()来指定特殊的属性值，然后CComDispatchDriver::GetProperty()只实现支持单个属性值,签于此点，ATL 2.1的属性持续化机制不支持索引属性。 要突破这个限制，得在你的控件中覆盖持续化路径，并依照标准来实现文本与二进制的持续化，作为替代，你的属性应象这样定义： [propget, id(4), helpstring("Indexed Property")] HRESULT ParamProp( [in] short nIndex, [out, retval] short *pVal); [propput, id(4), helpstring("Indexed Property ")] HRESULT ParamProp( [in] short nIndex, [in] short newVal); 为了支持IPersistStreamInit，你需要覆盖CComControlBase::IPersistStreamInit_Save(): HRESULT IPersistStreamInit_Save(LPSTREAM pStm, BOOL  fClearDirty ,  ATL_PROPMAP_ENTRY* pMap ) { if(!pStm) { return E_POINTER; } for(UINT nIndex = 0; nIndex < 12; nIndex++) { if(FAILED(pStm->Write(&(m_nColor[nIndex]),     sizeof(m_nColor[nIndex]), NULL)) { return E_UNEXPECTED; } } //调用默认的基类来实现存储单属性值PROP_MAP return CComControlBase::IPersistStreamInit_Save(pStm,  fClearDirty, pMap); } 如果你要实现IPersistPropertyBag接口，你得覆盖了Load()与Save()方法. #26 在ATL发行版本中出错信息：“unresolved external symbol _main” 答：这是VC6的一个BUG，由于VC6在ATL使用_ATL_MIN_CRT_宏，该宏会使CRT启动代码无效，去掉该宏就可以了，如下做法：Project->Setting->C/C++ 的Category中选择Preprocessor的Preprocessor definitions:中去掉_ATL_MIN_CRT_。 #27 如何在ATL中取得windowsless窗口的HWND？ 答：windowsless 就是没有窗口。你的ATL控件没有窗口, m_hWnd不是NULL能是什么。 至于Ondraw得到的 hdc 实际是父窗口的hdc。huhu 你注意看 M$ 的form 系列控件(就是IE页面中的那些textbox checkbox ....)， 都是windwosless的。 if (m_bWndLess)  {  HDC hDC;  HWND hWnd;  // Get the HDC from the client  m_spInPlaceSite->GetDC(NULL, OLEDC_NODRAW, &hDC);  // Get the HWND from the HDC  hWnd = WindowFromDC(hDC);  m_spInPlaceSite->ReleaseDC(hDC);  }  注意：不要乱动那个hWnd因为这个东西不是你的。 #28 如何在客户端中使用CoCreateInstanceEx()? 答：stdafx.h的最前面加入#define _WIN32_DCOM 　 #29 为何在Visual C++ Compoents中找不到ATL proxy Generator组件? 答：这是VC5为支持Connection Point的做法，VC6已整合到Wizard里面。具体位置：选择编译你的项目，然后直接在你的类中击鼠标右键选择Implement Connection Point,后面的界面与VC5的一模一样。 #30 在ATL中如何使用IPicture接口显示图片? 一下描述一种最简单的在 ALT 中使用 IPicture 来 显示图片的实例。控件的属性页可以选择图片， 选好后控件的背景就变成该图片 1.建立一个ALT的project,加入ALT对象选 controls选 full controls (也可以选别的)Next选Stock properties将Picture 加入 supported  //这样， 会为控件生成一个picture属性，以及一个预制的 picture 属性对话框，方便选择图片。OK//m_pPicture 是一个 IPictureDisp. //由于M$的一个BUG 导致 build时 有三个warning 先不要管它， 后面会有解决办法 2.修改 HRESULT OnDraw(ATL_DRAWINFO& di)如下 HRESULT OnDraw(ATL_DRAWINFO& di) { RECT& rc = *(RECT*)di.prcBounds; Rectangle(di.hdcDraw, rc.left, rc.top, rc.right, rc.bottom); /////////////////////////////////////draw  our picture LPPICTURE pPict ; DWORD dwAttr  ; OLE_XSIZE_HIMETRIC cxSrc; OLE_YSIZE_HIMETRIC cySrc; if ((m_pPicture != NULL) &&SUCCEEDED(m_pPicture->QueryInterface(IID_IPicture, (LPVOID*)&pPict))) { pPict->get_Attributes(&dwAttr); if(dwAttr==S_OK) { pPict->get_Width(&cxSrc); pPict->get_Height(&cySrc); pPict->Render(di.hdcDraw,rc.left, rc.top, rc.right, rc.bottom,0,0,cxSrc,cySrc,&rc); } } ///////////////////////////////////////finished draw SetTextAlign(di.hdcDraw, TA_CENTER¦TA_BASELINE); LPCTSTR pszText = _T("ATL 3.0 : catest"); TextOut(di.hdcDraw, (rc.left + rc.right) / 2, (rc.top + rc.bottom) / 2, pszText, lstrlen(pszText)); return S_OK; }

#31 什么是GUID？

GUID用于标识软件接口，它与COM(部件对象模型)中用于标识COM接口的标识符相同，它还用于OSF(开放软件基金)的DCE(分布式计算环境)中，标识RPC(远程过程调用)目标。如果你想了解GUID如何生成以及为什么能在统计意义上唯一，请参考Kraig Brockschmidt的《Inside OLE, Second Edition (Microsoft Press, 1995)》第66页，原始算法规范由OSF制定，相关部分见http://www.opengroup.org/onlinepubs/9629399/apdxa.htm。

为了在设备驱动程序中使用GUID，首先需要使用UUIDGEN或者GUIDGEN生成GUID，然后把结果放到头文件中。GUIDGEN更易于使用，它允许选择GUID的输出格式，并把结果送到剪贴板。图2-18显示了GUIDGEN的运行窗口。你可以把它的输出粘贴到头文件中：

// {CAF53C68-A94C-11D2-BB4A-00C04FA330A6}
DEFINE_GUID(<<name>>, 0xCAF53C68, 0xA94C, 0x11D2, 0xBB, 0x4A, 0x00, 0xC0, 0x4F, 0xA3, 0x30, 0xA6);

然后，用有意义的名字换掉<<name>>，如GUID_SIMPLE，并把这个定义包含到驱动程序或应用程序中。

原文：ATL中的Thunk机制学习