vc做的ocx控件与vb等之间的自定义结构体数据传递

最新推荐文章于 2019-04-09 16:05:16 发布

libbo2000

最新推荐文章于 2019-04-09 16:05:16 发布

阅读量2.2k

点赞数

分类专栏： VC2005 文章标签： vb byte struct ui

本文链接：https://blog.csdn.net/libbo2000/article/details/4360714

版权

VC2005 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

要使用safearray。

ocx中包装数据：

struct vv {
int   m;
int   n;
};

VARIANT varArray;

long i;
vv kk[10];
for(i=0;i<10;i++){
kk[i].m=i;
kk[i].n=i*i;
}

int   len=sizeof(vv);
SAFEARRAYBOUND   bound;
bound.cElements=10;
bound.lLbound=0;
SAFEARRAY*   psa=SafeArrayCreate(VT_VARIANT,1,&bound);

psa->fFeatures =FADF_AUTO|FADF_FIXEDSIZE;
    psa->cbElements =sizeof(vv);
psa->pvData =&kk;

varArray.vt = VT_ARRAY|VT_UI1;
varArray.parray = psa;

testevent(&varArray);

其中testevent是事件，参数类型是variant*。

vb中：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type tt
    m As Long
    n As Long
End Type

Private Sub testocx11_mm(buff1 As Variant)
Dim r() As Byte
        r = buff1 '把数据放到一个byte数组中
Dim myprice() As tt
        ReDim myprice(10)
        CopyMemory myprice(1), r(0), Len(myprice(0)) * 10
End Sub

这样myprice中就是vc传过来的数据。