2014-11-21 48 views

回答

1

如果你犯了一個新的結構看起來像這樣的:

Public Structure Version 
    Public ID As String 
    Public TIME As String 
    Public releaseTime As String 
    Public type As String 
End Structure 

然後,也許在點擊一個按鈕,寫這

Dim allVersions = New List(Of Version) 
    Using wc = New WebClient() With {.Proxy = Nothing} 
     Dim JSON = Await wc.DownloadStringTaskAsync("https://s3.amazonaws.com/Minecraft.Download/versions/versions.json") 'Downloads the JSON file 
     Dim values = JsonConvert.DeserializeObject(Of JObject)(JSON) 'Converts it to JObject 

     For Each i In values("versions").Children() 'Gets the versions 
      YOUR_LISTBOX.Items.Add(i.ToObject(Of Version).ID) 
     Next 
    End Using 
+0

謝謝,它的工作好,和u可以告訴我如何添加子項(類型)呢? – ProGamingHun 2014-11-22 05:44:22

+0

假設你使用** ListView **,你可以這樣做:'YOUR_LISTVIEW.Items.Add(i.ToObject(Of Version).ID).SubItems.Add(i.ToObject(Of Version) .type)' – 2014-11-22 06:02:12

+0

非常感謝人! 但我有最後一個問題如何選擇在文本中列表視圖中的項目自動?謝謝,即使如此,你也幫了很大忙。 – ProGamingHun 2014-11-22 07:03:32