第十九课：ActiveX控件
本讲主要内容：
1、 首先认识什么叫ActiveX控件(VB演示MonthView控件与DatePicker控件)
演示一下在VB下的如何得到DTPicker下的日期内容及星期的内容,进而讲到属性,除了属性外还有方法和事件、属性页依次演示。
2、 ＶＢ中是很方便的，要是在ＶＣ中也能用就好了，开始在ＶＣ中演示如何使用ＡctiveX控件。同上一例子。（更进一步讲到属性、方法、事件的概念及容器与控件之间的关系等概念）演示如何得到日期的各个部分的内容。在此要讲到变体类型的变量（VARIANT结构及CComVariant类型及_variant_t类型的区别与联系）
3、 ActiveX控件中使用的技术分析,为了保证在各种开发工具上都能使用,对于在其内容实现时会有一些具体的要求。（字符串要使用（BSTR），颜色OLE_CORLOR，变体类型）
4、 注册与反注册(Regsvr32.exe工具的使用)
5、 创建一个ActiveX控件的方法,及常用工具的比较
6、 自动动手写一个时钟控件（工具介绍及常用选项说明及向导生成代码分析）
7、 修改图标
8、 在OnDraw中增加控件外观代码如下：（注意颜色转换的问题）
CBrush br;
br.CreateSolidBrush(TranslateColor(GetBackColor()));
pdc->FillRect(rcBounds,&br);
CTime tm=CTime::GetCurrentTime();
CString str=tm.Format("%H:%M:%S");
pdc->SetBkMode(TRANSPARENT);
pdc->SetTextColor(TranslateColor(GetForeColor()));
pdc->TextOut(0,0,str);
9、 解决不能自动更新的问题
a) 为控件响应WM_CREATE和WM_TIMER事件
b) 在OnCreate()中增加
SetTimer(1,1000,NULL);
c) 在响应onTimer中增加
InvalidateControl();
10、 增加一个新的属性，时间间隔（short UpdateInterval）
a) 在OnUpdateIntervalChanged 函数中修改(注：此时应该修改定时器的时间间隔)
SetTimer(1,m_updateInterval,NULL);
b) 进一步分析问题，解决输入时间不正确时的对策，对OnUpdateIntervalChanged函数中的代码做如下修改
if(m_updateInterval<1000||m_updateInterval>5000)//解决输入值不合要求的问题
m_updateInterval=1000;
m_updateInterval=m_updateInterval/1000*1000;//解决输入值不是整数的问题
SetTimer(1,m_updateInterval,NULL);
SetModifiedFlag();
11、 增加对字体的支持OnDraw()
CFont* pOldFont=SelectStockFont(pdc);
pdc->TextOut(0,0,tm.Format("%H:%M:%S"));
pdc->SelectObject(pOldFont);
12、 增加一个方法Beep()
MessageBox(“This is in Beep Method!”);
13、 增加自定义属性页
a) 修改属性页资源
b) 在DoPropExchange函数中增加一个相应的属性子项
PX_Short(pPX,"UpdateInterval",m_updateInterval,1000);
c) 增加一个成员变量并将其与属性相关的部分补全
14、 增加系统属性页
修改属性页映射宏
BEGIN_PROPPAGEIDS(CMyActiveXCtrl, 3)
PROPPAGEID(CMyActiveXPropPage::guid)
PROPPAGEID(CLSID_CColorPropPage)
PROPPAGEID(CLSID_CFontPropPage)
END_PROPPAGEIDS(CMyActiveXCtrl)
15、 增加控件事件
a) 系统内部事件OnClick
b) 自定义事件 NewMinute
在OnDraw函数中触发,增加如下代码:
if(tm.GetSecond()==0)
FireNewMinute();
16、 编写相应的客户端(VB与VC下)
(本部分略)
评论