我们先来看看SAFEARRAY和它的操作函数，从msdn上翻译了那么一段下来 SAFEARRAY的定义如下
struct SAFEARRAY { WORD cDims; WORD fFeatures; DWORD cbElements; DWORD cLocks; void * pvData; SAFEARRAYBOUND rgsabound[1]; };
基本上它的操作函数也就是对这个结构的操作了
SAFEARRAY * SafeArrayCreate(VARTYPE vt, UINT cDims, SAFEARRAYBOUND * aDims); HRESULT SafeArrayDestroy(SAFEARRAY * psa);
这组函数不用多说了，建立一个SAFEARRAY，不过这个函数有个缺陷，它只能处理类型是VARIANT类型子集中的元素。
HRESULT SafeArrayAllocDescriptor(UINT cDims, SAFEARRAY ** ppsaOut); HRESULT SafeArrayAllocData(SAFEARRAY * psa); HRESULT SafeArrayDestroyData(SAFEARRAY * psa); HRESULT SafeArrayDestroyDescriptor(SAFEARRAY * psa);
这组函数就提供了更多，更灵活的元素类型，但是用起来就稍微复杂一些了，何况一般在COM中也用不了这种复杂的数据类型。
HRESULT SafeArrayLock(SAFEARRAY * psa); HRESULT SafeArrayUnlock(SAFEARRAY * psa);
这组函数只是对结构中cLocks值+1和-1，为什么要用这组函数，目前为止好象也不是非常理解，可能是为了防止在操作数据时删除数组吧，另外在已经 SafeArrayLock后，还可以再在其它地方SafeArrayLock来对数组进行操作，只要记得用完后SafeArrayUnlcok一下就可 以了。
HRESULT SafeArrayGetElement(SAFEARRAY * psa, long * aiIndex, void * pvElem); HRESULT SafeArrayPutElement(SAFEARRAY * psa, long * aiIndex, void * pvElem);
这组函数是得到数组中的某一个值，aiIndex就是下标索引了，这组函数在每次调用的时候都自动调用SafeArrayLock和 SafeArrayUnlock，所以在需要遍历数组中的元素时，最好先用SafeArrayLock，再直接操作数据，最后用 SafeArrayUnlock。该组函数的用法举例如下： long ai[2]; int iVal; xMin = aDims[0].lLbound; xMax = xMin + (int)aDims[0].cElements - 1; yMin = aDims[1].lLbound; yMax = yMin + (int)aDims[1].cElements - 1; for (x = xMin; x <= xMax; x++) { ai[0] = x; for (y = yMin; y <= yMax; y++) { ai[1] = y; if (hres = SafeArrayGetElement(psaiInOut, ai, &iVal)) throw hres; // Equivalent to: aiInOut(x, y) = aiInOut(x, y) + 1. iVal++; if (hres = SafeArrayPutElement(psaiInOut, ai, &iVal)) throw hres; } }
HRESULT SafeArrayPtrOfIndex(SAFEARRAY * psa, long * aiIndex, void ** ppv);
这个函数主要用在多维数组中，一维数组可以用，不过没什么意思吧，这个函数其实和SafeArrayGetElement类似，不过是一个有Lock，一个没Lock，所以用这个函数前，最好先SafeArrayLock一下，用完了，再SafeArrayUnlock。
HRESULT SafeArrayAccessData (SAFEARRAY * psa, void ** ppvData); HRESULT SafeArrayUnaccessData(SAFEARRAY * psa);
这组函数只是简单的Lock和Unlock，加上返回SAFEARRAY结构的pvData成员而已，并不包含维数信息，所以，想不出什么理由来使用它，当然要使用那也是你的事。(这是文摘中的话，个人觉得在用一维数组时，这组函数非常有用)
UINT SafeArrayGetDim(SAFEARRAY * psa); UINT SafeArrayGetElemsize(SAFEARRAY * psa);
这两个函数，第一个返回数组的维数，第二个返回数组中每个元素的大小，比如long就是4了。 其它的函数也不多说了，累，查查资料了 在MFC中，SAFEARRAY用COleSafeArray来封装了，稍微简化一些操作，不过基本用法应该一样的。 现在，我们开始了： 1.改造一下目前的代码，我们先用一个确定大小的Grid，就定为10＊10吧 在CLiteGrid中加上成员变量 CCell m_cells[10][10]; 在CLiteGrid的构造函数中初始化这100个CCell CLiteGridCtrl::CLiteGridCtrl() { InitializeIIDs(&IID_DLiteGrid, &IID_DLiteGridEvents); // TODO: Initialize your control's instance data here. m_scrollBars = 0; int x = 0; int y = 0; for(int i=0; i<10; i++, x+=50){ y = 0; for(int j=0; j<10; j++, y+=20){ m_cells[i][j].m_rect = CRect(x, y, x+50, y+20); } } } 修改LPDISPATCH CLiteGridCtrl::GetCell(short nCol, short nRow) LPDISPATCH CLiteGridCtrl::GetCell(short nCol, short nRow) { // TODO: Add your property handler here /* CCell* pcell = new CCell; return pcell->GetIDispatch(FALSE);*/ if(nCol >=0 && nCol < 10 && nRow >= 0 && nRow < 10){ return m_cells[nCol][nRow].GetIDispatch(TRUE); } else{ return NULL; } } 添加OnDraw绘图代码 void CLiteGridCtrl::OnDraw( CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid) { // TODO: Replace the following code with your own drawing code. pdc->FillRect(&rcBounds, &CBrush(RGB(10, 200, 100))); for(int i=0; i<10; i++){ for(int j=0; j<10; j++){ m_cells[i][j].Draw(pdc); } } } 显然还缺省CCell的Draw代码，所以再添加CCell::Draw(CDC* pdc)函数 void CCell::Draw(CDC *pdc) { pdc->Rectangle(&m_rect); int noldmode = pdc->SetBkMode(TRANSPARENT); pdc->DrawText(m_text, &m_rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE); pdc->SetBkMode(noldmode); } 2.应该差不多了吧，大致就是画10＊10个框框，然后在框框中写字，现在编译一下，不出意外的话，是通过了的。 3.转到VB下，就可以看到这个框框了，不过好象没字，当然了，m_text是空的啊 4.当然可以通过ICell的Text属性给m_text赋值，但我们讲了那么多SafeArray，总要用上吧，所以为CLiteGridCtrl再加 上一个Texts属性，用这个属性给所有的Cell赋上Text，Texts属性用Get/Set methods，类型为VARIANT 5.实现Texts属性VARIANT CLiteGridCtrl::GetTexts() { COleSafeArray sa; DWORD dweles[2] = {10, 10}; sa.Create(VT_BSTR, 2, dweles); long lindex[2] = {0}; BSTR* pele = NULL; sa.Lock(); for(int i=0; i<10; i++){ lindex[0] = i; for(int j=0; j<10; j++){ lindex[1] = j; sa.PtrOfIndex(lindex, (void**)&pele); *pele = T2BSTR(m_cells[i][j].m_text); } } sa.Unlock(); return sa.Detach();}void CLiteGridCtrl::SetTexts(const VARIANT FAR& newValue) { // TODO: Add your property handler here USES_CONVERSION; 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}; BSTR* pele = 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**)&pele); m_cells[i-llb1][j-llb2].m_text = OLE2T(*pele); } } sa.Unlock(); InvalidateControl(); SetModifiedFlag();}要注意的是因为用到了字符串转换宏OLE2T, T2BSTR，所以需要#include "afxpriv.h"，个人还是挺喜欢这组宏的，用起来特省事，就是老要加USES_CONVERSION，别扭的紧。
6.在VB的Form_Load中添加如下代码Private Sub Form_Load()Dim str(0 To 9, 0 To 9) As StringDim stro() As StringDim i As IntegerDim j As IntegerFor i = 0 To 9 For j = 0 To 9 str(i, j) = i & " : " & j NextNextLiteGrid1.Texts = strstro = LiteGrid1.TextsEnd Sub
运行后可以发现10＊10个网格，每个网格上都有纵横坐标字样这篇好象稍微长了些，主要是SAFEARRAY的用法解释的多了些，应该不会烦到哪去吧。那就到这里了。
