Click here to Skip to main content
65,938 articles
CodeProject is changing. Read more.
Articles
(untagged)

Date and Time Activex Control (Written VC++ ) for VB Applications

0.00/5 (No votes)
16 May 2007 1  
Date and Time Activex Control for VB Applications

Introduction

Hai, This is on for the Beginners in ActiveX Control. It is created in VC++ 6.0

and it can be taken as ActiveX tutorial.

Background

More programmers are tried to explin the concept of Activex Control.

This program will help you to clearly understand OCX creation and Usage in VC++.

IN VC++:

Step : 1 File -> New -> MFC Activex Control Wizard

Step2 : Give the Project name as you desire.

Step 3 : Click OK and Choose the control subclass type is STAIC in the Drop List Box

Step 4: Give the Name of the Subclass

Step 5: Click Finish

Step 6 : Add the Message Handler the prjnamectrl class in prjnamectrl.cpp

1. WM_PAINT - Add the follwing Coding on that

void CShapeCtrl::OnPaint()
{ SetTimer(1,100,0);
CPaintDC dc(this); // device context for painting
// Do not call COleControl::OnPaint() for painting messages
}

2. WM_TIMER - Add the Follwing Coding in that

CDC *cd;
void CShapeCtrl::OnTimer(UINT nIDEvent)
{
if(nIDEvent==1)
{ SYSTEMTIME st;CString cs;
CRect g;g.top=0;g.left=0;g.right=200;g.bottom=18;
CBrush cb;cb.CreateSolidBrush(RGB(192,192,192));
CRgn crg;crg.CreateRectRgn(0,0,200,18);
cd=GetDC(0);
GetLocalTime(&st);
cs.Format("Date :%d-%d-%d Time:%d:%d:%d",st.wDay,st.wMonth,st.wYear,
st.wHour,st.wMinute,st.wSecond);
cd->FillRect(g,&cb);
cd->SetBkMode(TRANSPARENT);
SetWindowRgn(crg,1);
cd->SetBoundsRect(g,1);
cd->SetTextColor(RGB(0,0,250));
cd->TextOut(0,0,cs,cs.GetLength());
ReleaseDC(cd);
}
COleControl::OnTimer(nIDEvent);
}

Step 7: Make the Changes in Resource and then Compile and Run

Step 8: In Deug/ Release Folder you might get prjname.ocx

In VB:

Step1 : Create a New project as Simple Application

Step2 : Right Click the Component tab click Components

Step3 : Goto the Components and Browsae the OCX as you Created previously.

Step 4: Apply and OK

Step5 : Drag and Drop the Component into your form

Step6: it woks !

History

Keep a running update of any changes or improvements you've made here.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here