Private Sub IdentifyTask_ExecuteCompleted(ByVal sender As Object, ByVal args As IdentifyEventArgs) Dim drawGraphicslayer As GraphicsLayer = TryCast(MyMap.Layers("drawGraphicsLayer"), GraphicsLayer) drawGraphicslayer.ClearGraphics() BusyIndicator.IsBusy = False If args.IdentifyResults.Count = 0 Then MessageBox.Show("Nothing was found." & vbCr & "Please zoom in closer and try again.", "Nothing Found", MessageBoxButton.OK) Else MessageBox.Show("objectID = " & args.IdentifyResults(0).Feature.Attributes("ObjectID"), "ObjectID", MessageBoxButton.OK)) End If End Sub
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.