como ler subitem de um array em json usando vbnet code example

Example 1: como ler subitem de um array em json usando vbnet

public class Minhaclasse
{
    public string tempoexibicao { get; set; }
    public IEnumerable<Canetas> canetas { get; set; }
}

public class Canetas
{
    public string cor { get; set; }
    public string marca { get; set; }
}

class Program {
   static void Main(string[] args)
   {
    string jsonString = @"{""tempoexibicao"": 10,""canetas"":[{""cor"" : ""azul"",""marca"" : ""bic""},{""cor"" : ""vermelha"",""marca"" : ""pilot""}]}";
    JavaScriptSerializer serializer = new JavaScriptSerializer();
    Minhaclasse minhaClasse = serializer.Deserialize<Minhaclasse>(jsonString);
  }
}

Example 2: como ler subitem de um array em json usando vbnet

string jsonString = @"{""tempoexibicao"": 10,""canetas"":[{""cor"" : ""azul"",""marca"" : ""bic""},{""cor"" : ""vermelha"",""marca"" : ""pilot""}]}";
  var obj = Newtonsoft.Json.JsonConvert.DeserializeObject<Minhaclasse>(jsonString);

Example 3: como ler subitem de um array em json usando vbnet

Imports System.Net.Http
Imports Newtonsoft.Json
Dim Uri As String

Public Class Produto 'suaclasse'
    Public Property Id() As Integer
    Public Property Nome() As String
    Public Property Categoria() As String
    Public Property Preco() As Decimal
End Class

1- GetAllProdutos - que acessa a web API enviando um requisição GET assíncrona usando a URI definida e retornar todos os produtos

Private Sub GetAllProdutos()
URI = txtURI.Text
Using client = New HttpClient()
Using response = Await client.GetAsync(URI)
If response.IsSuccessStatusCode Then
Dim ProdutoJsonString = Await response.Content.ReadAsStringAsync()
dgvDados.DataSource = JsonConvert.DeserializeObject(Of Produto())(ProdutoJsonString).ToList()
Else
MessageBox.Show("Não foi possível obter o produto : " + response.StatusCode)
End If
End Using
End Using
End Sub


    Private Sub GetProdutoPorId(codProduto As Integer)
    Using client = New HttpClient()
        Dim bsDados As New BindingSource()
        URI = txtURI.Text + "/" + codProduto.ToString()
        Dim response As HttpResponseMessage = Await client.GetAsync(URI)
        If response.IsSuccessStatusCode Then
            Dim ProdutoJsonString = Await response.Content.ReadAsStringAsync()
            bsDados.DataSource = JsonConvert.DeserializeObject(Of Produto)(ProdutoJsonString)
            dgvDados.DataSource = bsDados
        Else
            MessageBox.Show("Falha ao obter o produto : " + response.StatusCode)
        End If
    End Using
End Sub