ActiveX控制項的MFC設計之旅－第18步

在VB設計ActiveX控制項時，UserControl可以訪問容器提供的擴充項物件Extender，比如VB，就提供了Visible，Tag，Name等等標準的擴充屬性和ToolTipText等等其它擴充屬性。
那麼在用MFC設計ActiveX控制項時，是否也能利用到這個擴充屬性呢？
能，COleControl提供了一個函數LPDISPATCH GetExtendedControl()用來獲得擴充項物件的IDispatch介面。

注意：容器並不一定要提供擴充項物件，因此，GetExtendedControl也並不一定能返回有效IDispatch介面，必須首先判斷一下是否為NULL。

.繼續用tppb作例子，我們測試三個擴充屬性，Visible，Tag和Name

1.添加三個屬性BOOl MyVisible，BSTR Tag，BSTR Name，都用get/set methods類型

2.通過獲得擴充項物件並訪問擴充項物件的屬性來實現我們的這三個屬性

BOOL CTppbCtrl::GetMyVisible()
{
    // TODO: Add your property handler here
    BOOL b;
    DISPID dwDispID;
    LPDISPATCH lpdisp = GetExtendedControl();
    if(lpdisp && GetDispID(lpdisp, "Visible", dwDispID)){
        COleDispatchDriver PropDispDriver;
        PropDispDriver.AttachDispatch(lpdisp, FALSE);
        PropDispDriver.GetProperty(dwDispID, VT_BOOL, &b);
        PropDispDriver.DetachDispatch();
    }
    if(lpdisp){
        lpdisp->Release();
    }
    return b;
    return TRUE;
}

void CTppbCtrl::SetMyVisible(BOOL bNewValue)
{
    // TODO: Add your property handler here
    DISPID dwDispID;
    LPDISPATCH lpdisp = GetExtendedControl();
    if(lpdisp && GetDispID(lpdisp, "Visible", dwDispID)){
        COleDispatchDriver PropDispDriver;
        PropDispDriver.AttachDispatch(lpdisp, FALSE);
        PropDispDriver.SetProperty(dwDispID, VT_BOOL, bNewValue);
        PropDispDriver.DetachDispatch();
    }
    if(lpdisp){
        lpdisp->Release();
    }
    SetModifiedFlag();
}

BSTR CTppbCtrl::GetMyTag()
{
    CString strResult;
    // TODO: Add your property handler here
    DISPID dwDispID;
    LPDISPATCH lpdisp = GetExtendedControl();
    if(lpdisp && GetDispID(lpdisp, "Tag", dwDispID)){
        COleDispatchDriver PropDispDriver;
        PropDispDriver.AttachDispatch(lpdisp, FALSE);
        PropDispDriver.GetProperty(dwDispID, VT_BSTR, &strResult);
        PropDispDriver.DetachDispatch();
    }
    if(lpdisp){
        lpdisp->Release();
    }
    return strResult.AllocSysString();
}

void CTppbCtrl::SetMyTag(LPCTSTR lpszNewValue)
{
    // TODO: Add your property handler here
    DISPID dwDispID;
    LPDISPATCH lpdisp = GetExtendedControl();
    if(lpdisp && GetDispID(lpdisp, "Tag", dwDispID)){
        COleDispatchDriver PropDispDriver;
        PropDispDriver.AttachDispatch(lpdisp, FALSE);
        CString str = lpszNewValue;
        PropDispDriver.SetProperty(dwDispID, VT_BSTR, str);
        PropDispDriver.DetachDispatch();
    }
    if(lpdisp){
        lpdisp->Release();
    }
    SetModifiedFlag();
}

BSTR CTppbCtrl::GetMyName()
{
    CString strResult;
    // TODO: Add your property handler here
    DISPID dwDispID;
    LPDISPATCH lpdisp = GetExtendedControl();
    if(lpdisp && GetDispID(lpdisp, "Name", dwDispID)){
        COleDispatchDriver PropDispDriver;
        PropDispDriver.AttachDispatch(lpdisp, FALSE);
        PropDispDriver.GetProperty(dwDispID, VT_BSTR, &strResult);
        PropDispDriver.DetachDispatch();
    }
    if(lpdisp){
        lpdisp->Release();
    }
    return strResult.AllocSysString();
}

void CTppbCtrl::SetMyName(LPCTSTR lpszNewValue)
{
    // TODO: Add your property handler here
    DISPID dwDispID;
    LPDISPATCH lpdisp = GetExtendedControl();
    if(lpdisp && GetDispID(lpdisp, "Name", dwDispID)){
        COleDispatchDriver PropDispDriver;
        PropDispDriver.AttachDispatch(lpdisp, FALSE);
        CString str = lpszNewValue;
        PropDispDriver.SetProperty(dwDispID, VT_BSTR, str);
        PropDispDriver.DetachDispatch();
    }
    if(lpdisp){
        lpdisp->Release();
    }
    SetModifiedFlag();
}

BOOL CTppbCtrl::GetDispID(LPDISPATCH pdisp, LPCTSTR lpszName, long& dwDispID)
{
    USES_CONVERSION;
    LPCOLESTR lpOleStr = T2COLE(lpszName);
    return SUCCEEDED(pdisp->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpOleStr, 1, 0, (long*)&dwDispID));
}

3.在VB中添加控制項測試可以發現，改變Visible，Tag和Name屬性，MyVisible，MyTag和MyName也隨之改變。