gamblerctrlctl.cpp

来自「《VC++ 编程技巧与示例 .rar》各个示例代码绝对可用」· C++ 代码 · 共 390 行

// GamblerCtrlCtl.cpp : Implementation of the CGamblerCtrlCtrl ActiveX Control class.

#include "stdafx.h"
#include "GamblerCtrl.h"
#include "GamblerCtrlCtl.h"
#include "GamblerCtrlPpg.h"


#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

#include "OleShowPage.h"

IMPLEMENT_DYNCREATE(CGamblerCtrlCtrl, COleControl)


/////////////////////////////////////////////////////////////////////////////
// Message map

BEGIN_MESSAGE_MAP(CGamblerCtrlCtrl, COleControl)
	//{{AFX_MSG_MAP(CGamblerCtrlCtrl)
	ON_WM_CREATE()
	ON_WM_TIMER()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(ID_START, OnStart)
	ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties)
END_MESSAGE_MAP()


/////////////////////////////////////////////////////////////////////////////
// Dispatch map

BEGIN_DISPATCH_MAP(CGamblerCtrlCtrl, COleControl)
	//{{AFX_DISPATCH_MAP(CGamblerCtrlCtrl)
	DISP_PROPERTY_NOTIFY(CGamblerCtrlCtrl, "ShowString", m_showString, OnShowStringChanged, VT_BSTR)
	DISP_PROPERTY_NOTIFY(CGamblerCtrlCtrl, "PanelColor", m_panelColor, OnPanelColorChanged, VT_COLOR)
	DISP_PROPERTY_EX(CGamblerCtrlCtrl, "Title", GetTitle, SetTitle, VT_BSTR)
	DISP_PROPERTY_EX(CGamblerCtrlCtrl, "BackColor", GetBackColor, SetBackColor, VT_COLOR)
	DISP_FUNCTION(CGamblerCtrlCtrl, "GetHint", GetHint, VT_I2, VTS_I2)
	//}}AFX_DISPATCH_MAP
	DISP_FUNCTION_ID(CGamblerCtrlCtrl, "AboutBox", DISPID_ABOUTBOX, AboutBox, VT_EMPTY, VTS_NONE)
END_DISPATCH_MAP()


/////////////////////////////////////////////////////////////////////////////
// Event map

BEGIN_EVENT_MAP(CGamblerCtrlCtrl, COleControl)
	//{{AFX_EVENT_MAP(CGamblerCtrlCtrl)
	EVENT_CUSTOM("GuessRight", FireGuessRight, VTS_NONE)
	EVENT_CUSTOM("GuessWrong", FireGuessWrong, VTS_NONE)
	EVENT_STOCK_DBLCLICK()
	//}}AFX_EVENT_MAP
END_EVENT_MAP()


/////////////////////////////////////////////////////////////////////////////
// Property pages

// TODO: Add more property pages as needed.  Remember to increase the count!
BEGIN_PROPPAGEIDS(CGamblerCtrlCtrl,3)
	PROPPAGEID(CGamblerCtrlPropPage::guid)
	PROPPAGEID(COleShowPage::guid)
	PROPPAGEID(CLSID_CColorPropPage)
END_PROPPAGEIDS(CGamblerCtrlCtrl)

/////////////////////////////////////////////////////////////////////////////
// Initialize class factory and guid

IMPLEMENT_OLECREATE_EX(CGamblerCtrlCtrl, "GAMBLERCTRL.GamblerCtrlCtrl.1",
	0xb046b1e8, 0xb07d, 0x11d3, 0x94, 0x60, 0, 0, 0, 0, 0x38, 0xb2)


/////////////////////////////////////////////////////////////////////////////
// Type library ID and version

IMPLEMENT_OLETYPELIB(CGamblerCtrlCtrl, _tlid, _wVerMajor, _wVerMinor)


/////////////////////////////////////////////////////////////////////////////
// Interface IDs

const IID BASED_CODE IID_DGamblerCtrl =
		{ 0xb046b1e6, 0xb07d, 0x11d3, { 0x94, 0x60, 0, 0, 0, 0, 0x38, 0xb2 } };
const IID BASED_CODE IID_DGamblerCtrlEvents =
		{ 0xb046b1e7, 0xb07d, 0x11d3, { 0x94, 0x60, 0, 0, 0, 0, 0x38, 0xb2 } };


/////////////////////////////////////////////////////////////////////////////
// Control type information

static const DWORD BASED_CODE _dwGamblerCtrlOleMisc =
	OLEMISC_ACTIVATEWHENVISIBLE |
	OLEMISC_SETCLIENTSITEFIRST |
	OLEMISC_INSIDEOUT |
	OLEMISC_CANTLINKINSIDE |
	OLEMISC_RECOMPOSEONRESIZE;

IMPLEMENT_OLECTLTYPE(CGamblerCtrlCtrl, IDS_GAMBLERCTRL, _dwGamblerCtrlOleMisc)


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::CGamblerCtrlCtrlFactory::UpdateRegistry -
// Adds or removes system registry entries for CGamblerCtrlCtrl

BOOL CGamblerCtrlCtrl::CGamblerCtrlCtrlFactory::UpdateRegistry(BOOL bRegister)
{
	// TODO: Verify that your control follows apartment-model threading rules.
	// Refer to MFC TechNote 64 for more information.
	// If your control does not conform to the apartment-model rules, then
	// you must modify the code below, changing the 6th parameter from
	// afxRegApartmentThreading to 0.

	if (bRegister)
		return AfxOleRegisterControlClass(
			AfxGetInstanceHandle(),
			m_clsid,
			m_lpszProgID,
			IDS_GAMBLERCTRL,
			IDB_GAMBLERCTRL,
			afxRegInsertable | afxRegApartmentThreading,//●这里原来是：afxRegApartmentThreading,
												        //加上afxRegInsertable后就可以插入到Word中去了；
			_dwGamblerCtrlOleMisc,
			_tlid,
			_wVerMajor,
			_wVerMinor);
	else
		return AfxOleUnregisterClass(m_clsid, m_lpszProgID);
}


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::CGamblerCtrlCtrl - Constructor

CGamblerCtrlCtrl::CGamblerCtrlCtrl()
{
	InitializeIIDs(&IID_DGamblerCtrl, &IID_DGamblerCtrlEvents);

	// TODO: Initialize your control's instance data here.
	bl=250;
	rl=300;
	sp=40;
	cx=100;
	cy=30;
	rcAnte=CRect(sp,bl-sp-cy,sp+cx,bl+2*cy);
	rcStart=CRect(rl-sp-cx,bl-sp-cy,rl-sp,bl-sp);
	Items[0]="小熊";
	Items[1]="小狗";
	Items[2]="小驴";
	Items[3]="小猪";
	Items[4]="小猴";
	Items[5]="小牛";
	Items[6]="小羊";
	Items[7]="小猫";
	Items[8]="小马";
	Items[9]="小鸡";
	Counter=-1;
	m_Number=rand()%10;
	m_Show="猜一猜";
	m_Title="猜数游戏";
	m_showString="猜一猜";
	m_BkColor=GetSysColor(COLOR_BACKGROUND);
	m_panelColor=GetSysColor(COLOR_INFOBK);
}

/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::~CGamblerCtrlCtrl - Destructor

CGamblerCtrlCtrl::~CGamblerCtrlCtrl()
{
	// TODO: Cleanup your control's instance data here.
}


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::OnDraw - Drawing function

void CGamblerCtrlCtrl::OnDraw(
			CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid)
{
	// TODO: Replace the following code with your own drawing code.
	CRect rcClient(0,0,rl,bl);
//绘制外围背景：
	pdc->SetMapMode(MM_TEXT);
	CBrush br,* ob;
	br.CreateSolidBrush(TranslateColor(m_BkColor));
	ob=pdc->SelectObject(&br);
	pdc->FillRect(&rcBounds,&br);
	pdc->SelectObject(ob);
	br.DeleteObject();

//绘制背景：
	CPoint pt(sp,sp);
	br.CreateSolidBrush(TranslateColor(m_panelColor));
	ob=pdc->SelectObject(&br);
	pdc->RoundRect(rcClient,pt);
	pdc->SelectObject(ob);
	br.DeleteObject();

//绘制文本：
    CFont font, * of;
    font.CreateFont(36, 0, 0, 0, FW_BOLD, 0, 0, 0, DEFAULT_CHARSET,
        OUT_CHARACTER_PRECIS, CLIP_CHARACTER_PRECIS, DEFAULT_QUALITY,
        DEFAULT_PITCH | FF_DONTCARE, "T隶书");
    of = pdc->SelectObject(&font);
	pdc->SetTextAlign(TA_CENTER);
	pdc->SetBkMode(TRANSPARENT);
    pdc->TextOut(rl/2,sp,m_Title);
    pdc->SelectObject(of);
	font.DeleteObject();

    font.CreateFont(28, 0, 0, 0, FW_BOLD, 0, 0, 0, DEFAULT_CHARSET,
        OUT_CHARACTER_PRECIS, CLIP_CHARACTER_PRECIS, DEFAULT_QUALITY,
        DEFAULT_PITCH | FF_DONTCARE, "T隶书");
    of = pdc->SelectObject(&font);
	pdc->SetTextAlign(TA_CENTER);
	pdc->SetBkMode(TRANSPARENT);
    pdc->TextOut(rl/2,sp+2*cy,m_Show);
    pdc->SelectObject(of);
	font.DeleteObject();
}


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::DoPropExchange - Persistence support

void CGamblerCtrlCtrl::DoPropExchange(CPropExchange* pPX)
{
	ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
	COleControl::DoPropExchange(pPX);

	// TODO: Call PX_ functions for each persistent custom property.
    PX_String(pPX,"Title", m_Title, "猜数游戏");
    PX_String(pPX, "ShowString",m_Show,"猜一猜");
    PX_Long(pPX,"BackColor",(long &)m_BkColor,GetSysColor(COLOR_BACKGROUND));
	PX_Color(pPX,"PanelBkColor",m_panelColor,GetSysColor(COLOR_INFOBK));
}


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::OnResetState - Reset control to default state

void CGamblerCtrlCtrl::OnResetState()
{
	COleControl::OnResetState();  // Resets defaults found in DoPropExchange

	// TODO: Reset any other control state here.
}


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl::AboutBox - Display an "About" box to the user

void CGamblerCtrlCtrl::AboutBox()
{
	CDialog dlgAbout(IDD_ABOUTBOX_GAMBLERCTRL);
	dlgAbout.DoModal();
}


/////////////////////////////////////////////////////////////////////////////
// CGamblerCtrlCtrl message handlers

int CGamblerCtrlCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct) 
{
	if (COleControl::OnCreate(lpCreateStruct) == -1)
		return -1;
	UINT i;
	// TODO: Add your specialized creation code here
	m_Ante.Create (WS_CHILD|WS_VISIBLE|CBS_DROPDOWNLIST|WS_VSCROLL,rcAnte,this,ID_ANTE);
	m_Start.Create("开始",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON|BS_OWNERDRAW,rcStart,this,ID_START);
	m_Ante.SetDroppedWidth(50);
	for(i=0;i<10;i++)
	{
		m_Ante.AddString(Items[i]);
	}
	m_Ante.SetCurSel(0);

	m_Start.LoadBitmaps(IDB_S_U,IDB_S_D,IDB_S_U,IDB_S_D);
	m_Start.SizeToContent();
	return 0;
}

void CGamblerCtrlCtrl::OnStart()
{
	SetTimer(1,500,NULL);
	m_Number=rand()%10;
	m_Start.EnableWindow(FALSE);
}

void CGamblerCtrlCtrl::OnTimer(UINT nIDEvent) 
{
	// TODO: Add your message handler code here and/or call default
	if(Counter<m_Number)
	{
		Counter++;
		m_Show="实际上小动物是--"+Items[Counter];
		Invalidate();
	}

	if(Counter==m_Number)
	{
		if(!m_Start.IsWindowEnabled())
			{
				Counter=0;
				m_Start.EnableWindow(TRUE);
			}
		KillTimer(1);
		Counter=-1;
		if(m_Ante.GetCurSel()==m_Number)
		{
			FireGuessRight();
			AfxMessageBox("你猜对了！");
		}
		else
		{
			FireGuessWrong();
			AfxMessageBox("你猜错了！");
		}
		m_Show="猜一猜";
		Invalidate();
	}
	COleControl::OnTimer(nIDEvent);
}

BSTR CGamblerCtrlCtrl::GetTitle() 
{
	CString strResult;
	// TODO: Add your property handler here
	strResult=m_Title;
	InvalidateControl();
	return strResult.AllocSysString();
}

void CGamblerCtrlCtrl::SetTitle(LPCTSTR lpszNewValue) 
{
	// TODO: Add your property handler here
	m_Title=lpszNewValue;
	InvalidateControl();
	SetModifiedFlag();
}

void CGamblerCtrlCtrl::OnShowStringChanged() 
{
	// TODO: Add notification handler code
	SetModifiedFlag();
	m_Show=m_showString;
	InvalidateControl();
}

OLE_COLOR CGamblerCtrlCtrl::GetBackColor() 
{
	// TODO: Add your property handler here
	return m_BkColor;
//	return RGB(0,0,0);
}

void CGamblerCtrlCtrl::SetBackColor(OLE_COLOR nNewValue) 
{
	// TODO: Add your property handler here
	m_BkColor=nNewValue;
	InvalidateControl();
	SetModifiedFlag();
}

void CGamblerCtrlCtrl::OnPanelColorChanged() 
{
	// TODO: Add notification handler code
	InvalidateControl();
	SetModifiedFlag();
}

short CGamblerCtrlCtrl::GetHint(short guess) 
{
	// TODO: Add your dispatch handler code here
	if(guess>m_Number)
	{
		AfxMessageBox("比猜的数小");
		return 1;
	}
	if(guess<m_Number)
	{
		AfxMessageBox("比猜的数大");
		return 0;
	}
}