win32使用ATL显示C#COM窗体

来源：互联网发布：淘宝账号注册首页登录编辑：程序博客网时间：2024/05/22 10:24

显示效果如图：

环境：win7 64、VS2013

代码如下：

#include <atlbase.h>#include <atlhost.h>// 导入#import "TestCtrl.tlb"// 定义全局对象HWND hMainWnd;CComModule _module; // COM服务器模块CAxWindow _ctrl; // ActiveX控件的容器int APIENTRY _tWinMain(_In_ HINSTANCE hInstance,                     _In_opt_ HINSTANCE hPrevInstance,                     _In_ LPTSTR    lpCmdLine,                     _In_ int       nCmdShow){UNREFERENCED_PARAMETER(hPrevInstance);UNREFERENCED_PARAMETER(lpCmdLine); // TODO:  在此放置代码。MSG msg;HACCEL hAccelTable;// 初始化全局字符串LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);LoadString(hInstance, IDC_WIN32USECSHAPEFORM, szWindowClass, MAX_LOADSTRING);MyRegisterClass(hInstance);// 执行应用程序初始化，并<span style="color:#ff0000;">设置hMainWnd窗口句柄</span>if (!InitInstance (hInstance, nCmdShow)){return FALSE;}// 初始化_module.Init(NULL, hInstance);// 创建ActiveXRECT rcClient;GetClientRect(hMainWnd, &rcClient);LPOLESTR lpwProgID = nullptr;IUnknown* unknown = nullptr;// Create函数的第三个参数一定要是nullptr或NULL，否则创建窗口不成功HWND hAtlWnd = _ctrl.Create(hMainWnd, rcClient, nullptr, WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN);ProgIDFromCLSID(__uuidof(TestCtrl::TestCtrl), &lpwProgID);_ctrl.CreateControlEx(lpwProgID, NULL, NULL, &unknown);// 查询接口，然后调用接口函数TestCtrl::ITestCtrlPtr webCtrl;unknown->QueryInterface(__uuidof(TestCtrl::ITestCtrl), (LPVOID*)&webCtrl);if (webCtrl) {webCtrl->test();}hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_WIN32USECSHAPEFORM));// 主消息循环: while (GetMessage(&msg, NULL, 0, 0)){if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg)){TranslateMessage(&msg);DispatchMessage(&msg);}}// 释放_module.Term();return (int) msg.wParam;}

0 0