Public WithEvents sel As GxSelection Public Sub test() Dim pDockableWindowManager As IDockableWindowManager Set pDockableWindowManager = Application Dim sUID As UID Set sUID = New UID sUID.Value = "{7F09BEFF-4F85-48A2-A3DC-39430262799E}" 'GxBrowserDockWindow Dim pDockableWindow As IDockableWindow Set pDockableWindow = pDockableWindowManager.GetDockableWindow(sUID) Dim pGXBrowser As IGxBrowser Set pGXBrowser = pDockableWindow.UserData Dim pGXCatalog As IGxCatalog Set pGXCatalog = pGXBrowser.InternalCatalog Set sel = pGXCatalog.Selection End Sub Private Sub sel_OnSelectionChanged(ByVal Selection As esriCatalog.IGxSelection, initiator As Variant) MsgBox Selection.Location.FullName End Sub
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.