ActiveX Control Text Container与VB作为容器上的实现不一样？？？奇怪。

[jhb]

用MFC写控件，运行方式时窗口不可见的，设计方式下需保持控件尺寸不变。在控件类构造函数中用：SetInitialSize(16,16)，然后响应WM_SIZE消息，调用：SetControlSize(16,16)。在ActiveX Control Text Container下使用设计方式测试正常，但在VB下使用时尺寸不能固定，仿佛加入的代码完全没起作用。对此我极为疑惑,请兄弟们帮忙解答.谢谢.

[jhb]

n6002(阿斯)
成了，你的方法起作用了，谢谢。不过好像在VB和Delphi中的大小不一样啊，用GetDC（）->DPtoHIMETRIC又要出内存错，有什么办法吗？

[n6002]

MFC的我不大清楚，不过好像要这样
BOOL CYourCtrl::OnSetExtent(LPSIZEL lpSizeL)
{
CWnd *pWnd = CWnd::FromHandle(::GetDesktopWindow());
CClientDC dc(pWnd);

CSize sz(16,16);
dc.DPtoHIMETRIC(&sz)
lpSizeL->cx = sz.x;
lpSizeL->cy = sz.y;
return COleControl::OnSetExtent(lpSizeL);
}

还有不知道这样能不能工作：
BOOL CYourCtrl::OnSetExtent(LPSIZEL lpSizeL)
{
return FALSE;
}

[n6002]

标准的做法
MFC版本
重载COleClientItem::SetExtent和下面的差不多。

ATL做的
...
class ATL_NO_VTABLE CYourCtl:
...
STDMETHOD(SetExtent)(DWORD dwDrawAspect, SIZEL *psizel)
{
ATLTRACE(_T("SetExtent sizing control to 16x16\n"));
psizel->cx = psizel->cy = 16;
return IOleObjectImpl<CYourCtl>::SetExtent(dwDrawAspect, psizel);
}
...
};

[ahphone]

??

听课！

[jhb]

n6002(阿斯):
在MFC的控件类中没法重载SetExtent啊，我想是没有实现ColeClientItem这个接口吧。只有一个相似的OnSetExtent(LPSIZEL lpSizeL)，但重载后还是没效果，在ActiveX Control Text Container下都没效。是咋回事，你知道吗？

[jhb]

n6002(阿斯)：
谢了，用你的方法解决了：）。不过这下在VB里行了，在ActiveX Control Text Container反而又不行了。不知道什么回事，不过没影响就好。
谢谢。