Private Sub HandleCheck(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Dim rb As RadioButton = TryCast(sender, RadioButton) EditLayer.Text = "You are now editing: " + ": " + rb.Name Dim _checkedValue As String = rb.Name If _checkedValue = "Point" Then EditLayer2.Text = "MG_Point" Dim MyEditor = TryCast(Me.LayoutRoot.Resources("MyEditor"), Editor) MyEditor.LayerIDs = New String() {EditLayer2.Text} ElseIf _checkedValue = "Line" Then EditLayer2.Text = "MG_Line" Dim MyEditor = TryCast(Me.LayoutRoot.Resources("MyEditor"), Editor) MyEditor.LayerIDs = New String() {EditLayer2.Text} ElseIf _checkedValue = "Polygon" Then EditLayer2.Text = "MG_Polygon" Dim MyEditor = TryCast(Me.LayoutRoot.Resources("MyEditor"), Editor) MyEditor.LayerIDs = New String() {EditLayer2.Text} Else End If End Sub
Solved! Go to Solution.
BUT REGARDLESS of which radion button is selected (which is controling my edit target) I can select points, lines, polygons from 3 differrent feature layers..
BUT REGARDLESS of which radion button is selected (which is controling my edit target) I can select points, lines, polygons from 3 differrent feature layers..
Private Sub Points_MouseLeftButtonUp(ByVal sender As Object, ByVal args As GraphicMouseButtonEventArgs) Dim featureLayer As FeatureLayer = TryCast(sender, FeatureLayer) For Each g As Graphic In featureLayer.Graphics If (g.Selected) Then g.UnSelect() End If Next args.Graphic.Select() MyPointFeatureDataForm.GraphicSource = args.Graphic ' ON POLYGON SELECT, UNSELECT THE LINES Dim l_line As FeatureLayer = TryCast(Me.MyMap.Layers("MG_Line"), FeatureLayer) For Each g As Graphic In l_line.Graphics If (g.Selected) Then g.UnSelect() End If Next ' ON POLYGON SELECT, UNSELECT THE PLYGONS Dim l_polygon As FeatureLayer = TryCast(Me.MyMap.Layers("MG_Polygon"), FeatureLayer) For Each g As Graphic In l_polygon.Graphics If (g.Selected) Then g.UnSelect() End If Next PointDataFormBorder.Visibility = Visibility.Visible CloseButtonPoint.Visibility = Visibility.Visible PointDataFormBorder.Visibility = Visibility.Visible LineDataFormBorder.Visibility = Visibility.Collapsed PolygonDataFormBorder.Visibility = Visibility.Collapsed End Sub