对于属性只要在.IDL文件中将其ID设为0就行了。如：
[propget, id(0), helpstring("property test")] HRESULT test([out, retval] short *pVal);
同理对于方法也生效。
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中的一个值。
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。
参阅如下代码：
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
本文地址：http://com.8s8s.com/it/it3507.htm