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
Přihlášení členové mohou přispívat, sledovat aktualizace a další. Jste tu noví? Zaregistrujte si bezplatný účet.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.