The Exontrol's ExGantt control supports ActiveX hosting. The InsertItemControl method inserts an item that hosts an ActiveX control. The ItemOleEvent event notifies your application that a hosted ActiveX control fires an event. The ItemObject property gets the ActiveX object hosted by an item that is inserted using the InsertControlItem method. The ItemObject property gets nothing if the item doesn't host an ActiveX control, or if inserting an ActiveX control failed ).
Syntax for ItemOleEvent event, /NET version, on:
private void ItemOleEvent(object sender,int Item,exontrol.EXGANTTLib.OleEvent Ev)
{
}
Private Sub ItemOleEvent(ByVal sender As System.Object,ByVal Item As Integer,ByVal Ev As exontrol.EXGANTTLib.OleEvent) Handles ItemOleEvent End Sub |
Syntax for ItemOleEvent event, /COM version, on:
private void ItemOleEvent(object sender, AxEXGANTTLib._IGanttEvents_ItemOleEventEvent e)
{
}
void OnItemOleEvent(long Item,LPDISPATCH Ev)
{
}
void __fastcall ItemOleEvent(TObject *Sender,Exganttlib_tlb::HITEM Item,Exganttlib_tlb::IOleEvent *Ev)
{
}
procedure ItemOleEvent(ASender: TObject; Item : HITEM;Ev : IOleEvent); begin end; procedure ItemOleEvent(sender: System.Object; e: AxEXGANTTLib._IGanttEvents_ItemOleEventEvent); begin end; begin event ItemOleEvent(long Item,oleobject Ev) end event ItemOleEvent Private Sub ItemOleEvent(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_ItemOleEventEvent) Handles ItemOleEvent End Sub Private Sub ItemOleEvent(ByVal Item As EXGANTTLibCtl.HITEM,ByVal Ev As EXGANTTLibCtl.IOleEvent) End Sub Private Sub ItemOleEvent(ByVal Item As Long,ByVal Ev As Object) End Sub LPARAMETERS Item,Ev PROCEDURE OnItemOleEvent(oGantt,Item,Ev) RETURN |
Syntax for ItemOleEvent event, /COM version (others), on:
<SCRIPT EVENT="ItemOleEvent(Item,Ev)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function ItemOleEvent(Item,Ev) End Function </SCRIPT> Procedure OnComItemOleEvent HITEM llItem Variant llEv Forward Send OnComItemOleEvent llItem llEv End_Procedure METHOD OCX_ItemOleEvent(Item,Ev) CLASS MainDialog RETURN NIL void onEvent_ItemOleEvent(int _Item,COM _Ev)
{
}
function ItemOleEvent as v (Item as OLE::Exontrol.Gantt.1::HITEM,Ev as OLE::Exontrol.Gantt.1::IOleEvent) end function function nativeObject_ItemOleEvent(Item,Ev) return |
The following VB sample adds an item that hosts the Microsoft Calendar Control and prints each event fired by that ActiveX control:
Gantt1.Items.ItemHeight(Gantt1.Items.InsertControlItem(, "MSCal.Calendar")) = 256
Private Sub Gantt1_ItemOleEvent(ByVal Item As EXGANTTLibCtl.HITEM, ByVal Ev As EXGANTTLibCtl.IOleEvent) Debug.Print "Event name:" & Ev.Name If (Ev.CountParam = 0) Then Debug.Print "The event has no arguments." Else Debug.Print "The event has the following arguments:" Dim i As Long For i = 0 To Ev.CountParam - 1 Debug.Print Ev(i).Name; " = " & Ev(i).Value Next End If End Sub
The following VC sample displays the events that an ActiveX control is firing while it is hosted by an item:
#import <exgantt.dll> rename( "GetItems", "exGetItems" )
static CString V2S( VARIANT* pv, LPCTSTR szDefault = _T("") )
{
if ( pv )
{
if ( pv->vt == VT_ERROR )
return szDefault;
COleVariant vt;
vt.ChangeType( VT_BSTR, pv );
return V_BSTR( &vt );
}
return szDefault;
}
void OnItemOleEventGantt1(long Item, LPDISPATCH Ev)
{
EXGANTTLib::IOleEventPtr spEvent( Ev );
CString strOutput;
strOutput.Format( "Event's name: %s\n", spEvent->Name.operator const char *() );
OutputDebugString( strOutput );
if ( spEvent->CountParam == 0 )
OutputDebugString( "The event has no parameters." );
else
{
for ( long i = 0; i < spEvent->CountParam; i++ )
{
EXGANTTLib::IOleEventParamPtr spParam = spEvent->GetParam( COleVariant( i ) );
strOutput.Format( "Name: %s, Value: %s\n", spParam->Name.operator const char *(), V2S( &spParam->Value ) );
OutputDebugString( strOutput );
}
}
OutputDebugString( "" );
}
The #import clause is required to get the wrapper classes for IOleEvent and IOleEventParam objects, that are not defined by the MFC class wizard. The same #import statement defines the EXGANTTLib namespace that include all objects and types of the control's TypeLibrary. In case your exgantt.dll library is located to another place than the system folder or well known path, the path to the library should be provided, in order to let the VC finds the type library.
The following VB.NET sample displays the events that an ActiveX control is firing while it is hosted by an item:
Private Sub AxGantt1_ItemOleEvent(ByVal sender As Object, ByVal e As AxEXGANTTLib._IGanttEvents_ItemOleEventEvent) Handles AxGantt1.ItemOleEvent
Debug.WriteLine("Event's name: " & e.ev.Name)
Dim i As Long
For i = 0 To e.ev.CountParam - 1
Dim eP As EXGANTTLib.OleEventParam
eP = e.ev(i)
Debug.WriteLine("Name: " & e.ev.Name & " Value: " & eP.Value)
Next
End Sub
The following C# sample displays the events that an ActiveX control is firing while it is hosted by an item:
private void axGantt1_ItemOleEvent(object sender, AxEXGANTTLib._IGanttEvents_ItemOleEventEvent e)
{
System.Diagnostics.Debug.WriteLine( "Event's name: " + e.ev.Name.ToString() );
for ( int i= 0; i < e.ev.CountParam ; i++ )
{
EXGANTTLib.IOleEventParam evP = e.ev[i];
System.Diagnostics.Debug.WriteLine( "Name: " + evP.Name.ToString() + ", Value: " + evP.Value.ToString() );
}
}
The following VFP sample displays the events that an ActiveX control fires when it is hosted by an item:
*** ActiveX Control Event *** LPARAMETERS item, ev local s s = "Event's name: " + ev.Name for i = 0 to ev.CountParam - 1 s = s + "Name: " + ev.Param(i).Name + " ,Value: " + Str(ev.Param(i).Value) endfor wait window nowait s