用ATL 创建(Activex) 窗口

本文将不用MFC创建个Activex控件.

 

第一步:

     打开VC6.0,选择ATL COM AppWizard 创建一个工程,如下图:

 

 

点确定,选择动态连接库点完成,如下图:

 

 

第二步:

     新建一个 ATL Object,选择Full Control,点Next.在Miscellaneous里把Windowed Only选上.如图:

选择确定.

 

第三步:

    新建一类取名为CMyPanel. 类定义如下:

   //MyPanel.h如下

 

#if !defined(AFX_MYPANEL_H__F9E3C4AB_689E_4FE7_B479_D66493B070D5__INCLUDED_)
#define AFX_MYPANEL_H__F9E3C4AB_689E_4FE7_B479_D66493B070D5__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

LRESULT CALLBACK MyWinProc(HWND handle,UINT nMsg,WPARAM wParam,LPARAM lParam);

class CMyPanel;
class CMyModul
{
public:
 CMyModul();
 virtual ~CMyModul();

 inline CMyPanel *GetPanel(){return m_pMyPl;}
 void SetPanel(CMyPanel *pl);
private:
 CMyPanel *m_pMyPl;
};

class CMyPanel 
{
public:
 CMyPanel(HWND hWnd,int x,int y,int nWidth,int nHeight);
 virtual ~CMyPanel();

 inline HWND GetHWND(){return m_MyhWnd;}
 void ChangeSize(RECT rect);
 void Paint(HWND hWnd);
 void PaintGradiantRect(HDC &hdc,const RECT &rect) const;
 LRESULT CALLBACK WinProc(HWND hWnd,UINT nMsg,WPARAM wParam,LPARAM lParam);
private:
 HWND m_MyhWnd;
 RECT m_rcBound;
};

#endif

 

//MyPanel.cpp如下:

 

#include "stdafx.h"
#include "MyPanel.h"

//
// Construction/Destruction
//

CMyModul *pModul = NULL;

LRESULT CALLBACK MyWinProc(HWND hWnd,UINT nMsg,WPARAM wParam,LPARAM lParam)
{
 if(pModul && pModul->GetPanel())
 {
  return pModul->GetPanel()->WinProc(hWnd,nMsg,wParam,lParam);
 }
 else
 {
  return DefWindowProc(hWnd,nMsg,wParam,lParam);
 }
}

CMyModul::CMyModul()
{
 WNDCLASS wc;
 wc.style = CS_DBLCLKS | CS_HREDRAW | CS_VREDRAW;
 wc.lpfnWndProc = MyWinProc;
 wc.cbClsExtra = 0;
 wc.cbWndExtra = 0;
 wc.hInstance = ::GetModuleHandle(NULL);
 wc.hIcon = NULL;
 wc.hCursor = ::LoadCursor(NULL,MAKEINTRESOURCE(IDC_ARROW));
 wc.hbrBackground = (HBRUSH)GetStockObject(BLACK_BRUSH);
 wc.lpszMenuName = NULL;
 wc.lpszClassName = __T("MyATLWnd");

 RegisterClass(&wc);
}

CMyModul::~CMyModul()
{
}

void CMyModul::SetPanel(CMyPanel *pl)
{
 m_pMyPl = pl;
}

CMyPanel::CMyPanel(HWND hWnd,int x,int y,int nWidth,int nHeight)
{
 if(!pModul)
 {
  pModul = new CMyModul();
 }
 pModul->SetPanel(this);

 m_MyhWnd = CreateWindow(TEXT("MyATLWnd"),
       TEXT("MyATLWnd"),
       WS_CHILD | WS_VISIBLE,
       x,y,nWidth,nHeight,
       hWnd,
       NULL,
       ::GetModuleHandle(NULL),
       NULL);
 if(!m_MyhWnd)
 {
  int ret = GetLastError();
 }
 ::SetRect(&m_rcBound,x,y,x+nWidth,y+nHeight);
}

CMyPanel::~CMyPanel()
{
 ::DestroyWindow(m_MyhWnd);
 if(pModul)
 {
  delete pModul;
  pModul = NULL;
 }
}

void CMyPanel::ChangeSize(RECT rect)
{
 ::SetRect( &m_rcBound,rect.left,rect.top,rect.right,rect.bottom);
 ::MoveWindow(m_MyhWnd,rect.left,rect.top,
  rect.right-rect.left,rect.bottom-rect.top,TRUE);
}

void CMyPanel::Paint(HWND hWnd)
{
 PAINTSTRUCT ps;
 HDC hdc;
 RECT rect;

 hdc = BeginPaint( hWnd, &ps );
 GetClientRect( hWnd, &rect );
 PaintGradiantRect(hdc,rect);
 EndPaint( hWnd, &ps );
}

void CMyPanel::PaintGradiantRect(HDC &hdc,const RECT &rect) const
{
 RECT rectVar ={rect.left,rect.top,rect.right,rect.top};

 int nTotalSize = rect.bottom-rect.top;

 for(int nIndex =0; nIndex < 230;nIndex++)
 {
  rectVar.top = rectVar.bottom;
  rectVar.bottom = rect.top + ::MulDiv(nIndex+1,nTotalSize,230);

  int nColor = ::MulDiv(nIndex,255,230);
  nColor = 255 - nColor;

  COLORREF clrRf =
   PALETTERGB((BYTE)0,(BYTE)0,(BYTE)nColor);

  HBRUSH brush = CreateSolidBrush(clrRf);

  FillRect(hdc,&rectVar,brush);
 }
}

HRESULT CALLBACK CMyPanel::WinProc(HWND hWnd,UINT nMsg,WPARAM wParam,LPARAM lParam)
{
 switch(nMsg)
 {
 case WM_PAINT:
  Paint(hWnd);
  break;
 case WM_LBUTTONDBLCLK:
  //DBClick;
  break;
 default:
  return DefWindowProc(hWnd,nMsg,wParam,lParam);
  break;
 }
 return 0;
}

第四步:

在CWndCtl类中新增个成员变量:CMyPanel *m_pMyPl;然后找到宏定义BEGIN_MSG_MAP(CWndCtl),END_MSG_MAP()在这之间加入MESSAGE_HANDLER(WM_CREATE, OnCreate) 如下:

 

BEGIN_MSG_MAP(CWndCtl)
 //...

 MESSAGE_HANDLER(WM_CREATE, OnCreate)
END_MSG_MAP()

 

增加函数:OnCreate

 

LRESULT OnCreate(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled)
 {
  // TODO : Add Code for message handler. Call DefWindowProc if necessary.
  RECT rect;
  ::GetClientRect(m_hWnd,&rect);

  m_pMyPl = new CMyPanel(m_hWnd,rect.left,
    rect.top,rect.right-rect.left,rect.bottom-rect.top);
  ::ShowWindow(m_pMyPl->GetHWND(),TRUE);

  return 0;
 }

 

改写OnDraw

 

HRESULT OnDraw(ATL_DRAWINFO& di)
 {  
  RECT& rc = *(RECT*)di.prcBounds; 
  if(m_pMyPl)
  {
   m_pMyPl->ChangeSize(rc);
  }
  return S_OK;
 }

 

第五步:

   在程序退出的地方,加上:

if(m_pMyPl)
 {
  delete m_pMyPl;
  m_pMyPl = NULL;
 }

 

好了,调试看看,一个Activex控件就出来了,不过现在还控件上还什么都没.但它可以相应一些事件了.如何在上面加按钮呢,等以后现讲.