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);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);
}
}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 SubCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
