yangyou230
- 浏览: 1652640 次
-
文章分类
最新评论
-
yyz420911451：
这题有错呀；__cplusplus,前面是俩下划线 俩下划线， ...
如何判断一段程序是由C编译程序还是由C++编译程序编译的 -
zhikook：
...
android surfaceflinger研究----SurfaceFlinger loop -
望月怀远：
精彩啊，写的太好了
Delphi 编写ActiveX控件（OCX控件）的知识和样例
ATL7.1编写ActiveX控件
我们创建dll形式的ATL项目EllipseCase 如下图：
我打算创建一个Ellipse控件，该控件拥有背景属性，可以改变背景颜色。
该控件绘制一个笛卡尔坐标系，用户可以通过右键菜单修改X、Y、Z轴的颜色。
好啦，现就这么多了，让我上路吧。
重要提醒：如果你要创建一个能够处理WM_CREATE消息的ActiveX控件，请注意：
必须------
a) 选择标准控件
b) 选中仅适用于有窗口的
c) 在构造函数中加上m_bWindowOnly=TRUE。
其中的原因在于符合控件派生自CComCompositeControl<>模板类，而标准控件派生自CComControl<>类。派生自CComCompositeControl类意味着该类可以包容其它的控件，但是同时具有了对话框的特征，且拥有了自己的对话框资源。所以如果想要添加初始化代码，应该处理WM_INITDIALOG消息。如果我们想在自己的控件中包含另一个ActiveX控件，我们应该创建复合控件，并用对话框承载想要包含的ActiveX控件。
三 解释向导的行为
我们先停下来，了解一下ActiveX控件的基础知识，并理解向导生成的代码。
看看CEllispe的父类
class ATL_NO_VTABLE CEllispe :
public CComObjectRootEx<CComSingleThreadModel>,
public CComCoClass<CEllispe, &CLSID_Ellispe>,
public IPersistStreamInitImpl<CEllispe>,
public ISpecifyPropertyPagesImpl<CEllispe>,
public IPersistStorageImpl<CEllispe>,
public CStockPropImpl<CEllispe, IEllispe>,
public IOleControlImpl<CEllispe>,
public IOleObjectImpl<CEllispe>,
public IOleInPlaceActiveObjectImpl<CEllispe>,
public IOleInPlaceObjectWindowlessImpl<CEllispe>,
public IViewObjectExImpl<CEllispe>,
public ISupportErrorInfo,
public IConnectionPointContainerImpl<CEllispe>,
public IProvideClassInfo2Impl<&CLSID_Ellispe, &__uuidof(_IEllispeEvents), &LIBID_EllipseCaseLib>,
public CProxy_IEllispeEvents<CEllispe>,
public IQuickActivateImpl<CEllispe>,
public IDataObjectImpl<CEllispe>,
public CComCompositeControl<CEllispe>
ActiveX控件拥有界面，所以它只能存在于单线程套间中，所以应该用CComObjectRootEx<CComSingleThreadModel>；
ActiveX控件可以被创建，所以通过CComCoClass<CEllispe, &CLSID_Ellispe>来实现自己的类厂；
ActiveX控件至少要支持流方式保存，所以使用IPersistStreamInitImpl<CEllispe>；
VB和IE要求优先以属性包的方式保存对象，所以有的ActiveX控件也要支持
ActiveX控件支持结构化存储，这样可以被嵌入到OLE文档中，IPersistStorageImpl<CEllispe>；
ActiveX控件支持标准属性，使用CStockPropImpl<CEllispe, IEllispe>可以帮助节省时间；
ActiveX控件支持标准OLE控制功能，使用IOleControlImpl<CEllispe>；
ActiveX控件支持实地激活，使用public IOleObjectImpl<CEllispe>,public IOleInPlaceActiveObjectImpl<CEllispe>；
IOleInPlaceObjectWindowlessImpl<CEllispe>帮助实现快速高效的激活；
ActiveX控件支持按需呈现对象的视图，使用IViewObjectExImpl<CEllispe>；
ActiveX控件支持传递错误信息给调用方，而不是仅通过HRESULT,使用ISupportErrorInfo；
ActiveX控件支持事件，因此使用IConnectionPointContainerImpl<CEllispe>,IProvideClassInfo2Impl,CProxy_IEllispeEvents<CEllispe>,
ActiveX控件是复合控件，所以使用了CComCompositeControl<CEllispe>
由于我们在向导中选择了两个标准属性：BackGroundColor和BackGroundStyle，所以我们来看看idl文件中有些什么：
interface IEllispe : IDispatch{
[propput, bindable, requestedit, id(DISPID_BACKCOLOR)]
HRESULT BackColor([in]OLE_COLOR clr);
[propget, bindable, requestedit, id(DISPID_BACKCOLOR)]
HRESULT BackColor([out,retval]OLE_COLOR* pclr);
[propput, bindable, requestedit, id(DISPID_BACKSTYLE)]
HRESULT BackStyle([in]long style);
[propget, bindable, requestedit, id(DISPID_BACKSTYLE)]
HRESULT BackStyle([out,retval]long* pstyle);
};
IEllispe从IDispatch接口派生，这是因为控件容器要使用控件的IDispatch方法访问控件的属性和方法。
注意，所有的标准属性都有bindable和requestedit两个属性，这是因为标准属性的put方法在改变属性之前之后都要向包容器激发变化通知
四 标准属性
背景颜色属于标准属性，CStockPropImpl类能够帮助我们。
template < class T, class InterfaceName, const IID* piid = &_ATL_IIDOF(InterfaceName), const GUID* plibid = &CAtlModule::m_libid, WORD wMajor = 1,
WORD wMinor = 0, class tihclass = CComTypeInfoHolder>
class ATL_NO_VTABLE CStockPropImpl : public IDispatchImpl< InterfaceName, piid, plibid, wMajor, wMinor, tihclass >
{
public:
// Font
HRESULT STDMETHODCALLTYPE put_Font(IFontDisp* pFont)
{
__if_exists(T::m_pFont)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::put_Font/n"));
T* pT = (T*) this;
if (pT->m_nFreezeEvents == 0 && pT->FireOnRequestEdit(DISPID_FONT) == S_FALSE)
return S_FALSE;
pT->m_pFont = 0;
if (pFont)
{
CComQIPtr<IFont, &__uuidof(IFont)> p(pFont);
if (p)
{
CComPtr<IFont> pFont;
p->Clone(&pFont);
if (pFont)
pFont->QueryInterface(__uuidof(IFontDisp), (void**) &pT->m_pFont);
}
}
pT->m_bRequiresSave = TRUE;
if (pT->m_nFreezeEvents == 0)
pT->FireOnChanged(DISPID_FONT);
__if_exists(T::OnFontChanged)
{
pT->OnFontChanged();
}
pT->FireViewChange();
pT->SendOnDataChange(NULL);
}
return S_OK;
}
HRESULT STDMETHODCALLTYPE putref_Font(IFontDisp* pFont)
{
__if_exists(T::m_pFont)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::putref_Font/n"));
T* pT = (T*) this;
if (pT->m_nFreezeEvents == 0 && pT->FireOnRequestEdit(DISPID_FONT) == S_FALSE)
return S_FALSE;
pT->m_pFont = pFont;
pT->m_bRequiresSave = TRUE;
if (pT->m_nFreezeEvents == 0)
pT->FireOnChanged(DISPID_FONT);
__if_exists(T::OnFontChanged)
{
pT->OnFontChanged();
}
pT->FireViewChange();
pT->SendOnDataChange(NULL);
}
return S_OK;
}
HRESULT STDMETHODCALLTYPE get_Font(IFontDisp** ppFont)
{
__if_exists(T::m_pFont)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::get_Font/n"));
ATLASSERT(ppFont != NULL);
if (ppFont == NULL)
return E_POINTER;
T* pT = (T*) this;
*ppFont = pT->m_pFont;
if (*ppFont != NULL)
(*ppFont)->AddRef();
}
return S_OK;
}
// Picture
HRESULT STDMETHODCALLTYPE put_Picture(IPictureDisp* pPicture)
{
__if_exists(T::m_pPicture)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::put_Picture/n"));
T* pT = (T*) this;
if (pT->m_nFreezeEvents == 0 && pT->FireOnRequestEdit(DISPID_PICTURE) == S_FALSE)
return S_FALSE;
pT->m_pPicture = 0;
if (pPicture)
{
CComQIPtr<IPersistStream, &__uuidof(IPersistStream)> p(pPicture);
if (p)
{
ULARGE_INTEGER l;
p->GetSizeMax(&l);
HGLOBAL hGlob = GlobalAlloc(GHND, l.LowPart);
if (hGlob)
{
CComPtr<IStream> spStream;
CreateStreamOnHGlobal(hGlob, TRUE, &spStream);
if (spStream)
{
if (SUCCEEDED(p->Save(spStream, FALSE)))
{
LARGE_INTEGER l;
l.QuadPart = 0;
spStream->Seek(l, STREAM_SEEK_SET, NULL);
OleLoadPicture(spStream, l.LowPart, FALSE, __uuidof(IPictureDisp), (void**)&pT->m_pPicture);
}
spStream.Release();
}
GlobalFree(hGlob);
}
}
}
pT->m_bRequiresSave = TRUE;
if (pT->m_nFreezeEvents == 0)
pT->FireOnChanged(DISPID_PICTURE);
__if_exists(T::OnPictureChanged)
{
pT->OnPictureChanged();
}
pT->FireViewChange();
pT->SendOnDataChange(NULL);
}
return S_OK;
}
HRESULT STDMETHODCALLTYPE putref_Picture(IPictureDisp* pPicture)
{
__if_exists(T::m_pPicture)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::putref_Picture/n"));
T* pT = (T*) this;
if (pT->m_nFreezeEvents == 0 && pT->FireOnRequestEdit(DISPID_PICTURE) == S_FALSE)
return S_FALSE;
pT->m_pPicture = pPicture;
pT->m_bRequiresSave = TRUE;
if (pT->m_nFreezeEvents == 0)
pT->FireOnChanged(DISPID_PICTURE);
__if_exists(T::OnPictureChanged)
{
pT->OnPictureChanged();
}
pT->FireViewChange();
pT->SendOnDataChange(NULL);
}
return S_OK;
}
HRESULT STDMETHODCALLTYPE get_Picture(IPictureDisp** ppPicture)
{
__if_exists(T::m_pPicture)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::get_Picture/n"));
ATLASSERT(ppPicture != NULL);
if (ppPicture == NULL)
return E_POINTER;
T* pT = (T*) this;
*ppPicture = pT->m_pPicture;
if (*ppPicture != NULL)
(*ppPicture)->AddRef();
}
return S_OK;
}
// MouseIcon
HRESULT STDMETHODCALLTYPE put_MouseIcon(IPictureDisp* pPicture)
{
__if_exists(T::m_pMouseIcon)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::put_MouseIcon/n"));
T* pT = (T*) this;
if (pT->m_nFreezeEvents == 0 && pT->FireOnRequestEdit(DISPID_MOUSEICON) == S_FALSE)
return S_FALSE;
pT->m_pMouseIcon = 0;
if (pPicture)
{
CComQIPtr<IPersistStream, &__uuidof(IPersistStream)> p(pPicture);
if (p)
{
ULARGE_INTEGER l;
p->GetSizeMax(&l);
HGLOBAL hGlob = GlobalAlloc(GHND, l.LowPart);
if (hGlob)
{
CComPtr<IStream> spStream;
CreateStreamOnHGlobal(hGlob, TRUE, &spStream);
if (spStream)
{
if (SUCCEEDED(p->Save(spStream, FALSE)))
{
LARGE_INTEGER l;
l.QuadPart = 0;
spStream->Seek(l, STREAM_SEEK_SET, NULL);
OleLoadPicture(spStream, l.LowPart, FALSE, __uuidof(IPictureDisp), (void**)&pT->m_pMouseIcon);
}
spStream.Release();
}
GlobalFree(hGlob);
}
}
}
pT->m_bRequiresSave = TRUE;
if (pT->m_nFreezeEvents == 0)
pT->FireOnChanged(DISPID_MOUSEICON);
__if_exists(T::OnMouseIconChanged)
{
pT->OnMouseIconChanged();
}
pT->FireViewChange();
pT->SendOnDataChange(NULL);
}
return S_OK;
}
HRESULT STDMETHODCALLTYPE putref_MouseIcon(IPictureDisp* pPicture)
{
__if_exists(T::m_pMouseIcon)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::putref_MouseIcon/n"));
T* pT = (T*) this;
if (pT->m_nFreezeEvents == 0 && pT->FireOnRequestEdit(DISPID_MOUSEICON) == S_FALSE)
return S_FALSE;
pT->m_pMouseIcon = pPicture;
pT->m_bRequiresSave = TRUE;
if (pT->m_nFreezeEvents == 0)
pT->FireOnChanged(DISPID_MOUSEICON);
__if_exists(T::OnMouseIconChanged)
{
pT->OnMouseIconChanged();
}
pT->FireViewChange();
pT->SendOnDataChange(NULL);
}
return S_OK;
}
HRESULT STDMETHODCALLTYPE get_MouseIcon(IPictureDisp** ppPicture)
{
__if_exists(T::m_pMouseIcon)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::get_MouseIcon/n"));
ATLASSERT(ppPicture != NULL);
if (ppPicture == NULL)
return E_POINTER;
T* pT = (T*) this;
*ppPicture = pT->m_pMouseIcon;
if (*ppPicture != NULL)
(*ppPicture)->AddRef();
}
return S_OK;
}
IMPLEMENT_STOCKPROP(OLE_COLOR, BackColor, clrBackColor, DISPID_BACKCOLOR)
IMPLEMENT_STOCKPROP(OLE_COLOR, BorderColor, clrBorderColor, DISPID_BORDERCOLOR)
IMPLEMENT_STOCKPROP(OLE_COLOR, FillColor, clrFillColor, DISPID_FILLCOLOR)
IMPLEMENT_STOCKPROP(OLE_COLOR, ForeColor, clrForeColor, DISPID_FORECOLOR)
IMPLEMENT_BOOL_STOCKPROP(AutoSize, bAutoSize, DISPID_AUTOSIZE)
IMPLEMENT_BOOL_STOCKPROP(Valid, bValid, DISPID_VALID)
IMPLEMENT_BOOL_STOCKPROP(Enabled, bEnabled, DISPID_ENABLED)
IMPLEMENT_BOOL_STOCKPROP(TabStop, bTabStop, DISPID_TABSTOP)
IMPLEMENT_BOOL_STOCKPROP(BorderVisible, bBorderVisible, DISPID_BORDERVISIBLE)
IMPLEMENT_BSTR_STOCKPROP(Text, bstrText, DISPID_TEXT)
IMPLEMENT_BSTR_STOCKPROP(Caption, bstrCaption, DISPID_CAPTION)
HRESULT STDMETHODCALLTYPE put_Window(LONG_PTR hWnd)
{
return put_HWND(hWnd);
}
HRESULT STDMETHODCALLTYPE get_Window(LONG_PTR* phWnd)
{
return get_HWND(phWnd);
}
HRESULT STDMETHODCALLTYPE put_HWND(LONG_PTR /*hWnd*/)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::put_HWND/n"));
return E_FAIL;
}
HRESULT STDMETHODCALLTYPE get_HWND(LONG_PTR* phWnd)
{
__if_exists(T::m_hWnd)
{
ATLTRACE(atlTraceControls,2,_T("CStockPropImpl::get_HWND/n"));
ATLASSERT(phWnd != NULL);
if (phWnd == NULL)
return E_POINTER;
T* pT = (T*) this;
*phWnd = reinterpret_cast<LONG_PTR>(pT->m_hWnd);
}
return S_OK;
}
IMPLEMENT_STOCKPROP(LONG, BackStyle, nBackStyle, DISPID_BACKSTYLE)
IMPLEMENT_STOCKPROP(LONG, BorderStyle, nBorderStyle, DISPID_BORDERSTYLE)
IMPLEMENT_STOCKPROP(LONG, BorderWidth, nBorderWidth, DISPID_BORDERWIDTH)
IMPLEMENT_STOCKPROP(LONG, DrawMode, nDrawMode, DISPID_DRAWMODE)
IMPLEMENT_STOCKPROP(LONG, DrawStyle, nDrawStyle, DISPID_DRAWSTYLE)
IMPLEMENT_STOCKPROP(LONG, DrawWidth, nDrawWidth, DISPID_DRAWWIDTH)
IMPLEMENT_STOCKPROP(LONG, FillStyle, nFillStyle, DISPID_FILLSTYLE)
IMPLEMENT_STOCKPROP(SHORT, Appearance, nAppearance, DISPID_APPEARANCE)
IMPLEMENT_STOCKPROP(LONG, MousePointer, nMousePointer, DISPID_MOUSEPOINTER)
IMPLEMENT_STOCKPROP(LONG, ReadyState, nReadyState, DISPID_READYSTATE)
};
我们先来看看模板参数
template < class T, class InterfaceName,
const IID* piid = &_ATL_IIDOF(InterfaceName), const GUID* plibid = &CAtlModule::m_libid, WORD wMajor = 1,
WORD wMinor = 0, class tihclass = CComTypeInfoHolder>
T是控件类的名字；
InterfaceName是接口的名字，该接口拥有标准属性和方法；
piid是接口的GUID的指针；
plibid是类型库GUID的指针；
wMajor是主版本号；
wMinor是次版本号；
实际运用中，只需要指定前面两个参数，其余皆可以采用默认值。
CStockPropImpl类为我们实现了所有标准属性的访问方法，但是我们只需要实现两个属性，因此我们只为我们需要的标准属性提供数据成员，成员变量的名称要与CStockPropImpl类使用的名字一致。如若不信，我们看看下面的宏
IMPLEMENT_STOCKPROP(OLE_COLOR, BackColor, clrBackColor, DISPID_BACKCOLOR)
该宏的定义如下：
#define IMPLEMENT_STOCKPROP(type, fname, pname, dispid) /
HRESULT STDMETHODCALLTYPE put_##fname(type pname) /
{ /
__if_exists(T::m_##pname) /
。。。。。。。。
所以CStockPropImpl类假定控件类T拥有m_clrBackColor成员变量
这很麻烦，但是不必烦恼，因为向导已经为我们定义了合适的成员变量。但是我们还是需要知道这些，万一我们不小心删除了代码，我们知道该如何恢复。
注意IMPLEMENT_STOCKPROP宏只能用于CStockPropImpl类
CEllispe类里边的属性声明为:
OLE_COLOR m_clrBackColor;
void OnBackColorChanged()
{
ATLTRACE(_T("OnBackColorChanged/n"));
}
OnBackColorChanged方法会被CStockPropImpl类在属性值修改的时候调用,如果我们需要对属性的修改进行即时反映,可以在该函数里面填写代码
其他属性也是如此。
现在我们的控件Ellipse已经拥有了背景颜色、背景状态两种标准属性，在Activex测试容器中右键点击控件的边缘，弹出菜单，选择属性，可以看到
我们可以设置背景颜色了。试着用用其他的功能，我们可以设置控件的环境属性，还可以把控件保存到流和结构化存储文件中。但是目前不支持属性包方式保存。
我撰写本文的时候，正是Windows2000已经普及的时候，出于效率的考虑和开发程序减少从ANSI和UNICODE转换的额外负担，我在本文示例程序中全部使用Unicode风格编码，工程中设置如下：
到这里忍不住提高点难度，用GDI绘制笛卡尔坐标系很简单，用OpenGL绘制三维笛卡尔坐标系才棒。如果读者不想涉及太多的OpenGL技巧，可以掠过这一节，用GDI绘图。
在stdafx.h文件中增加以下代码：
#include <gl/gl.h>
#include <gl/glu.h>
#pragma comment(lib, "opengl32.lib")
#pragma comment(lib, "glu32.lib")
#pragma comment(lib, "glaux.lib")
#pragma warning(disable : 4100)
#include <gl/glaux.h>
#pragma comment(lib, "winmm.lib")
为我们的控件添加成员函数
//设置屏幕DC的像素格式，OpenGL绘图环境初始化
BOOL CEllispe::bSetupPixelFormat(HDC hdc)
{
static PIXELFORMATDESCRIPTOR pfd =
{
sizeof(PIXELFORMATDESCRIPTOR),// size of this pfd
1, // version number
PFD_DRAW_TO_WINDOW | // support window
PFD_SUPPORT_OPENGL | // support OpenGL
PFD_DOUBLEBUFFER, // double buffered
PFD_TYPE_RGBA, // RGBA type
24, // 24-bit color depth
0, 0, 0, 0, 0, 0, // color bits ignored
0, // no alpha buffer
0, // shift bit ignored
0, // no accumulation buffer
0, 0, 0, 0, // accum bits ignored
32, // 32-bit z-buffer
0, // no stencil buffer
0, // no auxiliary buffer
PFD_MAIN_PLANE, // main layer
0, // reserved
0, 0, 0 // layer masks ignored
};
int pixelformat;
if ( (pixelformat = ChoosePixelFormat(hdc, &pfd)) == 0 )
{
ATLASSERT(FALSE);
return FALSE;
}
if (SetPixelFormat(hdc, pixelformat, &pfd) == FALSE)
{
ATLASSERT(FALSE);
return FALSE;
}
return TRUE;
}
//初始化OpenGL绘制的环境
void CEllispe::CreateContext(HDC hdc, RECT& rc)
{
PIXELFORMATDESCRIPTOR pfd;
if (!bSetupPixelFormat(hdc))
return;
int n = ::GetPixelFormat(hdc);
::DescribePixelFormat(hdc, n, sizeof(pfd), &pfd);
m_hrc = wglCreateContext(hdc);
wglMakeCurrent(hdc, m_hrc);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();
}
//绘制x、y、z坐标轴
void CEllispe::RenderScene(void)
{
glClearColor(1.0f, 1.0f, 1.0f, 10.0f);
glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
glPushMatrix();
glColor3f(1.0f,1.0f,1.0f);
//绕x轴逆时针旋转15度
glRotatef(15.0f,1.0f,0.0f,0.0f);
//绕y轴顺时针旋转angle度
glRotatef(-30,0.0f,1.0f,0.0f);
glBegin(GL_LINES);
//绘制X轴
glColor3f(1.0f,0.0f,0.0f);
glVertex3f(-100.0f,0.0f,0.0f);
glVertex3f(100.0f,0.0f,0.0f);
glVertex3f(100.0f,0.0f,0.0f);
glVertex3f(95.0f,0.0f,5.0f);
glVertex3f(100.0f,0.0f,0.0f);
glVertex3f(95.0f,0.0f,-5.0f);
//绘制Y轴
glColor3f(0.0f,1.0f,0.0f);
glVertex3f(0.0f,-100.0f,0.0f);
glVertex3f(0.0f,100.0f,0.0f);
glVertex3f(0.0f,100.0f,0.0f);
glVertex3f(-5.0f,95.0f,0.0f);
glVertex3f(0.0f,100.0f,0.0f);
glVertex3f(5.0f,95.0f,0.0f);
//绘制Z轴
glColor3f(0.0f,0.0f,1.0f);
glVertex3f(0.0f,0.0f,-100.0f);
glVertex3f(0.0f,0.0f,100.0f);
glVertex3f(0.0f,0.0f,100.0f);
glVertex3f(5.0f,0.0f,95.0f);
glVertex3f(0.0f,0.0f,100.0f);
glVertex3f(-5.0f,0.0f,95.0f);
glEnd();
glPopMatrix();
glFinish();
SwapBuffers(wglGetCurrentDC());
}
在OnCreate里面添加如下代码：
LRESULT CEllispe::OnCreate(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)
{
HDC hdc = GetDC();
RECT rc;
GetClientRect(&rc);
CreateContext(hdc, rc);
return 0;
}
在OnDestroy里面添加如下代码：
LRESULT CEllispe::OnDestroy(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)
{
::wglMakeCurrent(NULL,NULL);
if (m_hrc)
{
::wglDeleteContext(m_hrc);
m_hrc = NULL;
}
return 0;
}
在OnDraw里面添加如下代码：
HRESULT CEllispe::OnDraw(ATL_DRAWINFO& di)
{
HDC hdc = di.hdcDraw;
wglMakeCurrent(hdc, m_hrc);
RenderScene();
return __super::OnDraw(di);
}
最后一定要在CEllipse头文件中加上宏
BEGIN_MSG_MAP(CEllispe)
MESSAGE_HANDLER(WM_PAINT, OnPaint)
MESSAGE_HANDLER(WM_SIZE, OnSize)
MESSAGE_HANDLER(WM_CREATE, OnCreate)
MESSAGE_HANDLER(WM_DESTROY, OnDestroy)
CHAIN_MSG_MAP(CComCompositeControl<CEllispe>)
END_MSG_MAP()
效果如图：
另外发现一个问题glut库函数在ATL7.1中使用会导致工程生成的控件注册失败。
我要为我的控件添加自己的属性，XColor，用来保存X轴的颜色。右键点击IEllipse接口，选择添加属性，
向导在idl文件中添加如下代码：
[propget, id(1), helpstring("属性 XColor"), bindable, requestedit] HRESULT XColor([out, retval] OLE_COLOR* pVal);
[propput, id(1), helpstring("属性 XColor"), bindable, requestedit] HRESULT XColor([in] OLE_COLOR newVal);
修改idl文件中的代码：
const int DISPID_XCOLOR=1;
[propget, id(DISPID_XCOLOR), helpstring("属性 XColor"), bindable, requestedit] HRESULT XColor([out, retval] OLE_COLOR* pVal);
[propput, id(DISPID_XCOLOR), helpstring("属性 XColor"), bindable, requestedit] HRESULT XColor([in] OLE_COLOR newVal);
向导在.h文件中增加如下代码：
STDMETHOD(get_XColor)(OLE_COLOR* pVal);
STDMETHOD(put_XColor)(OLE_COLOR newVal);
向导在.cpp文件中增加如下代码：
STDMETHODIMP CEllispe::get_XColor(OLE_COLOR* pVal)
{
// TODO: 在此添加实现代码
return S_OK;
}
STDMETHODIMP CEllispe::put_XColor(OLE_COLOR newVal)
{
// TODO: 在此添加实现代码
return S_OK;
}
现在我们来实现添加自己的代码实现属性：
第一步，先添加私有成员变量 OLE_COLOR m_XColor;
第二步，在get和put函数内部填写代码
STDMETHODIMP CEllispe::get_XColor(OLE_COLOR* pVal)
{
if(pVal==NULL)
return E_POINTER;
*pVal=m_XColor;
return S_OK;
}
STDMETHODIMP CEllispe::put_XColor(OLE_COLOR newVal)
{
if(m_XColor==newVal)
return S_OK;
if(!m_nFreezeEvents)//m_nFreezeEvents是从父类CComCompositeControl继承下来的，只有为0时才可以设置属性
{
if(FireOnRequestEdit(DISPID_XCOLOR)==S_FALSE)//通知容器控件准备改变属性，容器许可将返回S_OK
return S_FALSE;
}
//////////////////////////////
//真正本属性需要的代码就此一行
m_XColor=newVal;
///////////////////////////////
m_bRequiresSave=TRUE;//m_bRequiresSave从CComControlBase类继承，为TRUE表示属性已被修改，需要保存
if(!m_nFreezeEvents)
{
FireOnChanged(DISPID_XCOLOR);//通知容器属性值已经修改
}
FireViewChange();//通知容器控件窗口需要重绘，用于绘制图形的地方，不是所有场合都必须
SendOnDataChange(NULL);//通知所有建立连接的通报接收器控件的属性已经改变
return S_OK;
}
真得非常简单，如你所看到的，其实COM对象的属性实质是一对方法，只是VB语言让你以为“=”运算符就可以获取/设置属性值，内部还是调用了两个方法
八 自定义方法
有了自定义属性的基础，编写自定义方法非常简单，在这里我就不再赘述了，可以参考我以前的文章<<ATL7.1创建房屋对象>>。
唯一的区别是不需要考虑通知容器。
九 标准方法
ActiveX控件有标准方法。遗憾的是我还没有找到ATL7.1中通过向导自动生成他们代码的方法，或许根本就没有。下面列出的是（可能是）ATL7.1支持的ActiveX控件的所有的标准方法ID。
#define DISPID_REFRESH (-550)
#define DISPID_DOCLICK (-551)
#define DISPID_ABOUTBOX (-552)
#define DISPID_ADDITEM (-553)
#define DISPID_CLEAR (-554)
#define DISPID_REMOVEITEM (-555)
#define DISPID_CLICK (-600)
#define DISPID_DBLCLICK (-601)
#define DISPID_KEYDOWN (-602)
#define DISPID_KEYPRESS (-603)
#define DISPID_KEYUP (-604)
#define DISPID_MOUSEDOWN (-605)
#define DISPID_MOUSEMOVE (-606)
#define DISPID_MOUSEUP (-607)
#define DISPID_ERROREVENT (-608)
#define DISPID_READYSTATECHANGE (-609)
#define DISPID_CLICK_VALUE (-610)
#define DISPID_RIGHTTOLEFT (-611)
#define DISPID_TOPTOBOTTOM (-612)
#define DISPID_THIS (-613)
现在我们手动实现其中的一个AboutBox方法，该方法弹出AboutBox对话框。我们可以用它显示我们的一些信息。
首先在idl文件中加上如下代码：
[id(DISPID_ABOUTBOX)] HRESULT AboutBox();
然后在.h中声明函数原型，然后在.cpp文件中
STDMETHODIMP CEllispe::AboutBox()
{
MessageBox(L"这是我们的ATL编写ActivX控件的教程,属于飞天公司内部资料");
return S_OK;
}
好了，标准方法也添加完毕。
注意，我们的控件是复合控件，它包含了一个对话框资源IDD_ELLISPE，如果我们在该对话框资源上加上控件，程序运行时会自动看见，你可以把我们的控件想象成对话框程序。
我们这里并不想在该对话框上添加任何东西。如果我们想弹出对话框，请添加新的对话框资源。ATL中使用对话框涉及到其他知识，这里不涉及。
十标准事件
`ATL7.1似乎不支持标准事件
十一自定义事件
分享到：
发表评论
相关推荐
VC++ 演示ATL编写ActiveX控件的方法 VC++ 演示ATL编写ActiveX控件的方法
ATL开发的ACTIVEX控件的一个IE控件例子程序，源码。想学IE控件开发的试试看吧。
XBarCodePro ATL ActiveX控件 用于任何支持OLE的语言开发高级条码应用程序，如：VB, VC++,VB.Net，C#.Net, VC++.Net。用户可以直接把该控件嵌入到支持OLE的应用程序，如：Microsoft Word, Access 和 Excel。...
VC 6.0使用ATL方法编写实现ActiveX控件，编译最终生成Polygon.dll文件，没有窗口可查看。这个源码是来自国外，源代码含注释，代码规整，在ATL方法编写DLL控件方面，还是很有参考价值的。
这当然可以理解为：ATL 7.1和MFC4.2也可以免费的用于商业开发了！！因为该驱动包是可以用于商业开发，免费提供下载的。 我已经从中提取了ATL 7.1供大家下载使用：http://download.csdn.net/source/1672909 这是...
visual c++编写ATL ActiveX OCX控件
在 ATL中创建Full ActiveX控件；ATL对ActiveX控件 的属性页面的支持； ATL中对ActiveX控件事件的支持； 在MFC中创建特殊化的ActiveX控件； 在 MFC 中创建全性能的 ActiveX 控件；MFC 中对 ActiveX 控件的属性页面的...
向大家介绍atl编写 activex 空间 方法，activeX 采用ATL 编写
2022年用ATL和MFC来创建ActiveX控件C语言教程.docx
ATL开发ActiveX的步骤MSDN里就有 网上显示gif动画的资料也不少 综合了一下，这只是个毛坯，真正用的时候再完成吧 内容： 一个word文档，描述开发步骤 一个demo，包含组件和测试工程
用ATL创建ActiveX控件,电子文档，相互学习
windows下activex控件开发的例子。 两种方式实现：一个MFC实现的activex控件、一个ATL实现的activex控件例子。 同时附带测试程序，供初学者参考。
用ATL和MFC来创建ActiveX控件
从Windows Driver Kit Version 7.1.0中分离出的ATL7.1 用处就不说了
ATL写的ActiveX密码控件，很有参考价值
ActiveX控件的应用与工作原理。ActiveX控件的编写，如何为控件安排属性，方法，事件，属性页，持久性存储，控件如何通知容器自身属性的改变。如何注册控件与取消控件注册。在VB和VC中访问ActiveX控件。
ATL编写控件比MFC要难一些，所谓的难就是ATL中的编程向导没有MFC中的那么好用。有好多的东东要自己手工去加。所以今天我就把ATL控件建立的过程在此阐述一下，供初学者学习。代码文档...
在 ATL 中创建Internet Explorer（Lite）ActiveX控件；在ATL 中创建Full ActiveX控件； ATL 对ActiveX控件的属性页面的支持；ATL 中对ActiveX控件事件的支持；在MFC中创建特殊化的ActiveX控件；在 MFC 中创建全性能...
使用MFC与ATL两种工具开发ActiveX控件
页面跳转时，object引用的控件会被释放，该资源测试了如何在frameset中实现页面跳转时，object引用的变量保持状态一致不被释放