Thats starting to make sense now....THis is what I have...for the Select and Modify....now to handle the ADD FeatureWhat I was doing with teh Radio buttons was defining the LayerIDs in the editor...HOW ELSE can I set which feature I want to be the editing feature...If I get this then on the EditCompleted I can open the Dataform etc. and add my attributes...SO I guess I simply need to figure out how to set the LayerIDs of the editor before I hit the Add Button, IF I DONT use the readio buttons to determine which feature I was to add!.Thanks a ton for your feedback....helpfull in thinking this through....<esri:Editor x:Key="MyEditor"
Map="{Binding ElementName=MyMap}" EditCompleted="Editor_EditCompleted"
GeometryServiceUrl="http://tasks.arcgisonline.com/ArcGIS/rest/services/Geometry/GeometryServer" />
THIS IS THE RADIO button part settinga textblock to a value and then setting the LayerIDs of the Editor...How can I do this differently?
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
<Border Background="#FF919191" BorderThickness="1" CornerRadius="5" x:Name="editborder"
HorizontalAlignment="Right" VerticalAlignment="Top"
Padding="5" BorderBrush="Black" Margin="0,5,5,15" Visibility="Visible">
<StackPanel x:Name="EditorTools" Orientation="Vertical" >
<StackPanel Orientation="Horizontal">
<Button Command="{Binding Add}" Margin="2" x:Name="AddButton" DataContext="{StaticResource MyEditor}"
ToolTipService.ToolTip="Point" Width="90"Content="Add">
<Button.CommandParameter>
<sys:Int32>10101</sys:Int32>
</Button.CommandParameter>
</Button>
</StackPanel>
</StackPanel>
</Border>
<esri:FeatureLayer ID="MG_Point" Visible="True" MouseLeftButtonUp="Feature_MouseLeftButtonUp"
Url="http://189/ArcGIS/rest/services/Maple/MG_FS/FeatureServer/22"
DisableClientCaching="True" Mode="OnDemand"
SelectionColor="#FFFFFF00" OutFields="*" />
<esri:FeatureLayer ID="MG_Line" Visible="True" MouseLeftButtonUp="Feature_MouseLeftButtonUp"
Url="http://189/ArcGIS/rest/services/Maple/MG_FS/FeatureServer/23"
DisableClientCaching="True" Mode="OnDemand"
SelectionColor="#FFFFFF00" OutFields="*" />
Private Sub Feature_MouseLeftButtonUp(ByVal sender As System.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()
FeatureDataForm.GraphicSource = args.Graphic
FeatureDataForm.FeatureLayer = featureLayer
DataFormBorder.Visibility = Visibility.Visible
End Sub
Private Sub Editor_EditCompleted(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Client.Editor.EditEventArgs)
Dim Test As String = Me.EditLayer2.Text
' e.Edits contains graphics that where added and the layer the graphic was added to
If e.Action = ESRI.ArcGIS.Client.Editor.EditAction.Add Then
For Each change As ESRI.ArcGIS.Client.Editor.Change In e.Edits
'FeatureDataForm.GraphicSource = change.Geometry
FeatureDataForm.FeatureLayer = TryCast(change.Layer, FeatureLayer)
FeatureDataForm.GraphicSource = change.Graphic
DataFormBorder.Visibility = Visibility.Visible
Next
End If
End Sub
