求VARIANT数据类型的使用方法

Question

在vb中生成了一个variant型变量，代码如下：
    dim pointarray as variant
    dim parray(3) as integer
    for i=0 to 2
        parray(i)=i
    next
    pointarray=parray()
我想将这个变体类型作为参数传递到用VC编写的控件的函数中，
请问在VC中如何使用这个变体类型？

Answer 1

VARIANT 、_variant_t 与 COleVariant
VARIANT的结构可以参考头文件VC98\Include\OAIDL.H中关于结构体tagVARIANT的定义。
对于VARIANT变量的赋值：首先给vt成员赋值，指明数据类型，再对联合结构中相同数据类型的变量赋值，举个例子：
VARIANT va;
int a=2001;
va.vt=VT_I4;///指明整型数据
va.lVal=a; ///赋值对于不马上赋值的VARIANT，最好先用Void VariantInit（VARIANTARG FAR* pvarg）;进行初始化,其本质是将vt设置为VT_EMPTY,下表我们列举vt与常用数据的对应关系:unsigned char bVal; VT_UI1 
short iVal; VT_I2 
long lVal;  VT_I4  
float fltVal;  VT_R4 
double dblVal;  VT_R8  
VARIANT_BOOL boolVal;  VT_BOOL 
SCODE scode;  VT_ERROR 
CY cyVal;  VT_CY 
DATE date;  VT_DATE 
BSTR bstrVal;  VT_BSTR 
IUnknown FAR* punkVal;  VT_UNKNOWN 
IDispatch FAR* pdispVal;  VT_DISPATCH 
SAFEARRAY FAR* parray;  VT_ARRAY|* 
unsigned char FAR* pbVal;  VT_BYREF|VT_UI1 
short FAR* piVal;  VT_BYREF|VT_I2 
long FAR* plVal;  VT_BYREF|VT_I4 
float FAR* pfltVal;  VT_BYREF|VT_R4 
double FAR* pdblVal; VT_BYREF|VT_R8 
VARIANT_BOOL FAR* pboolVal; VT_BYREF|VT_BOOL 
SCODE FAR* pscode;  VT_BYREF|VT_ERROR 
CY FAR* pcyVal;  VT_BYREF|VT_CY 
DATE FAR* pdate; VT_BYREF|VT_DATE 
BSTR FAR* pbstrVal;  VT_BYREF|VT_BSTR 
IUnknown FAR* FAR* ppunkVal;  VT_BYREF|VT_UNKNOWN 
IDispatch FAR* FAR* ppdispVal; VT_BYREF|VT_DISPATCH 
SAFEARRAY FAR* FAR* pparray;  VT_ARRAY|* 
VARIANT FAR* pvarVal;  VT_BYREF|VT_VARIANT 
void FAR* byref;  VT_BYREF 
_variant_t是VARIANT的封装类，其赋值可以使用强制类型转换，其构造函数会自动处理这些数据类型。
例如：
long l=222;
ing i=100;
_variant_t lVal（l）;
lVal = （long）i;
看看有没有用