Chinaunix首页 | 论坛 | 博客
  • 博客访问: 194901
  • 博文数量: 90
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 0
  • 用 户 组: 普通用户
  • 注册时间: 2017-08-23 16:48
文章分类

全部博文(90)

文章存档

2015年(1)

2011年(21)

2010年(59)

2009年(9)

我的朋友

分类: C/C++

2010-07-14 09:53:18

这一步本来要往上走的,因为感觉上面还有很多风景,可是一次意外,发现我的msdn竟然无法找到网上流行的SafeArrayCreateEx这个函数,大感意外,因此就决定继续横爬了,来看看怎么用SAFEARRAY包装自定义结构了。
开始之前,先推荐一文章
VB真是想不到系列之四:VB指针葵花宝典之SafeArray
网址就不提供了,网上搜搜就找到了,绝对不是做广告的,只是觉得挺有意思的,从VB的眼光来看SAFEARRAY。
很显然COleSafeArray并没有封装SafeArrayCreateEx函数,所以这回咱直接用API了。
1.为CLiteGridCtrl添加上Rects属性,VARIANT类型,还是用Get/Set methods吧,这个属性功能就不用多说了,为我们所有的CCell设置和返回m_rect成员。
2.实现Rects属性
VARIANT CLiteGridCtrl::GetRects()
{
    VARIANT vaResult;
    VariantInit(&vaResult);
    // TODO: Add your property handler here
    IRecordInfo* pRecInfo = NULL;
    GetRecordInfoFromGuids(GUID_Lib, 1, 0, LOCALE_USER_DEFAULT, GUID_Rect, &pRecInfo);
    SAFEARRAYBOUND sab[2];
    sab[0].cElements = 10;
    sab[0].lLbound = 0;
    sab[1].cElements = 10;
    sab[1].lLbound = 0;
    SAFEARRAY* psa = SafeArrayCreateEx(VT_RECORD, 2, sab, pRecInfo);
    long lindex[2] = {0};
    RECT* prect = NULL;
    SafeArrayLock(psa);
    for(int i=0; i<10; i++){
        lindex[0] = i;
        for(int j=0; j<10; j++){
            lindex[1] = j;
            SafeArrayPtrOfIndex(psa, lindex, (void**)&prect);
            *prect = m_cells[i][j].m_rect;
        }
    }
    SafeArrayUnlock(psa);
    vaResult.vt = VT_ARRAY | VT_RECORD;
    vaResult.pRecInfo = pRecInfo;
    vaResult.parray = psa;
    return vaResult;
}
void CLiteGridCtrl::SetRects(const VARIANT FAR& newValue)
{
    // TODO: Add your property handler here
    COleSafeArray sa(newValue);
    ASSERT(sa.GetDim() == 2);
    long llb1 = 0;
    long lub1 = 0;
    long llb2 = 0;
    long lub2 = 0;
    long l1 = 0;
    long l2 = 0;
    sa.GetLBound(1, &llb1);
    sa.GetUBound(1, &lub1);
    l1 = lub1-llb1+1;
    ASSERT(l1 == 10);
    sa.GetLBound(2, &llb2);
    sa.GetUBound(2, &lub2);
    l2 = lub2-llb2+1;
    ASSERT(l2 == 10);
    long lindex[2] = {0};
    RECT* prect = NULL;
    sa.Lock();
    for(int i=llb1; i<=lub1; i++){
        lindex[0] = i;
        for(int j=llb2; j<=lub2; j++){
            lindex[1] = j;
            sa.PtrOfIndex(lindex, (void**)&prect);
            m_cells[i-llb1][j-llb2].m_rect = prect;
        }
    }
    sa.Unlock();
    InvalidateControl();
    SetModifiedFlag();
}
其实只要将Texts属性的代码拷贝过来,稍微修改一下就可以了,这里的GUID_Lib和GUID_Rect定义在LiteGridCtrl.cpp中,如下:
const GUID GUID_Lib =
{ 0x191618F9, 0xEBF9, 0x4538, { 0x9E, 0x10, 0xD9, 0xC5, 0x62, 0x7E, 0xAE, 0xA9 } };
const GUID GUID_Rect =
{ 0x6BF5EE0C, 0x373A, 0x4893, { 0x89, 0xEB, 0x2C, 0x02, 0x08, 0xD3, 0xD4, 0xEB } };

3.在VB的Form_Load中添加如下代码
Private Sub Form_Load()
Dim str(0 To 9, 0 To 9) As String
Dim stro() As String
Dim i As Integer
Dim j As Integer
For i = 0 To 9
    For j = 0 To 9
        str(i, j) = i & " : " & j
    Next
Next
LiteGrid1.Texts = str
stro = LiteGrid1.Texts
Dim v() As Rect
Dim x As Integer
Dim y As Integer
x = 0
y = 0
v = LiteGrid1.Rects
For i = LBound(v) To UBound(v)
    y = 0
    For j = LBound(v, 2) To UBound(v, 2)
        v(i, j).Left = x
        v(i, j).Top = y
        v(i, j).Right = x + 40
        v(i, j).bottom = y + 16
        y = y + 20
    Next
    x = x + 50
Next
LiteGrid1.Rects = v
End Sub
前面的一段是上一步中的内容,也给列了出来,运行一下会发现框框没有并在一起了,分开了些,证明Rect属性的Get和Set都是调用成功了。
所以,其实还是蛮简单的
本来是想要用SafeArrayAllocDescriptor和SafeArrayAllocData来模拟SafeArrayCreateEx的,而且事实上好象也不会出错的,SAFEARRAY的各个成员的值两种方法得到的都一样,如下:
    SAFEARRAY* psa = NULL;
    SafeArrayAllocDescriptor(2, &psa);
    psa->rgsabound[0].lLbound = 0;
    psa->rgsabound[0].cElements = 10;
    psa->rgsabound[1].lLbound = 0;
    psa->rgsabound[1].cElements = 10;
    psa->cbElements = sizeof(RECT);
    psa->fFeatures = FADF_RECORD;
    HRESULT hresult = SafeArrayAllocData(psa);
    if(FAILED(hresult)){
        SafeArrayDestroyDescriptor(psa);
        return vaResult;
    }
可是,意外的是竟然GetRects和SetRects全都没有正确执行
然后在后面加上
    SafeArraySetRecordInfo(psa, pRecInfo);
就OK了。
所以看起来似乎这个IRecordInfo是隐藏在SAFEARRAY结构中的,具体放哪里,就不去管它了,研究这个好象也没什么意义的,如果哪位朋友碰巧熟悉这个,烦情告知一下,感谢。
差点忘了,因为这里还是用COleSafeArray来解析的,所以没用到SafeArrayGetVartype,这个函数好象也是msdn中没有的,可以用它来判断是否是你所需要的VARTYPE,应该是比较有用的。
VARTYPE vt;
SafeArrayGetVarType(psa, &vt);
这里psa为SAFEARRAY*。

 
阅读(1350) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~