Private WithEvents m_pTableSel As StandaloneTable Private m_pApp As IApplication Public Sub SetEvents() Dim pMxDoc As IMxDocument Dim pMap As IStandaloneTableCollection Dim pStdAloneTbl As IStandaloneTable Set pMxDoc = m_pApp.Document Set pMap = pMxDoc.FocusMap Set pStdAloneTbl = pMap.StandaloneTable(0) Set m_pTableSel = pStdAloneTbl End Sub Private Sub m_pTableSel_SelectionChanged() MsgBox "Selection Changed" End Sub Private Sub ICommand_OnCreate(ByVal hook As Object) Set m_pApp = hook SetEvents End Sub
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.