在参考http://support.microsoft.com/kb/221992/zh-cn后
通过接口向导添加一个Item属性，由于属性可能是常见的各种类型（BSTR，LONG，DOUBLE等）。定义为变体类型，如下：
[ uuid(86D2FFCF-1279-465F-A04A-98EFF2E0FE9D) ]
dispinterface IMyScriptObject
{
properties:
methods:
[id(1), propget, helpstring("属性 Item")] VARIANT Item(BSTR bstrName);
[id(1), propput, helpstring("属性 Item")] void Item(BSTR bstrName, VARIANT newVal);
[id(2), helpstring("方法gcd")] LONG gcd(LONG a, LONG b);
[id(3), helpstring("方法HelpAbout")] void HelpAbout(void);
[id(4), helpstring("方法ShowValue")] void ShowValue(BSTR prompt, LONG n);
};
但在调试过程中发现SetItem 函数的第2个参数newVal是一个不能识别的类型，不知道为何？
void CMyScriptObject::SetItem(LPCTSTR bstrName, VARIANT newVal)
{
AFX_MANAGE_STATE(AfxGetAppModuleState());
// TODO: 在此添加属性处理程序代码
CString str;
if (newVal.vt == VT_I4)
str.Format(_T("%s%d"), bstrName, newVal.intVal );
else
str.Format(_T("%s"), bstrName);
AfxMessageBox(str, MB_SETFOREGROUND);
}
对应的VBS调用如下：
Item("3") = 5
但如果我把VARIANT 改为某个确定的类型，如LONG，程序是没有错误的。为啥VARIANT 就不行呢？
