ATL / WTL / STL

<br />
class CAtlButton :<br />
    public CTimer<CAtlButton, IAtlButton, &__uuidof(IAtlButton)>, //используется как таймер<br />
    public CComControl<CAtlButton>,<br />
    public CStockPropImpl<CAtlButton, IAtlButton, &__uuidof(IAtlButton), &CAtlModule::m_libid>,<br />
    public ISpecifyPropertyPagesImpl<CAtlButton>,<br />
    public IPersistStreamInitImpl<CAtlButton>,         //??<br />
    public IOleControlImpl<CAtlButton>,<br />
    public IOleObjectImpl<CAtlButton>,<br />
    public IOleInPlaceActiveObjectImpl<CAtlButton>,<br />
    public IViewObjectExImpl<CAtlButton>,<br />
    public IOleInPlaceObjectWindowlessImpl<CAtlButton>,<br />
    public IPersistPropertyBagImpl<CAtlButton>,         //??<br />
    public IPersistStorageImpl<CAtlButton>,         //??<br />
    public IQuickActivateImpl<CAtlButton>,<br />
    public IDataObjectImpl<CAtlButton>,         //??<br />
    public IObjectSafetyImpl<CAtlButton, INTERFACESAFE_FOR_UNTRUSTED_CALLER>         //??<br />
    ,public IPerPropertyBrowsingImpl <CAtlButton>          //??<br />

<br />
       CBPReportCntrItem		*pItem	= NULL;<br />
	CBPReportDoc			*pDoc	= NULL;<br />
	CLSID					clsid;<br />
	TRY<br />
	{<br />
	//Get the document associated with this view, and be sure it's<br />
        //valid.<br />
		pDoc = GetDocument();<br />
        ASSERT_VALID(pDoc);<br />
<br />
		//Create a new item associated with this document, and be sure<br />
        //it's valid.<br />
        pItem = new CBPReportCntrItem(pDoc);<br />
        ASSERT_VALID(pItem);<br />
<br />
		// Get Class ID for Excel sheet.<br />
        // This is used in creation.<br />
        if(FAILED(::CLSIDFromProgID(L"Excel.sheet",&clsid)))<br />
		{<br />
			AfxMessageBox("Failed to create Excel.sheet");<br />
			//Any exception will do. We just need to break out of the<br />
			//TRY statement.<br />
			AfxThrowMemoryException();<br />
		}<br />
<br />
		// Create the Excel embedded item.<br />
        if(!pItem->CreateNewItem(clsid))<br />
		{<br />
			AfxMessageBox("Failed to create the excel embeded item");<br />
			//Any exception will do. We just need to break out of the<br />
			//TRY statement.<br />
			AfxThrowMemoryException();<br />
		}<br />
<br />
        //Make sure the new CContainerItem is valid.<br />
        ASSERT_VALID(pItem);<br />
<br />
		// Launch the server to edit the item.<br />
        pItem->DoVerb(OLEIVERB_SHOW, this);<br />
<br />
		// As an arbitrary user interface design, this sets the<br />
        // selection to the last item inserted.<br />
        m_pSelection = pItem;   // set selection to last inserted item<br />
        pDoc->UpdateAllViews(NULL);<br />
	<br />
		//Query for the dispatch pointer for the embedded object. In<br />
        //this case, this is the Excel worksheet.<br />
        lpDisp = pItem->GetIDispatch();<br />
<br />
	app.AttachDispatch(lpDisp, TRUE);<br />
        	<br />

<br />
                cbPop.AttachDispatch(app.DetachDispatch(), TRUE);<br />
		//cbPop.SetEnabled(FALSE);<br />
		cbPop.SetVisible(FALSE);<br />

#ifndef CMainWindow_h
#define CMainWindow_h

#include "stdafx.h"
#include "CNoteEdit.h"

class CMainWindow : public CWindowImpl < CMainWindow >
{
	public:
	DECLARE_WND_CLASS_EX(TEXT("NoteMainWindowClass"), CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS, COLOR_BTNFACE)

private:
	BEGIN_MSG_MAP(CMainWindow)
		MESSAGE_HANDLER(WM_CREATE, OnCreate)
		MESSAGE_HANDLER(WM_CLOSE, OnClose)
		MESSAGE_HANDLER(WM_DESTROY, OnDestroy)
	END_MSG_MAP()

	LRESULT OnCreate(UINT msg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
	LRESULT OnClose(UINT msg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
	LRESULT OnDestroy(UINT msg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
};

#endif

#ifndef CNoteEdit_h
#define CNoteEdit_h

#include "stdafx.h"

class CNoteEdit : public CWindowImpl < CNoteEdit >
{
public:
	DECLARE_WND_SUPERCLASS(NULL, RICHEDIT_CLASS)

	BEGIN_MSG_MAP(CNoteEdit)
	END_MSG_MAP()

	CNoteEdit();
	virtual ~CNoteEdit();
};

#endif

#include "stdafx.h"

CComModule _Module;

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd)
{
	_Module.Init(0, hInstance);

	CMainWindow _MainWindow;

	_MainWindow.Create(0, CWindow::rcDefault, "Note - ", WS_OVERLAPPEDWINDOW);

	_MainWindow.ShowWindow(nShowCmd);
	_MainWindow.UpdateWindow();

	MSG msg;
	while (::GetMessage(&msg,0,0,0) > 0)
	{
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	_Module.Term();
	return msg.wParam;
}