#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