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