Initialize FeatureDataGrid in VB not C#

KenCarrier — Wed, 08 Feb 2012 11:31:20 GMT

All,

I am trying to initialize a FeatureDataGrid in Silverlight using VB.

Esri has been kind enough to share some C# code with me but when I try to convert to VB, it does not convert cleanly. My code will not work properly until I get the FDG initialized properly.

Any help would be greatly appreciated.

Original Code in C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Animation;
using System.Windows.Shapes;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Tasks;
using ESRI.ArcGIS.Client.Geometry;

namespace ForumTest
{
 public partial class MainPage : UserControl
 {
  public MainPage()
  {
   InitializeComponent();
   l = new FeatureLayer()
   {
    ID = "MyLayer",
    Url = "http://sampleserver3.arcgisonline.com/ArcGIS/rest/services/SanFrancisco/311Incidents/FeatureServer/1",
    Mode = FeatureLayer.QueryMode.Snapshot,
    Where = "1=1"
   };
   l.OutFields.Add("*");
   l.Initialized += (s, e) => 
   {
    if (l.InitializationFailure != null)
     MessageBox.Show(l.InitializationFailure.Message);
   };
   l.InitializationFailed += (s, e) =>
   {
    if (l.InitializationFailure != null)
     MessageBox.Show(l.InitializationFailure.Message);
   };
   l.Initialized += new EventHandler<EventArgs>(l_Initialized);
   l.Initialize();  
   MyFDG.GraphicsLayer = l;  
  }

  void l_Initialized(object sender, EventArgs e)
  {
   var l = sender as FeatureLayer;
   l.Update();
  }
  FeatureLayer l;

  private void Button_Click(object sender, RoutedEventArgs e)
  {
   var g = new Graphic();
   if (l != null && l.LayerInfo != null && l.LayerInfo.Fields != null)
   {
    foreach (var f in l.LayerInfo.Fields)
    {
     g.Attributes[f.Name] = null;
    }
   }
   else
   {
    g.Attributes["sf_311_serviceoid"] = 21467;
    g.Attributes["agree_with_incident"] = (Int16)1;
    g.Attributes["DateTime"] = DateTime.UtcNow;
    g.Attributes["cient_ip"] = "unknown";
    g.Attributes["notes"] = string.Format("Added - {0} - local time", DateTime.Now);
   }
   l.Graphics.Add(g);
  }
 }
}

Converted to VB:

Imports System.Collections.Generic
Imports System.Linq
Imports System.Net
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Shapes
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Tasks
Imports ESRI.ArcGIS.Client.Geometry

Namespace ForumTest
 Public Partial Class MainPage
  Inherits UserControl
  Public Sub New()
   InitializeComponent()
   l = New FeatureLayer() With { _
    Key .ID = "MyLayer", _
    Key .Url = "http://sampleserver3.arcgisonline.com/ArcGIS/rest/services/SanFrancisco/311Incidents/FeatureServer/1", _
    Key .Mode = FeatureLayer.QueryMode.Snapshot, _
    Key .Where = "1=1" _
   }
   l.OutFields.Add("*")
   l.Initialized += Function(s, e) 
   If l.InitializationFailure IsNot Nothing Then
    MessageBox.Show(l.InitializationFailure.Message)
   End If

End Function
   l.InitializationFailed += Function(s, e) 
   If l.InitializationFailure IsNot Nothing Then
    MessageBox.Show(l.InitializationFailure.Message)
   End If

End Function
   l.Initialized += New EventHandler(Of EventArgs)(AddressOf l_Initialized)
   l.Initialize()
   MyFDG.GraphicsLayer = l
  End Sub

  Private Sub l_Initialized(sender As Object, e As EventArgs)
   Dim l = TryCast(sender, FeatureLayer)
   l.Update()
  End Sub
  Private l As FeatureLayer

  Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
   Dim g = New Graphic()
   If l IsNot Nothing AndAlso l.LayerInfo IsNot Nothing AndAlso l.LayerInfo.Fields IsNot Nothing Then
    For Each f As var In l.LayerInfo.Fields
     g.Attributes(f.Name) = Nothing
    Next
   Else
    g.Attributes("sf_311_serviceoid") = 21467
    g.Attributes("agree_with_incident") = CType(1, Int16)
    g.Attributes("DateTime") = DateTime.UtcNow
    g.Attributes("cient_ip") = "unknown"
    g.Attributes("notes") = String.Format("Added - {0} - local time", DateTime.Now)
   End If
   l.Graphics.Add(g)
  End Sub
 End Class
End Namespace

topic Initialize FeatureDataGrid in VB not C# in ArcGIS API for Silverlight Questions

Initialize FeatureDataGrid in VB not C#