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