

| Type | Description | |||
| Object as ExShellObject | A reference to the ExShellObject being selected. |
private void ObjectSelected(object sender,exontrol.EXSHELLVIEWLib.ExShellObject Obj)
{
}
Private Sub ObjectSelected(ByVal sender As System.Object,ByVal Obj As exontrol.EXSHELLVIEWLib.ExShellObject) Handles ObjectSelected End Sub |
private void ObjectSelected(object sender, AxEXSHELLVIEWLib._IExShellViewEvents_ObjectSelectedEvent e)
{
}
void OnObjectSelected(LPDISPATCH Object)
{
}
void __fastcall ObjectSelected(TObject *Sender,Exshellviewlib_tlb::IExShellObject *Object)
{
}
procedure ObjectSelected(ASender: TObject; Object : IExShellObject); begin end; procedure ObjectSelected(sender: System.Object; e: AxEXSHELLVIEWLib._IExShellViewEvents_ObjectSelectedEvent); begin end; begin event ObjectSelected(oleobject Object) end event ObjectSelected Private Sub ObjectSelected(ByVal sender As System.Object, ByVal e As AxEXSHELLVIEWLib._IExShellViewEvents_ObjectSelectedEvent) Handles ObjectSelected End Sub Private Sub ObjectSelected(ByVal Object As EXSHELLVIEWLibCtl.IExShellObject) End Sub Private Sub ObjectSelected(ByVal Object As Object) End Sub LPARAMETERS Object PROCEDURE OnObjectSelected(oExShellView,Object) RETURN |
<SCRIPT EVENT="ObjectSelected(Object)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function ObjectSelected(Object) End Function </SCRIPT> Procedure OnComObjectSelected Variant llObject Forward Send OnComObjectSelected llObject End_Procedure METHOD OCX_ObjectSelected(Object) CLASS MainDialog RETURN NIL void onEvent_ObjectSelected(COM _Object)
{
}
function ObjectSelected as v (Object as OLE::Exontrol.ShellView.1::IExShellObject) end function function nativeObject_ObjectSelected(Object) return |
In case your control supports single selection, you can use the ObjectSelected event to notify when a new item/object is selected:
Private Sub ExShellView1_ObjectSelected(ByVal Object As EXSHELLVIEWLibCtl.IExShellObject)
If Not (Object Is Nothing) Then
Debug.Print Object.Name
End If
End Sub
The following sample gets a collection of selected items ( in case your control allows multiple selection ):
Private Sub ExShellView1_StateChange(ByVal newState As EXSHELLVIEWLibCtl.StatesEnum)
If (newState = SelChangeState) Then
ExShellView1.Objects.Get SelectedItems
With ExShellView1.Objects
For i = 0 To .Count - 1
Debug.Print .Item(i).Name
Next
End With
End If
End Sub