如果你犯了一個新的結構看起來像這樣的:
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
謝謝,它的工作好,和u可以告訴我如何添加子項(類型)呢? – ProGamingHun 2014-11-22 05:44:22
假設你使用** ListView **,你可以這樣做:'YOUR_LISTVIEW.Items.Add(i.ToObject(Of Version).ID).SubItems.Add(i.ToObject(Of Version) .type)' – 2014-11-22 06:02:12
非常感謝人! 但我有最後一個問題如何選擇在文本中列表視圖中的項目自動?謝謝,即使如此,你也幫了很大忙。 – ProGamingHun 2014-11-22 07:03:32