● ATL问题集-#17 ~ #21 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Second (石开), 信区: Program
标  题: ATL问题集-#17 ~ #21
发信站: 荔园晨风BBS站 (Fri Jun  1 08:03:31 2001), 转信

#17 ATL里设置默认属性、默认方法？
对于属性只要在.IDL文件中将其ID设为0就行了。如：
[propget, id(0), helpstring("property test")] HRESULT test([out, retval] sho
rt *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] FontAli
gn *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时，它与COLO
RREF是相同的，最后三个字节代表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 Service
s/COM/Controls and Property Pages/Functions/OleTranslateColor的Remarks。
OLE_COLOR与COLORREF的转达换处理：在MFC中可有OLEControl::TranslateColor()来转
达换，在ATL或其它地方可调用API:OleTranslateColor()来进行从OLE_COLOR到COLORRE
F的转换。返过来可用如下方法：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和Stri
ng的关系一样。所以，在自动化组件及控件中应该使用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

--
                            既然热爱生命
                            那么，
                            一切都在意料之中。

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.28.190]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店