有难度的COM问题：关于Font的问题?

[vcmfc]

我在创建ActiveX中使用其默认字体属性，在生成控件后，在IDL中如下东东：
[propputref, id(DISPID_FONT)]
HRESULT Font([in]IFontDisp* pFont);
[propput, id(DISPID_FONT)]
HRESULT Font([in]IFontDisp* pFont);
[propget, id(DISPID_FONT)]
HRESULT Font([out, retval]IFontDisp** ppFont);
在CLabel.h中有如下东东：
CComPtr<IFontDisp> m_pFont;
在你的提醒下，我在OnDraw中用如下代码：
IFont *pFont;
HFONT hFont=NULL;
HRESULT hr;
if(m_pFont)
hr=m_pFont->QueryInterface(IID_IFont,(void**)&pFont);
else
hr=GetAmbientFont(&pFont);
if(SUCCEEDED(hr))
{
pFont->get_hFont(&hFont);
::SelectObject(di.hdcDraw,hFont);
}
结果Label控件在创建时没有问题，可在VB的对象属性页中对Font属性的改变后，出现错误：无效的属性值(Invlid Property Value),我是哪里工作没有做呀！，问题在哪里呀！,如果用自已的属性页却正常，why？大大哥，我真的很急呀！经理每天都问我呢？，再不就...?

[随风bj]

猜：不知道是不是应该在OnDraw的最后把接口释放（release),:0

[vcmfc]

加上pFont->Release()也还是这样呀！，高手呀！救命.....

[xubin_sh]

返回的都是IFont**，而你用HFONT去接受它，就......
我没试过
pFont->get_hFont(&hFont);
pFont->AddRefHfont(hFont);
并且将hFont记为成员变量，当有新的值的时候用ReleaseHfont释放他

[vcmfc]

现在不是取得HFONT的问题，而是该属性是ATL中插入Active X中的默认属性，在VB的属性页中进行赋值时会产生错误：无效的属性值(Invlid Property Value),如何去掉这个错误?

[iamfool]

你在ＶＣ中用一下，看看行不行，要是不行，

就可能要派遣接口的说，
因为ＶＢ这破玩意不支持指针，ＭＳ为它也不知操了多少心，加这个规定，加那个协议

另外Font 用后可能真的要ＦＲＥＥ一下，否则最多也就是系统字体变一下子，

[luxyi]

在VB的Object Browser(或Viewer？记不清了）中可以看到，VB的FORM中用的字体对象是stdFont，而VC中用的是IFontDisp，虽然这两个在VB中都是Object，且都在一个Type Library中，但是通过#import那个.tlb文件得到的两个文件来看，stdFont是一个coclass，而IFontDisp是一个interface。说不定VC中的这个FONT属性真的和VB不兼容。

[luxyi]

在VB的Object Browser(或Viewer？记不清了）中可以看到，VB的FORM中用的字体对象是stdFont，而VC中用的是IFontDisp，虽然这两个在VB中都是Object，且都在一个Type Library中，但是通过#import那个.tlb文件得到的两个文件来看，stdFont是一个coclass，而IFontDisp是一个interface。说不定VC中的这个FONT属性真的和VB不兼容。

[vcmfc]

陆大哥，那该如何解决这个字体问题？

[vcmfc]

大哥能请细一点吗？

[vcmfc]

找到解决方案了，简单之极，妈了，可困惑了N天，把它从上面移到下面就可了，可气的是我看了KnowLedge却看了N个小时，该死的Micorosoft,至于警告，得动用系统头文件，其它就加入一个关键字，dual就OK了.