Tạo ActiveX và ứng dụng bằng VC++ pot

Chọn tab "Project", chọn mục MFC ActiveX ControlWizard, chọn thư mục chứa Project ở mục "Location", nhập tên project vào textbox "Project name" thí dụ nhập tên MyStopLite rồi chọn butto

Tạo ActiveX và ứng dụng bằng VC++

(Post 15/10/2010) Trong phương pháp lập trình hướng đối tượng, một chương trình giải quyết vấn đề nào đó là 1 tập hợp gồm nhiều đối tượng độc lập nhưng khi cần thì chúng tương tác lẫn nhau để cùng hoàn thành chức năng của ứng dụng Mỗi đối tượng của phần mềm không nhất thiết là của riêng phần mềm đó, nó có thể được dùng chung bởi nhiều phần mềm khác nhau

Việc xây dựng đối tượng có thể độc lập với việc xây dựng ứng dụng, ứng dụng có thể dùng lại những đối tượng đã có sẵn Nhiều năm về trước, Microsoft đã giới thiệu 2 loại đối tượng được quản lý ở cấp hệ thống để các ứng dụng dùng chúng dễ dàng nhất, đó là đối tượng dạng COM (Component Object Model) và đối tượng dạng ActiveX Control

ActiveX Control là đối tượng có giao diện giống như Button, TextBox, ListBox, nhưng chưa

có sẵn trong môi trường lập trình, chúng được người lập trình tạo thêm, nhưng việc dùng chúng thì y như việc dùng các điều khiển sẵn có của môi trường lập trình như Button, TextBox, ListBox,

Sau đây chúng tôi xin giới thiệu qui trình điển hình để xây dựng 1 ActiveX đơn giản và xây dựng 1 ứng dụng sử dụng nó bằng môi trường lập trình VC++

ActiveX mà chúng tôi muốn xây dựng là dàn đèn điều khiển giao lộ gồm có 3 đèn xanh, vàng,

đỏ Nó có các nhóm chân giao tiếp với thế giới bền ngoài như sau:

 Nhóm chân thuộc tính: có 1 chân 'Color' miêu tả trạng thái màu hiện hành

 Nhóm chân tác vụ: có 1 chân 'Next()' cho phép dàn đèn chuyển trạng thái màu theo thứ

tự xanh à vàng à đỏ à xanh

 Nhóm chân sự kiện nhập có 2 chân 'LButtonDown' và 'Change' để xử lý sự kiện ấn chuột trên dàn đèn và xử lý việc container thay đổi trạng thái

 Nhóm chân sự kiện xuất: có 5 chân 'Go', 'Stop', 'Caution', 'Off', 'Testing' được kích hoạt tương ứng với 5 trạng thái dàn đèn theo thời gian là xanh, đỏ, vàng, tắt nghỉ, sáng cả 3 đèn để kiểm tra

 Nhóm chân cung cấp nguồn: có 1 form 'Properties Page' cho phép người dùng có thể thiết lập trạng thái dàn đèn dễ dàng tại thời điểm thiết kế

Ứng dụng mà chúng tôi muốn xây dựng là 1 form giao diện demo việc điều khiển luồng giao thông ở 1 ngã tư một cách tự động theo các tham số timer định sẵn

I Qui trình xây dựng ActiveX dàn đèn điển hình gồm 17 bước như sau:

1 Chạy Visual C++ 6.0 (thí dụ chọn mục Start.Programs.Microsoft Visual Studio 6.0.Microsoft

Visual C++ 6.0)

2 Chọn menu File.New để hiển thị cửa sổ New Chọn tab "Project", chọn mục MFC ActiveX

ControlWizard, chọn thư mục chứa Project ở mục "Location", nhập tên project vào textbox

"Project name" (thí dụ nhập tên MyStopLite) rồi chọn button Ok để bắt đầu các bước khai báo thông số cho Project

3 Ở cửa sổ Step 1, bạn để các tham số mặc định, chỉ chọn button Finish để hoàn thành qui trình

Wizard tạo Project

4 Chọn menu View.Classwizard, cửa sổ MFC ClassWizard sẽ hiển thị, cửa sổ này sẽ giúp bạn

đặc tả các nhóm chân giao tiếp của ActiveX

5 Định nghĩa các chân thuộc tính: chọn tab "Automation", chọn button "Add property" để hiển

thị cửa sổ "Add property" Bạn nhập tên "Color" vào combobox "External Name", chọn kiểu short trong listbox "Type", đánh dấu chọn checkbox "Get/Set methods" rồi chọn button Ok để hoàn thành đặc tả thuộc tính Color của ActiveX Nếu ActiveX cần xây dựng có nhiều thuộc tính, bạn sẽ lập lại bước 5 nhiều lần

6 Định nghĩa các chân tác vụ: chọn tab "Automation", chọn button "Add Method" để hiển thị

cửa sổ "Add Method" Bạn nhập tên "Next" vào combobox "External Name", chọn kiểu trả về

"void" trong listbox "Return type", rồi chọn button Ok để hoàn thành đặc tả tác vụ Next() của ActiveX Nếu ActiveX cần xây dựng có nhiều tác vụ, bạn sẽ lập lại bước 6 nhiều lần

7 Định nghĩa các chân events xuất ra : chọn tab "ActiveX Events", chọn button "Add Event" để

hiển thị cửa sổ "Add event" Bạn nhập tên "Go" vào combobox "External Name", rồi chọn button Ok để hoàn thành đặc tả event "Go" của ActiveX Lặp lại bước 7 nhiều lần để định nghĩa các sự kiện xuất ra như Stop, Caution, Off, Testing

8 Định nghĩa hàm xử lý sự kiện cho 1 số sự kiện nhập mà ActiveX quan tâm: chọn tab

"Message Maps", duyệt tìm và chọn mục WM_LBUTTONDOWN trong danh sách "Messages" rồi chọn button "Add Function" để tạo hàm xử lý sự kiện ấn chuột trái trên ActiveX Tương tự, duyệt tìm và chọn mục "OnAmbientPropertyChange" rồi chọn button "Add Function" để tạo hàm xử lý sự kiện Container thay đổi

9 Chọn tác vụ OnDraw trong listbox "Member functions" rồi chọn button "Edit Code" để hiển

thị cửa sổ soạn code cho ActiveX Viết code cho các tác vụ và các hàm xử lý sự kiện vừa tạo như sau:

//Hiệu chỉnh lại hàm OnDraw của Activex Control để vẽ nó theo yêu cầu

void CMyStopLiteCtrl::OnDraw (CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid) {

//1 xóa background của ActiveX Control dùng màu background của container

CBrush brAmbientBack(TranslateColor(AmbientBackColor()));

pdc->FillRect(rcBounds, &brAmbientBack);

//2 vẽ mép ActiveX Control dùng thuộc tính stock của control : BackColor + ForeColor

// tính kích thước khoảng 40% độ cao

CRect rcBezel(rcBounds);

int nHeight = rcBounds.Height();

int nWidth = rcBounds.Width();

if (nHeight >= nWidth) {

int nBezelWidth = nHeight * 40 / 100;

if (nBezelWidth > nWidth)

nBezelWidth = nWidth; // not more then width!

int nDeflateBezel = (nWidth - nBezelWidth) / 2;

rcBezel.DeflateRect(nDeflateBezel, 0);

} else {

int nBezelHeight = nWidth * 40 / 100;

if (nBezelHeight > nHeight)

nBezelHeight = nHeight; // not more then width!

int nDeflateBezel = (nHeight - nBezelHeight) / 2;

rcBezel.DeflateRect(0,nDeflateBezel);

}

//tạo và chọn đối tượng brush, pen

CBrush brBack(TranslateColor(GetBackColor()));

CBrush * pbrOld = pdc->SelectObject(&brBack);

CPen pnFore(PS_SOLID, 2, TranslateColor(GetForeColor()));

CPen * ppnOld = pdc->SelectObject(&pnFore);

//vẽ đường viền cho ActiveX

pdc->Rectangle(rcBezel);

// select old brush, but not old pen

pdc->SelectObject(pbrOld);

//3 vẽ 3 đèn dùng thuộc tính stock ForeColor

int nLights = TranslateLights();

if (nHeight >= nWidth) { //hiển thị đèn từ trên xuống

//vẽ đèn đỏ ở trên

DrawLight(pdc, rcBounds, 6, 27,

(nLights & SLBIT_RED) ? SLCOLOR_RED : SLCOLOR_OFF);

//vẽ đèn vàng ở giữa

DrawLight(pdc, rcBounds, 37, 27,

(nLights & SLBIT_YELLOW) ? SLCOLOR_YELLOW : SLCOLOR_OFF); //vẽ đèn xanh ở dưới

DrawLight(pdc, rcBounds, 68, 27,

(nLights & SLBIT_GREEN) ? SLCOLOR_GREEN : SLCOLOR_OFF); } else { //hiển thị đèn từ trái sang phải

//vẽ đèn đỏ ở bên trái

DrawLight(pdc, rcBounds, 6, 27,

(nLights & SLBIT_RED) ? SLCOLOR_RED : SLCOLOR_OFF);

//vẽ đèn vàng ở giữa

DrawLight(pdc, rcBounds, 37, 27,

(nLights & SLBIT_YELLOW) ? SLCOLOR_YELLOW : SLCOLOR_OFF); //vẽ đèn xanh ở bên phải

DrawLight(pdc, rcBounds, 68, 27,

(nLights & SLBIT_GREEN) ? SLCOLOR_GREEN : SLCOLOR_OFF); }

pdc->SelectObject(ppnOld);

}

//hàm tạo sự kiện xuất khi dàn đèn đổi màu

void CMyStopLiteCtrl::FireRightEvent() {

switch (m_color) {

case SL_RED: FireStop();

break;

case SL_YELLOW: FireCaution();

break;

case SL_GREEN: FireGo();

break;

case SL_NONE: FireOff();

break;

case SL_TEST: FireTesting();

break;

}

}

//hàm thiết lập trạng thái tắt/sáng của 3 đèn

int CMyStopLiteCtrl::TranslateLights() {

int nLights = SLBIT_RED; //trị mặc định

switch (m_color) {

case SL_NONE: nLights = 0;

break;

case SL_RED: nLights = SLBIT_RED;

break;

case SL_GREEN: nLights = SLBIT_GREEN;

break;

case SL_YELLOW: nLights = SLBIT_YELLOW;

break;

case SL_TEST: nLights = SLBIT_RED | SLBIT_YELLOW | SLBIT_GREEN;

break;

}

return nLights;

}

//hàm vẽ đèn theo trạng thái tắt/sáng của nó

void CMyStopLiteCtrl::DrawLight (

CDC* pdc, // DC được dùng để vẽ

const CRect& rcBounds, //vùng chữ nhật vẽ

int nPercentDown, //vị trí trên

int nPercentDiameter, // bán kính

COLORREF crColor //màu

) {

//tính bán kính theo đơn vị vẽ

int nHeight = rcBounds.Height();

int nWidth = rcBounds.Width();

if (nWidth

int nDiameter = nHeight * nPercentDiameter / 100;

if (nDiameter > nWidth)

nDiameter = nWidth; //bán kính phải <= độ rộng ActiveX

//tạo vùng chữ nhật bao quanh đèn

int nLeftEdge = (rcBounds.left + rcBounds.right - nDiameter) / 2;

int nTopEdge = rcBounds.top + nHeight * nPercentDown / 100;

CRect rcLight(nLeftEdge, nTopEdge,nLeftEdge + nDiameter,nTopEdge + nDiameter); rcLight.IntersectRect(rcLight, rcBounds);

//tạo brush, draw, chọn brush cũ

CBrush brColor(crColor);

CBrush * brOld = pdc->SelectObject(&brColor);

pdc->Ellipse(rcLight);

pdc->SelectObject(brOld);

} else { //hiển thị dàn đèn ngang

int nDiameter = nWidth * nPercentDiameter / 100;

if (nDiameter > nHeight)

nDiameter = nHeight; //bán kính phải <= độ cao ActiveX

//tạo vùng chữ nhật bao quanh đèn

int nTopEdge = (rcBounds.top + rcBounds.bottom - nDiameter) / 2;

int nLeftEdge = rcBounds.left + nWidth * nPercentDown / 100;

CRect rcLight( nLeftEdge,nTopEdge, nLeftEdge + nDiameter, nTopEdge + nDiameter); rcLight.IntersectRect(rcLight, rcBounds);

//tạo brush, draw, chọn brush cũ

CBrush brColor(crColor);

CBrush * brOld = pdc->SelectObject(&brColor);

pdc->Ellipse(rcLight);

pdc->SelectObject(brOld);

}

}

//hàm xử lý ấn chuột trái

void CMyStopLiteCtrl::OnLButtonDown(UINT nFlags, CPoint point) {

Next();

COleControl::OnLButtonDown(nFlags, point);

}

//tác vụ đọc thuộc tính Color

short CMyStopLiteCtrl::GetColor() {

return m_color;

}

//tác vụ hiệu chỉnh thuộc tính Color

void CMyStopLiteCtrl::SetColor(short nNewValue) {

if (nNewValue >= SL_NONE && nNewValue <= SL_TEST) {

m_color = nNewValue;

InvalidateControl();

FireRightEvent();

SetModifiedFlag();

} else {

ThrowError(CTL_E_ILLEGALFUNCTIONCALL, "Color parameter out of range"); }

}

//tác vụ chuyển trạng thái đèn

void CMyStopLiteCtrl::Next() {

if (m_color >= SL_LAST || m_color < SL_FIRST) {

m_color = SL_FIRST;

} else m_color++;

InvalidateControl();

FireRightEvent();

SetModifiedFlag();

}

//hàm xử lý sự kiện thay đổi của Container

void CMyStopLiteCtrl::OnAmbientPropertyChange(DISPID dispid) {

//vẽ lại ActiveX nếu container thay đổi màu nền

if (dispid == DISPID_AMBIENT_BACKCOLOR || dispid == DISPID_UNKNOWN){ InvalidateControl();

}

//gọi class cha làm tiếp

COleControl::OnAmbientPropertyChange(dispid);

}

10 Dời lên đầu file MyStopLiteCtl.cpp, viết đoạn lệnh định nghĩa các hằng gợi nhớ cần dùng sau đây:

//các giá trị của thuộc tính Color

enum { SL_NONE = 0,

SL_FIRST = 1, //đèn đầu trong chu kỳ chuyển màu

SL_RED = 1, SL_GREEN = 2, SL_YELLOW = 3, //thứ tự chuyển

SL_LAST = 3, //đèn cuối trong chu kỳ chuyển màu

SL_TEST = 4 };

//các bit qui định vẽ đèn nào

enum { SLBIT_RED = 1, SLBIT_GREEN = 2, SLBIT_YELLOW = 4};

//cáu màu RGB cần dùng cho các đèn

enum { SLCOLOR_OFF = RGB(63, 63, 63),

SLCOLOR_RED = RGB(255, 0, 0),

SLCOLOR_GREEN = RGB(0, 255, 0),

SLCOLOR_YELLOW = RGB(255, 255, 0) };

11 Mở file MyStopLiteCtl.h và viết thêm đoạn lệnh khai báo các hàm viết thêm cho ActiveX

như sau (vào nhóm có tầm vực public):

public:

CMyStopLiteCtrl();

//các hàm viết thêm

void FireRightEvent();

int TranslateLights();

void CMyStopLiteCtrl::DrawLight(

CDC* pdc, // DC được dùng để vẽ

const CRect& rcBounds, //vùng chữ nhật vẽ

int nPercentDown, //vị trí trên

int nPercentDiameter, // bán kính

COLORREF crColor //màu

);

Khai báo biến miêu tả trạng thái màu của dàn đèn vào nhóm có tầm vực protected như sau: protected:

~CMyStopLiteCtrl();

short m_color;

12 Chọn tab "ResourceView" trong cửa sổ hiển thị cây Project, mở rộng mục Dialog, ấn kép

chuột mục IDD_PROPPAGE_MYSTOPLITE để hiển thị cửa sổ thiết kế trang thuộc tính của ActiveX, xóa label có sẵn trong form này, tạo Frame "Hãy chọn tráng thái đầu của dàn đèn :" như hình sau:

13 Vẽ 1 Radio button, ấn phải chuột vào button vừa tạo và chọn mục Properties để hiển thị cửa

sổ thuộc tính của nó Đặt ID = IDC_OFF, Caption = Off, đánh dấu chọn vào 2 check box

"Group" và "Tab Stop"

14 Lập lại bước 13 để vẽ tuần tự 4 radio button với các thuộc tính như sau:

ID = IDC_RED, Caption = Red, đánh dấu chọn vào check box "Tab Stop"

ID = IDC_GREEN, Caption = Green, đánh dấu chọn vào check box "Tab Stop"

ID = IDC_YELLOW, Caption = Yellow, đánh dấu chọn vào check box "Tab Stop"

ID = IDC_TESTING, Caption = Testing, đánh dấu chọn vào check box "Tab Stop"

15 Chọn menu View.ClassWizard để hiển thị cửa sổ ClassWizard Chọn class

"MyStopLitePropPage" ở listbox "Class name" Chọn tab "Member Variables", chọn mục IDC_OFF trong listbox "Control ID", chọn button "Add variable" để hiển thị cửa sổ "Add member variable", nhập tên m_color vào textbox "Member Variable name", nhập tên Color vào comboBox "Optional property name" rồi ấn button Ok để hoàn tất việc định nghĩa biến kết hợp với radion button Off

16 Dịch ActiveX: chọn menu Build.Rebuild all để dịch và tạo ActiveX Control, nếu có lỗi về từ

vựng hay cú pháp thì sửa cho đến khi hết lỗi

17 Kiểm thử ActiveX: chọn menu Tools.ActiveX Control Test Container để kiểm thử các chức

năng của ActiveX Control có đúng kỳ vọng không Bạn không cần thực hiện bước này nếu như

đã viết đúng các đoạn code được liệt kê ở trên

18 Sau khi dịch thành công, ActiveX đã được đăng ký tự động vào Windows quản lý và có thể

được dùng bởi bất kỳ chương trình nào trên máy bạn Để dùng ActiveX này trên máy khác, bạn phải copy file MyStopLite.ocx vào vị trí nào đó trên máy cần cài đặt rồi ra lệnh đăng ký vào Windows thông qua hàng lệnh sau (chọn Start.Run và nhập vào):

regsvr32 <đường dẫn file MyStopLite.ocx>

II Qui trình xây dựng ứng dụng thử dùng ActiveX gồm các bước như sau:

1 Chạy Visual C++ 6.0 (thí dụ chọn mục Start.Programs.Microsoft Visual Studio 6.0.Microsoft

Visual C++ 6.0)

2 Chọn menu File.New để hiển thị cửa sổ New Chọn tab "Project", chọn mục MFC AppWizard

(exe), chọn thư mục chứa Project ở mục "Location", nhập tên project vào textbox "Project name" (thí dụ nhập tên MyApp) rồi chọn button Ok để bắt đầu các bước khai báo thông số cho Project

3 Ở cửa sổ Step 1, bạn chọn checkbox "Dialog based", rồi chọn button Finish để hoàn thành qui

trình Wizard tạo Project

4 Khi Form ban đầu của ứng dụng hiển thị, bạn xóa tất cả các đối tượng có sẵn trong Form

(gồm 2 button và 1 label)

5 Chọn menu Project.Add to Project.Components and Controls để hiển thị cửa sổ "Components

and Controls Gallery", mở rộng mục "Registered ActiveX Controls", duyệt tìm và chọn mục

"MyStopLite Control", chọn button Insert để "add" ActiveX này vào cửa sổ Toolbox của Project ứng dụng

6 Thiết kế Form gồm 4 đèn ở 1 ngả tư và 4 textbox kèm theo như sau:

7 Nhấn phải chuột vào đèn trên trái, chọn mục Properties trong menu để hiển thị cửa sổ thuộc

tính của nó, đặt ID = IDC_SL1 rồi đóng cửa sổ Proterties lại Ấn phải chuột vào Label kết hợp với đèn trên trái, chọn mục Properties trong menu để hiển thị cửa sổ thuộc tính của nó, đặt ID = IDC_L1 rồi đóng cửa sổ Proterties lại

8 Lập lại bước 7 cho 3 đèn còn lại theo chiều kim đồng hồ với ID lần lượt là IDC_SL2,

IDC_SL3, IDC_SL4 ID cho các Label kết hợp với chúng lần lượt là IDC_L2, IDC_L3,

IDC_L4

9 Chọn menu View.ClassWizard để hiển thị cửa sổ "MFC ClassWizard" như sau:

10 Chọn mục CMyAppDlg ở listbox "ClassName", chọn tab "Member Variables", chọn mục

IDC_L1 trong listbox "Object IDs", chọn button "Add Variable" để tạo biến kết hợp với Label tương ứng, đặt tên biến là m_l1, Category là Value, Type là CString Tương tự, đặt tên biến cho

3 label còn lại là m_l2, m_l3, m_l4 Chọn mục IDC_SL1 trong listbox "Object IDs", chọn button "Add Variable" để tạo biến kết hợp với đèn tương ứng, đặt tên biến là m_sl1, Category là Control, Type là CMyStopLite Tương tự, đặt tên biến cho 3 đèn còn lại là m_sl2, m_sl3, m_sl4

11 Chọn mục CMyAppDlg ở listbox "ClassName", chọn tab "Message Maps", duyệt tìm và

chọn mục IDC_SL1 trong listbox "Object IDs", chọn mục "Go" trong listbox "Message", chọn button "Add function" để tạo hàm xử lý sự kiện Go của đèn tương ứng (tên hàm mặc định này

có tên là OnGoSl1) Tiếp tục tạo các hàm xử lý sự kiện Stop và Caution của đèn IDC_SL1 Tương tự, tạo 3 hàm xử lý sự kiện Go, Stop, Caution của đèn IDC_SL2

12 Chọn button "Edit Code" trong cửa sổ "MFC ClassWizard" để hiển thị cửa sổ soạn code cho

các hàm xử lý vừa tạo ra và viết code cho chúng như sau:

void CMyAppDlg::OnGoSl1() {

// TODO: Add your control notification handler

code here

UpdateData(TRUE);

m_l1 = m_l3 = "Den xanh Bat dau chay.";

UpdateData(FALSE);

}

void CMyAppDlg::OnStopSl1() {

// TODO: Add your control notification handler

code here

UpdateData(TRUE);

m_l1 = m_l3 = "Den do Hay dung lai.";

UpdateData(FALSE);

}

void CMyAppDlg::OnCautionSl1() {

// TODO: Add your control notification handler code here

UpdateData(TRUE);

m_l1 = m_l3 = "Den vang Chuan bi dung lai.";

UpdateData(FALSE);

}