event ItemOleEvent (Group as Group, Item as HITEM, Ev as OleEvent)
Fired when an ActiveX control hosted by an item has fired an event.

TypeDescription
Group as Group A Group object
Item as HITEM A long expression that indicates the handle of the item that hosts an ActiveX control.
Ev as OleEvent An OleEvent object that contains information about the fired event.
The ExplorerTree control supports ActiveX hosting. The InsertItemControl method inserts an item that hosts an ActiveX control. The ItemOleEvent event notifies your application when a hosted ActiveX control fires an event. 

Syntax for ItemOleEvent event, /NET version, on: 

private void ItemOleEvent(object sender,exontrol.EXPLORERTREELib.Group Group,int Item,exontrol.EXPLORERTREELib.OleEvent Ev)
{
}


Private Sub ItemOleEvent(ByVal sender As System.Object,ByVal Group As exontrol.EXPLORERTREELib.Group,ByVal Item As Integer,ByVal Ev As exontrol.EXPLORERTREELib.OleEvent) Handles ItemOleEvent
End Sub

Syntax for ItemOleEvent event, /COM version, on: 

private void ItemOleEvent(object sender, AxEXPLORERTREELib._IExplorerTreeEvents_ItemOleEventEvent e)
{
}


void OnItemOleEvent(LPDISPATCH Group,long Item,LPDISPATCH Ev)
{
}


void __fastcall ItemOleEvent(TObject *Sender,Explorertreelib_tlb::IGroup *Group,Explorertreelib_tlb::HITEM Item,Explorertreelib_tlb::IOleEvent *Ev)
{
}


procedure ItemOleEvent(ASender: TObject; Group : IGroup;Item : HITEM;Ev : IOleEvent);
begin
end;


procedure ItemOleEvent(sender: System.Object; e: AxEXPLORERTREELib._IExplorerTreeEvents_ItemOleEventEvent);
begin
end;


begin event ItemOleEvent(oleobject Group,long Item,oleobject Ev)
end event ItemOleEvent


Private Sub ItemOleEvent(ByVal sender As System.Object, ByVal e As AxEXPLORERTREELib._IExplorerTreeEvents_ItemOleEventEvent) Handles ItemOleEvent
End Sub


Private Sub ItemOleEvent(ByVal Group As EXPLORERTREELibCtl.IGroup,ByVal Item As EXPLORERTREELibCtl.HITEM,ByVal Ev As EXPLORERTREELibCtl.IOleEvent)
End Sub


Private Sub ItemOleEvent(ByVal Group As Object,ByVal Item As Long,ByVal Ev As Object)
End Sub


LPARAMETERS Group,Item,Ev



PROCEDURE OnItemOleEvent(oExplorerTree,Group,Item,Ev)
RETURN

Syntax for ItemOleEvent event, /COM version (others), on: 

<SCRIPT EVENT="ItemOleEvent(Group,Item,Ev)" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function ItemOleEvent(Group,Item,Ev)
End Function
</SCRIPT>


Procedure OnComItemOleEvent Variant llGroup HITEM llItem Variant llEv
	Forward Send OnComItemOleEvent llGroup llItem llEv
End_Procedure


METHOD OCX_ItemOleEvent(Group,Item,Ev) CLASS MainDialog
RETURN NIL


void onEvent_ItemOleEvent(COM _Group,int _Item,COM _Ev)
{
}


function ItemOleEvent as v (Group as OLE::Exontrol.ExplorerTree.1::IGroup,Item as OLE::Exontrol.ExplorerTree.1::HITEM,Ev as OLE::Exontrol.ExplorerTree.1::IOleEvent)
end function


function nativeObject_ItemOleEvent(Group,Item,Ev)
return

 The following sample adds an item that hosts the Microsoft Calendar Control and prints each event fired by this ActiveX control:

Private Sub ExplorerTree1_ItemOleEvent(ByVal Group As EXPLORERTREELibCtl.IGroup, ByVal Item As EXPLORERTREELibCtl.HITEM, ByVal Ev As EXPLORERTREELibCtl.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

Private Sub Form_Load()
    With ExplorerTree1
        With .Groups.Add("Group 1")
            .Height = 172
            .Expanded = True
            .Items.ItemHeight(.Items.InsertControlItem(, "MSCAL.Calendar")) = .Height
        End With
    End With
End Sub

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 ).