使用MFC开发ActiveX控件
摘要： 本文对COM组件中的ActiveX控件的MFC开发方法进行了介绍，讲述了用户自定义和库存属性、方法以及事件的添加方法和属性页的制作过程。使读者能够掌握基本的MFC ActiveX开发方法。
前言
ActiveX控件是一种实现了一系列特定接口而使其在使用和外观上更象一个控件的COM组件。ActiveX控件这种技术涉及到了几乎所有的COM和OLE的技术精华，如可链接对象、统一数据传输、OLE文档、属性页、永久存储以及OLE自动化等。
ActiveX控件作为基本的界面单元，必须拥有自己的属性和方法以适合不同特点的程序和向包容器程序提供功能服务，其属性和方法均由自动化服务的IDispatch接口来支持。除了属性和方法外，ActiveX控件还具有区别于自动化服务的一种特性--事件。事件指的是从控件发送给其包容程序的一种通知。与窗口控件通过发送消息通知其拥有者类似，ActiveX控件是通过触发事件来通知其包容器的。事件的触发通常是通过控件包容器提供的IDispatch接口来调用自动化对象的方法来实现的。在设计ActiveX控件时就应当考虑控件可能会发生哪些事件以及包容器程序将会对其中的哪些事件感兴趣并将这些事件包含进来。与自动化服务不同，ActiveX控件的方法、属性和事件均有自定义（custom）和库存（stock）两种不同的类型。自定义的方法和属性也就是是普通的自动化方法和属性，自定义事件则是自己选取名字和Dispatch ID的事件。而所谓的库存方法、属性和事件则是使用了ActiveX控件规定了名字和Dispatch ID的"标准"方法、属性和事件。
ActiveX控件可以使COM组件从外观和使用上能与普通的窗口控件一样，而且还提供了类似于设置Windows标准控件属性的属性页，使其能够在包容器程序的设计阶段对ActiveX控件的属性进行可视化设置。ActiveX控件提供的这些功能使得对其的使用将是非常方便的。本文下面即以MFC为工具对ActiveX控件的开发进行介绍。
前言
ActiveX控件是一种实现了一系列特定接口而使其在使用和外观上更象一个控件的COM组件。ActiveX控件这种技术涉及到了几乎所有的COM和OLE的技术精华，如可链接对象、统一数据传输、OLE文档、属性页、永久存储以及OLE自动化等。
ActiveX控件作为基本的界面单元，必须拥有自己的属性和方法以适合不同特点的程序和向包容器程序提供功能服务，其属性和方法均由自动化服务的IDispatch接口来支持。除了属性和方法外，ActiveX控件还具有区别于自动化服务的一种特性--事件。事件指的是从控件发送给其包容程序的一种通知。与窗口控件通过发送消息通知其拥有者类似，ActiveX控件是通过触发事件来通知其包容器的。事件的触发通常是通过控件包容器提供的IDispatch接口来调用自动化对象的方法来实现的。在设计ActiveX控件时就应当考虑控件可能会发生哪些事件以及包容器程序将会对其中的哪些事件感兴趣并将这些事件包含进来。与自动化服务不同，ActiveX控件的方法、属性和事件均有自定义（custom）和库存（stock）两种不同的类型。自定义的方法和属性也就是是普通的自动化方法和属性，自定义事件则是自己选取名字和Dispatch ID的事件。而所谓的库存方法、属性和事件则是使用了ActiveX控件规定了名字和Dispatch ID的"标准"方法、属性和事件。
ActiveX控件可以使COM组件从外观和使用上能与普通的窗口控件一样，而且还提供了类似于设置Windows标准控件属性的属性页，使其能够在包容器程序的设计阶段对ActiveX控件的属性进行可视化设置。ActiveX控件提供的这些功能使得对其的使用将是非常方便的。本文下面即以MFC为工具对ActiveX控件的开发进行介绍。
建立工程框架
通过"MFC ActiveX ControlWizard"向导可以非常容易的建立一个MFC ActiveX控件工程框架。按照默认的选项将建立如图1所示的工程结构：
图1 使用缺省选项建立的ActiveX控件工程结构
其中，_DSample68和_DSample68Events这两个接口将为客户程序提供本控件的属性、方法以及可能响应的事件。全局函数DllRegisterServer（）和DllUnregisterServer（）分别用于控件在注册表的注册和注销，一般不需要对其进行改动。
应用程序类从COleControlModule继承。而COleControlModule有是从CWinApp派生，提供了初始化控件模块的功能。CSample68PropPage的基类是COlePropertyPage，CDialog类的派生类，主要负责对属性页中对图形界面下用户控件属性的显示。控件类CSample68Ctrl类是这几个类中比较重要的一个类，大部分实质性工作都在该类完成，其基类为COleControl，从CWnd和CCmdTarget继承，因此能够为控件对象提供与MFC窗口对象相同的功能同时也提供了一系列事件触发函数和一个分发映射表，使ActiveX控件能够同包容器程序有效地进行交互。该类的派生类将可以在满足特定的条件时向控件的包容器发送消息或是触发事件，以通知包容器程序在控件内有一些重要的事件发生。分发映射表是其中很重要的一个部分，负责向包容器程序暴露控件提供的方法和属性。图2展示了COleControl类在控件与包容器通信中所起的作用。可以看出，ActiveX控件与其包容器之间的所有通信过程都是由COleControl来完成的：
图2 COleControl在ActiveX控件与包容器通信中的作用
控件类对基类COleControl的OnDraw（）函数进行了重载，向导生成了如下缺省代码，其作用是在控件的客户区绘制一个椭圆。在编程过程中通常要对其进行替换：
图3 插入ActiveX控件
图4 插入的待测试控件
对向导生成的代码进行编译后，将产生扩展名为ocx的ActiveX控件。ActiveX控件并不能独立运行，只能在包容器程序中才能够运行。通常，为了调试方便而多使用VC++附带的ActiveX Control Test Container工具以在测试阶段对ActiveX控件进行调试。在测试工具的客户区点击鼠标右键，并选中弹出菜单的"Insert New Control…"菜单项，将弹出图3所示的对话框，左侧的列表框中列出了当前系统中所有注册的ActiveX控件，选中要测试的控件并将其插入到测试程序即可通过"Control"菜单下的各菜单项对控件的方法、属性以及事件等进行测试。在位于下方的分割视图中将跟踪显示出调试记录（参见图4）。
通过"MFC ActiveX ControlWizard"向导可以非常容易的建立一个MFC ActiveX控件工程框架。按照默认的选项将建立如图1所示的工程结构：
图1 使用缺省选项建立的ActiveX控件工程结构
其中，_DSample68和_DSample68Events这两个接口将为客户程序提供本控件的属性、方法以及可能响应的事件。全局函数DllRegisterServer（）和DllUnregisterServer（）分别用于控件在注册表的注册和注销，一般不需要对其进行改动。
应用程序类从COleControlModule继承。而COleControlModule有是从CWinApp派生，提供了初始化控件模块的功能。CSample68PropPage的基类是COlePropertyPage，CDialog类的派生类，主要负责对属性页中对图形界面下用户控件属性的显示。控件类CSample68Ctrl类是这几个类中比较重要的一个类，大部分实质性工作都在该类完成，其基类为COleControl，从CWnd和CCmdTarget继承，因此能够为控件对象提供与MFC窗口对象相同的功能同时也提供了一系列事件触发函数和一个分发映射表，使ActiveX控件能够同包容器程序有效地进行交互。该类的派生类将可以在满足特定的条件时向控件的包容器发送消息或是触发事件，以通知包容器程序在控件内有一些重要的事件发生。分发映射表是其中很重要的一个部分，负责向包容器程序暴露控件提供的方法和属性。图2展示了COleControl类在控件与包容器通信中所起的作用。可以看出，ActiveX控件与其包容器之间的所有通信过程都是由COleControl来完成的：
图2 COleControl在ActiveX控件与包容器通信中的作用
控件类对基类COleControl的OnDraw（）函数进行了重载，向导生成了如下缺省代码，其作用是在控件的客户区绘制一个椭圆。在编程过程中通常要对其进行替换：
| void CSample68Ctrl::OnDraw( CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid) { // TODO: Replace the following code with your own drawing code. pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH))); pdc->Ellipse(rcBounds); } |
图3 插入ActiveX控件
图4 插入的待测试控件
对向导生成的代码进行编译后，将产生扩展名为ocx的ActiveX控件。ActiveX控件并不能独立运行，只能在包容器程序中才能够运行。通常，为了调试方便而多使用VC++附带的ActiveX Control Test Container工具以在测试阶段对ActiveX控件进行调试。在测试工具的客户区点击鼠标右键，并选中弹出菜单的"Insert New Control…"菜单项，将弹出图3所示的对话框，左侧的列表框中列出了当前系统中所有注册的ActiveX控件，选中要测试的控件并将其插入到测试程序即可通过"Control"菜单下的各菜单项对控件的方法、属性以及事件等进行测试。在位于下方的分割视图中将跟踪显示出调试记录（参见图4）。
属性、方法以及事件的添加
图5 属性的添加
图6 方法的添加
对ActiveX控件属性、方法和事件的添加均有库存和自定义两种。其中对属性和方法的添加在MFC ClassWizard对话框的Automation页中通过按钮"Add Property…"和"Add Method…"弹出如图5和图6所示的添加属性和添加方法的对话框来完成。对于库存属性和方法，可以直接从External name组合框的下拉列表中选取，Implementation项将自动设置为Stock。对于自定义属性和方法的添加与在自动化对象中为接口添加属性和方法的过程一样，ClassWizard将在.odl文件和控件类生成相应的代码，下面给出的是在控件类中实现的部分分发映射代码：
在这里共添加了一个自定义方法MessageLen（）和三种库存属性BackColor、Caption和ForeColor（分别表示控件的背景色、标题和前台色）、两个以Get/Set方式获取的自定义属性XPos、YPos和一个以成员变量方式实现的自定义属性Message。这几个自定义属性分别表示要显示字符串的x、y坐标和要显示的内容。对于采取Get/Set方式获取的属性，应当在控件类中为其添加相应的成员函数，并修改其Get、Set成员函数的实现过程：
对于以成员变量方式创建的属性Message，向导还为其生成了一个消息响应函数：
只要该属性的值被更改，OnMessageChanged（）函数即会被调用。
为了使上述属性设置如背景色、前景色等能够与控件实际联系起来，需要替换控件类OnDraw（）函数中由向导生成的那部分代码。例如，下面这段代码即以前面添加的属性设置作为参数值，在控件中显示一串字符：
为了使属性设置更改后，其效果能够立即在控件上显示出来，应当在与属性设置相关的函数实现中调用InvalidateControl（）以更新控件的显示。
可以编译程序并在ActiveX Control Test Container工具中对其进行测试。在插入控件后，通过"Invoke Methods…"菜单项弹出如图7所示的对话框。在Method Name组合框中可以选择要测试的属性和方法。其中，对于属性的测试分别有ProgGet和ProgSet的说明以指出是对属性值的获取与设置。在Parameter编辑框中输入要设置的参数及其对应的参数类型，点击SetValue按钮将把该参数值添加到参数列表框，最后点击Invoke按钮将在控件应用设置的属性并执行指定的方法。对于有返回值的方法，其执行结果将在Return编辑框中显示。如果出现了异常操作，在Exception编辑框中将会显示出相应的异常错误信息。图8给出了经过属性设置的控件界面。
图7 对属性、方法的测试
图8 设置了属性后的控件
对于控件事件的添加，在MFC ClassWizard对话框的ActiveX Events页中通过"Add Event…"按钮弹出如图9所示的"Add Event"事件添加对话框。与方法、属性的添加类似，在External name组合框中可以输入要添加的自定义事件名称，也可以从下拉列表选择库存事件。Implementation项将根据所要添加的事件类型而自动设置Stock或Custom选项。ActiveX控件将通过添加的事件来通知容器程序有特定的事件发生，库存事件多为键盘、鼠标事件，将由COleControl自动进行处理。对于自定义事件，则只是在.odl文件和控件类中添加了事件映射表等必要的代码（代码附下），至于应当在何种条件下触发该事件须由开发人员自行编写代码。
图9 事件的添加
上述代码添加了一个MsgOut的自定义事件，可以在通过调用FireMsgOut（）来激发。下面对Message属性的OnMessageChanged（）消息响应函数进行修改，每当Message属性内容被更改都会调用该函数，在该函数中调用此前添加的MessageLen（）方法以确定更改后的Message属性的字符串长度，在长度大于10时调用FireMsgOut（）触发MsgOut事件：
图10 选择要记录的事件
在用ActiveX Control Test Container对刚添加的事件进行测试时，首先通过"Control"菜单下的"Logging…"菜单项弹出如图10所示的对话框，并从"Events"属性页中选中要跟踪记录的事件。当通过Invoke Methods对话框设置Message属性的内容超过10个字符后，位于程序框架下方的分割视图将记录控件所触发的MsgOut事件（如图11所示）。
图11 对事件的测试
图5 属性的添加
图6 方法的添加
对ActiveX控件属性、方法和事件的添加均有库存和自定义两种。其中对属性和方法的添加在MFC ClassWizard对话框的Automation页中通过按钮"Add Property…"和"Add Method…"弹出如图5和图6所示的添加属性和添加方法的对话框来完成。对于库存属性和方法，可以直接从External name组合框的下拉列表中选取，Implementation项将自动设置为Stock。对于自定义属性和方法的添加与在自动化对象中为接口添加属性和方法的过程一样，ClassWizard将在.odl文件和控件类生成相应的代码，下面给出的是在控件类中实现的部分分发映射代码：
| …… // Dispatch maps //{{AFX_DISPATCH(CSample68Ctrl) CString m_message; afx_msg void OnMessageChanged(); afx_msg short GetXPos(); afx_msg void SetXPos(short nNewValue); afx_msg short GetYPos(); afx_msg void SetYPos(short nNewValue); afx_msg short MessageLen(); //}}AFX_DISPATCH DECLARE_DISPATCH_MAP() // Dispatch and event IDs public: enum { //{{AFX_DISP_ID(CSample68Ctrl) dispidMessage = 1L, dispidXPos = 2L, dispidYPos = 3L, dispidMessageLen = 4L, //}}AFX_DISP_ID }; …… BEGIN_DISPATCH_MAP(CSample68Ctrl, COleControl) //{{AFX_DISPATCH_MAP(CSample68Ctrl) DISP_PROPERTY_NOTIFY(CSample68Ctrl, "Message", m_message, OnMessageChanged, VT_BSTR) DISP_PROPERTY_EX(CSample68Ctrl, "XPos", GetXPos, SetXPos, VT_I2) DISP_PROPERTY_EX(CSample68Ctrl, "YPos", GetYPos, SetYPos, VT_I2) DISP_FUNCTION(CSample68Ctrl, "MessageLen", MessageLen, VT_I2, VTS_NONE) DISP_STOCKPROP_BACKCOLOR() DISP_STOCKPROP_CAPTION() DISP_STOCKPROP_FORECOLOR() //}}AFX_DISPATCH_MAP END_DISPATCH_MAP() …… |
在这里共添加了一个自定义方法MessageLen（）和三种库存属性BackColor、Caption和ForeColor（分别表示控件的背景色、标题和前台色）、两个以Get/Set方式获取的自定义属性XPos、YPos和一个以成员变量方式实现的自定义属性Message。这几个自定义属性分别表示要显示字符串的x、y坐标和要显示的内容。对于采取Get/Set方式获取的属性，应当在控件类中为其添加相应的成员函数，并修改其Get、Set成员函数的实现过程：
| short m_nYPos; short m_nXPos; …… short CSample68Ctrl::GetXPos() { return m_nXPos; } void CSample68Ctrl::SetXPos(short nNewValue) { m_nXPos = nNewValue; SetModifiedFlag(); } short CSample68Ctrl::GetYPos() { return m_nYPos; } void CSample68Ctrl::SetYPos(short nNewValue) { m_nYPos = nNewValue; SetModifiedFlag(); } |
对于以成员变量方式创建的属性Message，向导还为其生成了一个消息响应函数：
| void CSample68Ctrl::OnMessageChanged() { SetModifiedFlag(); } |
只要该属性的值被更改，OnMessageChanged（）函数即会被调用。
为了使上述属性设置如背景色、前景色等能够与控件实际联系起来，需要替换控件类OnDraw（）函数中由向导生成的那部分代码。例如，下面这段代码即以前面添加的属性设置作为参数值，在控件中显示一串字符：
| // 用背景色设置画刷 CBrush Brush(TranslateColor(GetBackColor())); // 用前台色设置字体颜色 pdc->SetTextColor(TranslateColor(GetForeColor())); // 绘制背景 pdc->FillRect(rcBounds, &Brush); // 设置字体背景透明 pdc->SetBkMode(TRANSPARENT); // 显示字符 pdc->TextOut(m_nXPos, m_nYPos, m_message); |
为了使属性设置更改后，其效果能够立即在控件上显示出来，应当在与属性设置相关的函数实现中调用InvalidateControl（）以更新控件的显示。
可以编译程序并在ActiveX Control Test Container工具中对其进行测试。在插入控件后，通过"Invoke Methods…"菜单项弹出如图7所示的对话框。在Method Name组合框中可以选择要测试的属性和方法。其中，对于属性的测试分别有ProgGet和ProgSet的说明以指出是对属性值的获取与设置。在Parameter编辑框中输入要设置的参数及其对应的参数类型，点击SetValue按钮将把该参数值添加到参数列表框，最后点击Invoke按钮将在控件应用设置的属性并执行指定的方法。对于有返回值的方法，其执行结果将在Return编辑框中显示。如果出现了异常操作，在Exception编辑框中将会显示出相应的异常错误信息。图8给出了经过属性设置的控件界面。
图7 对属性、方法的测试
图8 设置了属性后的控件
对于控件事件的添加，在MFC ClassWizard对话框的ActiveX Events页中通过"Add Event…"按钮弹出如图9所示的"Add Event"事件添加对话框。与方法、属性的添加类似，在External name组合框中可以输入要添加的自定义事件名称，也可以从下拉列表选择库存事件。Implementation项将根据所要添加的事件类型而自动设置Stock或Custom选项。ActiveX控件将通过添加的事件来通知容器程序有特定的事件发生，库存事件多为键盘、鼠标事件，将由COleControl自动进行处理。对于自定义事件，则只是在.odl文件和控件类中添加了事件映射表等必要的代码（代码附下），至于应当在何种条件下触发该事件须由开发人员自行编写代码。
图9 事件的添加
| dispinterface _DSample68Events { properties: // Event interface has no properties methods: // NOTE - ClassWizard will maintain event information here. // Use extreme caution when editing this section. //{{AFX_ODL_EVENT(CSample68Ctrl) [id(1)] void MsgOut(); //}}AFX_ODL_EVENT }; …… // Event maps //{{AFX_EVENT(CSample68Ctrl) void FireMsgOut() {FireEvent(eventidMsgOut,EVENT_PARAM(VTS_NONE));} //}}AFX_EVENT DECLARE_EVENT_MAP() // Dispatch and event IDs public: enum { //{{AFX_DISP_ID(CSample68Ctrl) …… eventidMsgOut = 1L, //}}AFX_DISP_ID }; …… BEGIN_EVENT_MAP(CSample68Ctrl, COleControl) //{{AFX_EVENT_MAP(CSample68Ctrl) EVENT_CUSTOM("MsgOut", FireMsgOut, VTS_NONE) //}}AFX_EVENT_MAP END_EVENT_MAP() |
上述代码添加了一个MsgOut的自定义事件，可以在通过调用FireMsgOut（）来激发。下面对Message属性的OnMessageChanged（）消息响应函数进行修改，每当Message属性内容被更改都会调用该函数，在该函数中调用此前添加的MessageLen（）方法以确定更改后的Message属性的字符串长度，在长度大于10时调用FireMsgOut（）触发MsgOut事件：
| void CSample68Ctrl::OnMessageChanged() { InvalidateControl(); if (MessageLen() >= 10) FireMsgOut(); SetModifiedFlag(); } |
图10 选择要记录的事件
在用ActiveX Control Test Container对刚添加的事件进行测试时，首先通过"Control"菜单下的"Logging…"菜单项弹出如图10所示的对话框，并从"Events"属性页中选中要跟踪记录的事件。当通过Invoke Methods对话框设置Message属性的内容超过10个字符后，位于程序框架下方的分割视图将记录控件所触发的MsgOut事件（如图11所示）。
图11 对事件的测试
