Windows核心编程系列文章仅作为实验报告和Windows编程学习参考，不作为任何技术文章，还望大佬们勿喷。

1. 实验名称

ActiveX控件编程

2. 实验环境

  1. VS2015
  2. Windows 10

3. 实验目的

  1. 理解Window系统COM概念，了解ActiveX控件编程基本原理、概念，以及编程流程。
  2. 理解容器应用程序和服务器应用程序的概念
  3. 采用ActiveX控件编写一个求两数最大公约数的组件，并调用组件，完成两数最大公约数。

4. 实验内容、步骤及结果

1. 实验内容

  1. 采用MFC ActiveX编写一个求两数最大公约数组件。如下图所示

【实验六】ActiveX控件编程 - 图1

  1. 然后编写一个测试程序，调用组件完成组件调用。如下图所示：

【实验六】ActiveX控件编程 - 图2

2. 实验步骤

  1. 首先创建一个MFC ActiveX项目
  2. 采用MFC ActiveX编写一个求两数最大公约数组件
  3. 代码如下：
  1. // myActiveXCtrl.cpp : CmyActiveXCtrl ActiveX 控件类的实现。
  3. #include "stdafx.h"
  4. #include "myActiveX.h"
  5. #include "myActiveXCtrl.h"
  6. #include "myActiveXPropPage.h"
  7. #include "afxdialogex.h"
  9. #ifdef _DEBUG
  10. #define new DEBUG_NEW
  11. #endif
  13. IMPLEMENT_DYNCREATE(CmyActiveXCtrl, COleControl)
  15. // 消息映射
  17. BEGIN_MESSAGE_MAP(CmyActiveXCtrl, COleControl)
  18.     ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties)
  19.     ON_WM_LBUTTONDOWN()
  20. END_MESSAGE_MAP()
  22. // 调度映射
  24. BEGIN_DISPATCH_MAP(CmyActiveXCtrl, COleControl)
  25.     DISP_FUNCTION_ID(CmyActiveXCtrl, "AboutBox", DISPID_ABOUTBOX, AboutBox, VT_EMPTY, VTS_NONE)
  26.     DISP_FUNCTION_ID(CmyActiveXCtrl, "SetNum", dispidSetNum, SetNum, VT_EMPTY, VTS_I4 VTS_I4)
  27.     DISP_PROPERTY_NOTIFY_ID(CmyActiveXCtrl, "direction", dispiddirection, m_direction, OndirectionChanged, VT_I2)
  28.     DISP_FUNCTION_ID(CmyActiveXCtrl, "Mcd", dispidMcd, Mcd, VT_I4, VTS_I4 VTS_I4)
  29. END_DISPATCH_MAP()
  31. // 事件映射
  33. BEGIN_EVENT_MAP(CmyActiveXCtrl, COleControl)
  34.     EVENT_CUSTOM_ID("FirmMsg", eventidFirmMsg, FirmMsg, VTS_NONE)
  35. END_EVENT_MAP()
  37. // 属性页
  39. // TODO:  按需要添加更多属性页。  请记住增加计数!
  40. BEGIN_PROPPAGEIDS(CmyActiveXCtrl, 1)
  41.     PROPPAGEID(CmyActiveXPropPage::guid)
  42. END_PROPPAGEIDS(CmyActiveXCtrl)
  44. // 初始化类工厂和 guid
  46. IMPLEMENT_OLECREATE_EX(CmyActiveXCtrl, "MYACTIVEX.myActiveXCtrl.1",
  47.     0x85f4510, 0xb64, 0x4e28, 0x88, 0x45, 0x3c, 0x43, 0x8c, 0x22, 0xe9, 0xfe)
  49. // 键入库 ID 和版本
  51. IMPLEMENT_OLETYPELIB(CmyActiveXCtrl, _tlid, _wVerMajor, _wVerMinor)
  53. // 接口 ID
  55. const IID IID_DmyActiveX = { 0x12328EFC, 0x9968, 0x4FCE, { 0xA3, 0x26, 0x65, 0x99, 0x6E, 0xB7, 0x5A, 0x3D } };
  56. const IID IID_DmyActiveXEvents = { 0xF481325A, 0xD7BC, 0x4389, { 0x9A, 0xA8, 0x56, 0x16, 0x3A, 0x6C, 0xEE, 0x2B } };
  58. // 控件类型信息
  60. static const DWORD _dwmyActiveXOleMisc =
  61.     OLEMISC_ACTIVATEWHENVISIBLE |
  62.     OLEMISC_SETCLIENTSITEFIRST |
  63.     OLEMISC_INSIDEOUT |
  64.     OLEMISC_CANTLINKINSIDE |
  65.     OLEMISC_RECOMPOSEONRESIZE;
  67. IMPLEMENT_OLECTLTYPE(CmyActiveXCtrl, IDS_MYACTIVEX, _dwmyActiveXOleMisc)
  69. // CmyActiveXCtrl::CmyActiveXCtrlFactory::UpdateRegistry -
  70. // 添加或移除 CmyActiveXCtrl 的系统注册表项
  72. BOOL CmyActiveXCtrl::CmyActiveXCtrlFactory::UpdateRegistry(BOOL bRegister)
  73. {
  74.     // TODO:  验证您的控件是否符合单元模型线程处理规则。
  75.     // 有关更多信息，请参考 MFC 技术说明 64。
  76.     // 如果您的控件不符合单元模型规则，则
  77.     // 必须修改如下代码，将第六个参数从
  78.     // afxRegApartmentThreading 改为 0。
  80.     if (bRegister)
  81.         return AfxOleRegisterControlClass(
  82.             AfxGetInstanceHandle(),
  83.             m_clsid,
  84.             m_lpszProgID,
  85.             IDS_MYACTIVEX,
  86.             IDB_MYACTIVEX,
  87.             afxRegApartmentThreading,
  88.             _dwmyActiveXOleMisc,
  89.             _tlid,
  90.             _wVerMajor,
  91.             _wVerMinor);
  92.     else
  93.         return AfxOleUnregisterClass(m_clsid, m_lpszProgID);
  94. }
  97. // CmyActiveXCtrl::CmyActiveXCtrl - 构造函数
  99. CmyActiveXCtrl::CmyActiveXCtrl()
  100. {
  101.     InitializeIIDs(&IID_DmyActiveX, &IID_DmyActiveXEvents);
  102.     // TODO:  在此初始化控件的实例数据。
  103.     // 设置控件的初始大小
  104.     SetInitialSize(230, 230);
  105.     m_a = 16;
  106.     m_b = 12;
  107.     m_direction = FALSE;// 控制结果球的显示位置
  109. }
  111. // CmyActiveXCtrl::~CmyActiveXCtrl - 析构函数
  113. CmyActiveXCtrl::~CmyActiveXCtrl()
  114. {
  115.     // TODO:  在此清理控件的实例数据。
  116. }
  118. // CmyActiveXCtrl::OnDraw - 绘图函数
  120. void CmyActiveXCtrl::OnDraw(
  121.             CDC* pdc, const CRect& rcBounds, const CRect& /* rcInvalid */)
  122. {
  123.     if (!pdc)
  124.         return;
  126.     // TODO:  用您自己的绘图代码替换下面的代码。
  127.     CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH));
  128.     //pdc->Ellipse(rcBounds);
  129.     // 设置控件的背景颜色
  130.     CBrush brush(RGB(255, 255, 0));
  131.     pdc->FillRect(&rcBounds, &brush);
  132.     // 绘制3个圆
  133.     // 设置圆的背景色
  134.     CBrush brush2(RGB(0, 0, 0));
  135.     // 设置圆心位置
  136.     POINT p1 = { 40, 120 };
  137.     POINT p2 = { 190, p1.y };
  138.     POINT p3 = { (p1.x + p2.x) / 2, m_direction ? p1.y - 50 : p1.y + 50 };
  139.     // 设置圆的半径
  140.     int radious = 15;
  141.     // 画圆
  142.     CBrush *pOldBrush = pdc->SelectObject(&brush2);
  143.     pdc->Ellipse(p1.x - radious, p1.y - radious, p1.x + radious, p1.y + radious);
  144.     pdc->Ellipse(p2.x - radious, p2.y - radious, p2.x + radious, p2.y + radious);
  145.     pdc->Ellipse(p3.x - radious, p3.y - radious, p3.x + radious, p3.y + radious);
  146.     // 连接线
  147.     pdc->MoveTo(p1);
  148.     pdc->LineTo(p3);
  149.     pdc->LineTo(p2);
  150.     // 设置字体的颜色、对齐方式、背景透明
  151.     pdc->SetTextColor(RGB(255, 255, 255));
  152.     pdc->SetTextAlign(TA_CENTER);
  153.     pdc->SetBkMode(TRANSPARENT);
  154.     // 在圆中写入数值
  155.     CString strMsg;
  156.     strMsg.Format(L"%d", m_a);
  157.     pdc->TextOut(p1.x, p1.y - 9, strMsg);
  158.     strMsg.Format(L"%d", m_b);
  159.     pdc->TextOut(p2.x, p2.y - 9, strMsg);
  160.     strMsg.Format(L"%d", Mcd(m_a, m_b));
  161.     pdc->TextOut(p3.x, p3.y - 9, strMsg);
  162.     pdc->SelectObject(pOldBrush);
  163.     brush.DeleteObject();
  164.     brush2.DeleteObject();
  166. }
  168. // CmyActiveXCtrl::DoPropExchange - 持久性支持
  170. void CmyActiveXCtrl::DoPropExchange(CPropExchange* pPX)
  171. {
  172.     ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
  173.     COleControl::DoPropExchange(pPX);
  175.     // TODO:  为每个持久的自定义属性调用 PX_ 函数。
  176. }
  179. // CmyActiveXCtrl::OnResetState - 将控件重置为默认状态
  181. void CmyActiveXCtrl::OnResetState()
  182. {
  183.     COleControl::OnResetState();  // 重置 DoPropExchange 中找到的默认值
  185.     // TODO:  在此重置任意其他控件状态。
  186. }
  189. // CmyActiveXCtrl::AboutBox - 向用户显示“关于”框
  191. void CmyActiveXCtrl::AboutBox()
  192. {
  193.     CDialogEx dlgAbout(IDD_ABOUTBOX_MYACTIVEX);
  194.     dlgAbout.DoModal();
  195. }
  198. // CmyActiveXCtrl 消息处理程序
  201. void CmyActiveXCtrl::SetNum(LONG m_num1, LONG m_num2)
  202. {
  203.     AFX_MANAGE_STATE(AfxGetStaticModuleState());
  205.     // TODO:  在此添加调度处理程序代码
  206.     m_a = m_num1;
  207.     m_b = m_num2;
  208.     // 引发控件重绘调用我们的MCd函数结算结果并显示
  209.     Invalidate(TRUE);
  211. }
  214. void CmyActiveXCtrl::OndirectionChanged()
  215. {
  216.     AFX_MANAGE_STATE(AfxGetStaticModuleState());
  218.     // TODO:  在此添加属性处理程序代码
  220.     SetModifiedFlag();
  221. }
  224. LONG CmyActiveXCtrl::Mcd(LONG a, LONG b)
  225. {
  226.     AFX_MANAGE_STATE(AfxGetStaticModuleState());
  228.     // TODO:  在此添加调度处理程序代码
  229.     if (b == 0)
  230.         return a;
  231.     return Mcd(b, a%b);
  232. }
  235. void CmyActiveXCtrl::OnLButtonDown(UINT nFlags, CPoint point)
  236. {
  237.     // TODO:  在此添加消息处理程序代码和/或调用默认值
  238.     FirmMsg();
  239.     COleControl::OnLButtonDown(nFlags, point);
  240. }

3. 实验结果(实验运行截图)

【实验六】ActiveX控件编程 - 图3

5. 实验中的问题及心得

  • 理解Window系统COM概念，了解ActiveX控件编程基本原理、概念，以及编程流程。
  • 学会了采用ActiveX控件编写组件。
  • 一开始不会添加方法，事件，属性，后面看了附录2，跟着一步一步做，完成了操作，但是在过程中遇到了组件缺失问题，VS自动下载更新后就可以了。
  • 注册ActiveX控件：管理员权限打开cmd，输入regsvr32 “组件所在的文件路径” 注册组件即可注册成功。

6. 附件

以下是实验代码

链接：https://pan.baidu.com/s/118VXyNd0dc9QONzfKNcekA
提取码：8pct